 
 (fact "About `a/filter<` (N.B. This is deprecated)"
   (chan->seq (a/filter< even?
-                        (a/to-chan (range 5))))
+                        (a/to-chan [0 1 2 3 4])))
   => [0 2 4])
 
 (fact "About `a/filter>` (N.B. This is deprecated)"


(fact "About `a/mapcat< (N.B. This is deprecated)"
  (chan->seq (a/mapcat< (fn [x] [x :plop])
                        (a/to-chan (range 5))))
  => [0 :plop 1 :plop 2 :plop 3 :plop 4 :plop])

;;;; ___________________________________________________________________________


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

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