CLJ-1761: added tests

Signed-off-by: Stuart Halloway <stu@cognitect.com>

Author: slipset

test/clojure/test_clojure/transducers.clj

@@ -368,6 +368,10 @@
       (is (= 1 @counter))
       (is (= ["1" "2" "3" "4" "5"] res)))))
 
+(deftest test-run!
+  (is (nil? (run! identity [1])))
+  (is (nil? (run! reduced (range)))))
+
 (deftest test-distinct
   (are [out in] (= out (sequence (distinct in)) (sequence (distinct) in))
        [] []
@@ -393,4 +397,4 @@
   (is (= []
          (sequence (map-indexed vector) [])))
   (is (= [[0 1] [1 2] [2 3] [3 4]]
-         (sequence (map-indexed vector) (range 1 5)))))
+         (sequence (map-indexed vector) (range 1 5)))))