Testing cljs.core.async channels.

gistfile1.txt

  1 (ns chord.client-test
  2   (:require-macros [cemerick.cljs.test :refer [is deftest run-tests testing test-var]])
  3   (:require [cemerick.cljs.test :as t]
  4             [cljs.core.async :refer [unblocking-buffer? put!]]
  5             [chord.client :as chord]))
  6
  7 (deftest make-channel-without-buffer
  8   (let [ch (chord/make-channel)]
  9     (is (= false (nil? ch)))
 10     (is (= false (unblocking-buffer? ch)))
 11     (dotimes [i 1024]
 12       (put! ch i))
 13     (is (= 1024 (count ch)))
 14     (throws? (put! ch 1024))))