luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix tests for cljs

Browse source
This commit is contained in:
Nathan Marz 2015-09-24 11:54:20 -05:00
parent 4b9a415eff
commit 1f55a0e701
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
DEVELOPER.md
View file

@ -7,6 +7,7 @@ lein test
# Running ClojureScript tests # Running ClojureScript tests
``` ```
$ rm -rf out/
$ rlwrap java -cp `lein classpath` clojure.main repl.clj $ rlwrap java -cp `lein classpath` clojure.main repl.clj
cljs.user=> (require 'com.rpl.specter.cljs-test-runner) cljs.user=> (require 'com.rpl.specter.cljs-test-runner)
``` ```

11
test/com/rpl/specter/core_test.cljc
View file

@ -2,18 +2,21 @@
#?(:cljs (:require-macros #?(:cljs (:require-macros
[cljs.test :refer [is deftest]] [cljs.test :refer [is deftest]]
[cljs.test.check.cljs-test :refer [defspec]] [cljs.test.check.cljs-test :refer [defspec]]
[com.rpl.specter.cljs-test-helpers :refer [for-all+]])) [com.rpl.specter.cljs-test-helpers :refer [for-all+]]
[com.rpl.specter.macros :refer [paramsfn]]))
(:use (:use
#?(:clj [clojure.test :only [deftest is]]) #?(:clj [clojure.test :only [deftest is]])
#?(:clj [clojure.test.check.clojure-test :only [defspec]]) #?(:clj [clojure.test.check.clojure-test :only [defspec]])
#?(:clj [com.rpl.specter.test-helpers :only [for-all+]])) #?(:clj [com.rpl.specter.test-helpers :only [for-all+]])
#?(:clj [com.rpl.specter.macros :only [paramsfn]])
)
(:require #?@(:clj [[clojure.test.check.generators :as gen] (:require #?@(:clj [[clojure.test.check.generators :as gen]
[clojure.test.check.properties :as prop]] [clojure.test.check.properties :as prop]]
:cljs [[cljs.test.check :as tc] :cljs [[cljs.test.check :as tc]
[cljs.test.check.generators :as gen] [cljs.test.check.generators :as gen]
[cljs.test.check.properties :as prop :include-macros true]] [cljs.test.check.properties :as prop :include-macros true]]
) )
[com.rpl.specter.macros :as m]
[com.rpl.specter :as s])) [com.rpl.specter :as s]))
;;TODO: ;;TODO:
@ -530,7 +533,7 @@
val (gen/elements (range 10)) val (gen/elements (range 10))
op (gen/elements [inc dec]) op (gen/elements [inc dec])
comparator (gen/elements [= > <])] comparator (gen/elements [= > <])]
(let [path (s/comp-paths s/ALL (m/paramsfn [p] [v] (comparator v p)))] (let [path (s/comp-paths s/ALL (paramsfn [p] [v] (comparator v p)))]
(= (s/transform (path val) op v) (= (s/transform (path val) op v)
(s/transform [s/ALL #(comparator % val)] op v))) (s/transform [s/ALL #(comparator % val)] op v)))
)) ))