core_test.cljs

(ns general.core-test
  "General tests to ensure Planck is operating correctly.
  These tests are not testing any specific Planck namespace."
  (:require-macros
   [clojure.template :refer [do-template]]
   [cljs.analyzer.macros]
   [cljs.compiler.macros]
   [cljs.env.macros])
  (:require
   [cljs.test :refer-macros [deftest is]]
   [cljs.pprint]))

(deftest do-template-test
  (is (= '(do (+ 4 2) (+ 5 3))
        (macroexpand '(do-template [x y] (+ y x) 2 4 3 5)))))

(deftest system-timer-monkey-patch-test
  ; Ensure we haven't broken system-time
  (let [t0 (system-time)
        t1 (system-time)]
    (is (<= t0 t1))))

(deftest clojurescript-version-test
  (is (some? *clojurescript-version*)))

(deftest macros-loaded
  (is (exists? cljs.analyzer.macros$macros/no-warn))
  (is (exists? cljs.compiler.macros$macros/emit-wrap))
  (is (exists? cljs.env.macros$macros/ensure))
  (is (exists? cljs.pprint$macros/pp)))