26 lines
1,022 B
Clojure
26 lines
1,022 B
Clojure
(ns datomish.test.transforms
|
|
(:require
|
|
[datomish.query.transforms :as transforms]
|
|
#?(:clj [clojure.test :as t :refer [is are deftest testing]])
|
|
#?(:cljs [cljs.test :as t :refer-macros [is are deftest testing]])
|
|
))
|
|
|
|
(deftest test-attribute-transform-string
|
|
(is (= "p/foo"
|
|
(transforms/attribute-transform-string :p/foo))))
|
|
|
|
(deftest test-constant-transform-default
|
|
;; Keywords.
|
|
(is (= "p/foo" (transforms/constant-transform-default :p/foo))) ; For now.
|
|
|
|
;; Booleans.
|
|
(is (= 1 (transforms/constant-transform-default true)))
|
|
(is (= 0 (transforms/constant-transform-default false)))
|
|
|
|
;; Numbers and strings.
|
|
#?(:cljs (is (= 1 (transforms/constant-transform-default 1.0))))
|
|
#?(:clj (is (= 1.0 (transforms/constant-transform-default 1.0))))
|
|
(is (= -1 (transforms/constant-transform-default -1)))
|
|
(is (= 42 (transforms/constant-transform-default 42)))
|
|
(is (= "" (transforms/constant-transform-default "")))
|
|
(is (= "foo" (transforms/constant-transform-default "foo"))))
|