diff options
Diffstat (limited to 'src/test/clojure/clojure/contrib/test_core.clj')
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_core.clj | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/test/clojure/clojure/contrib/test_core.clj b/src/test/clojure/clojure/contrib/test_core.clj index a27d63ee..3048778c 100644 --- a/src/test/clojure/clojure/contrib/test_core.clj +++ b/src/test/clojure/clojure/contrib/test_core.clj @@ -25,12 +25,18 @@ (is (thrown? NullPointerException (.. [nil] (get 0) toString))))) (deftest test-new-versions - (testing "Version -?> returns nil if passed nil" + (testing "Version -?>> falls out on nil" + (is (nil? (-?>> nil .toString))) + (is (nil? (-?>> [] seq (map inc)))) + (is (= [] (->> [] seq (map inc))))) + (testing "Version -?>> completes for non-nil" + (is (= [3 4] (-?>> [1 2] (map inc) (map inc))))) + (testing "Version -?> falls out on nil" (is (nil? (-?> nil .toString))) (is (nil? (-?> "foo" seq next next next .toString)))) - (testing "Version -?> works well for some basic use cases" - (is (= (list \O \O) (-?> "foo" .toUpperCase rest)))) + (testing "Version -?> completes for non-nil" + (is (= [\O \O] (-?> "foo" .toUpperCase rest)))) (testing "Version .?. returns nil if one of the intermediate threaded values is nil" (is (nil? (.?. nil toString))) (is (nil? (.?. [nil] (get 0) toString))))) -
\ No newline at end of file + |