   (println "ago test run started.")
   (test-constructors)
   (test-seqvs)
-  (test-put-take)
-  (test-alts)
+  (test-put-take 0)
+  (test-put-take 1)
+  (test-put-take 10)
+  (test-alts 0)
+  (test-alts 1)
+  (test-alts 10)
   (println "ago test run PASS.")
   success)

        (recur)))
    @all-done))

(defn test-alts []
  (println "test-alts")
  (let [agw (make-ago-world nil)
        chx (ago-chan agw)
        chy (ago-chan agw)
        chz (ago-chan agw)
        collector (ago agw
                       (loop [chs #{chx chy chz}
                              acc #{}]

               (assert (seqv-alive? agw nil))
               (assert (seqv-alive? agw2 nil)))))))

(defn test-put-take [chan-size]
  (println "test-put-take" chan-size)
  (let [agw (make-ago-world nil)
        ch0 (ago-chan agw chan-size)
        ch1 (ago-chan agw chan-size)
        echoer (ago agw
                    (loop [acc []]
                      (if-let [msg (<! ch0)]
