jasmine.core.cljs

(ns jasmine.core)

(def expect (.-expect js/window))

(.beforeEach js/window (fn []
  (this-as spec
    (.addMatchers spec (js-obj
      "to_be" #(this-as expectation
        (= % (.-actual expectation))))))))

(defn to-be [this other] (.to_be this other))

jasmine.macros.clj

(ns jasmine.macros)

(defmacro describe [string & exprs]
  `(.describe js/window ~string (fn [] ~@exprs)))

(defmacro it [string & exprs]
  `(.it js/window ~string (fn [] ~@exprs)))

jasmine.test.core.cljs

(ns jasmine.test.core
  (:use [jasmine.core :only [expect to-be]])
  (:use-macros [jasmine.macros :only [describe it]]))

(describe "true"
  (it "is true"
    (-> (expect true) (to-be true)))
  (it "is not false"
    (-> (expect true) (to-be (not false)))))

(describe "to-be"
  (it "uses clojure equality"
    (-> (expect []) (to-be '()))))