test.cljs

(ns huffda.expectations-basics-test
  (:require [clojure.test :refer [deftest testing is async]]
            [huffda.expectations :as expec]
            [cljs.core.async :refer [chan <! >! put! close! alts! timeout promise-chan]])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]]))

(defmacro async-test [name & form]
  `(testing name
     (async done
       (do ~@form)
       (done))))

(deftest expectations-basics
  (async-test
    "should-work"
    (go
      (let [[db err] (<! (expec/create-memory-database))]
        (<! (expec/add-expectation db {:key "my-expec-1"} 123))
        (is (do (not (<! (expec/is-fulfilled db "my-expec-1")))))
        (<! (expec/fulfill-expectation db "my-expec-1" true))
        (is (do (<! (expec/is-fulfilled db "my-expec-1"))))))))