Unit test snippet for using timeout-channel from go-lightly library

gistfile1.clj

(testing "timeout channel with other channels"
  (let [ch1 (channel)
        ch2 (channel)
        tch (timeout-channel 250)
        fnext-msg (partial select ch1 ch2 tch)]
    (go (test-routine ch1 1))
    (go (test-routine ch1 2))
    (loop [msg (fnext-msg)]
      (when-not (= msg :go-lightly/timeout)
        (is (some #{1 2} [msg]))
        (recur (fnext-msg)))))
  (stop)))