a89224673a
This is the "standard" Clojure layout, and makes the testing integration in Emacs CIDER happy.
37 lines
990 B
Clojure
37 lines
990 B
Clojure
(ns datomish.util-test
|
|
(:require
|
|
[datomish.util :as util]
|
|
#?(:clj [clojure.test :as t :refer [is are deftest testing]])
|
|
#?(:cljs [cljs.test :as t :refer-macros [is are deftest testing]])
|
|
))
|
|
|
|
(deftest test-var-translation
|
|
(is (= :x (util/var->sql-var '?x)))
|
|
(is (= :XX (util/var->sql-var '?XX))))
|
|
|
|
#?(:cljs
|
|
(deftest test-integer?-js
|
|
(is (integer? 0))
|
|
(is (integer? 5))
|
|
(is (integer? 50000000000))
|
|
(is (integer? 5.00)) ; Because JS.
|
|
(is (not (integer? 5.1)))))
|
|
|
|
#?(:clj
|
|
(deftest test-integer?-clj
|
|
(is (integer? 0))
|
|
(is (integer? 5))
|
|
(is (integer? 50000000000))
|
|
(is (not (integer? 5.00)))
|
|
(is (not (integer? 5.1)))))
|
|
|
|
#?(:cljs
|
|
(deftest test-raise
|
|
(let [caught
|
|
(try
|
|
(do
|
|
(util/raise "succeed" {:foo 1})
|
|
"fail")
|
|
(catch :default e e))]
|
|
(is (= "succeed" (aget caught "message")))
|
|
(is (= {:foo 1} (aget caught "data"))))))
|