test/bkell_test.clj

   1 (ns bkell-test
   2         (:use [bkell] :reload-all)
   3         (:use [clojure.test])
   4         (:use depth_adapter)
   5 )
   6
   7
   8 (deftest test-exit
   9
  10         (use 'depth_adapter)
  11
  12         (comment
  13                 (let [agt (agent java.lang.System/in)]
  14
  15                         (send agt
  16                                 (fn []
  17                                         (println "FINAL > "
  18                                                 (with-out-str (bkell (get-depth-adapter)))))
  19                                 nil
  20                         )
  21                 )
  22
  23                 (println "foobar")
  24         )
  25
  26         (comment        ;; TODO - try and test callback code with threads
  27                 (def my-future
  28                 (future
  29                         (bkell (get-depth-adapter)))
  30                 )
  31                 (println "foobar")
  32
  33         )
  34
  35 )
  36