 
 (fact "A `map` transducer"
   (let [c (a/chan 1 (map (partial * 100)))]
-    (a/onto-chan c (range 5))
+    (a/onto-chan c [0 1 2 3 4])
     (chan->seq c))
   => [0 100 200 300 400])
 
 (fact "Transducers do nothing when there is no buffer (when buffer size is 0)"
   (let [c (a/chan 0 (map (partial * 100)))]
-    (a/onto-chan c (range 5))
+    (a/onto-chan c [0 1 2 3 4])
     (chan->seq c))
-  => (range 5))
+  => [0 1 2 3 4])
 
 (fact "My second transducer example"
   (let [c (a/chan 1 (filter even?))]
-    (a/onto-chan c (range 5))
+    (a/onto-chan c [0 1 2 3 4])
     (chan->seq c))
   => [0 2 4])
 


(fact "About `a/map<` (N.B. This is deprecated)"
  (chan->seq (a/map< (partial * 100)
                     (a/to-chan (range 5))))
  => [0 100 200 300 400])

(fact "About `a/map>` (N.B. This is deprecated)"

        wrapping-ch (a/filter> even?
                               wrapped-ch)]
    (a/go
      (doseq [i [0 1 2 3 4]]
        (a/>! wrapping-ch i))
      (a/close! wrapping-ch))
    (chan->seq wrapped-ch))
