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

fix namespace definitions for cljs tests but tests still don't run in cljs

Browse source
This commit is contained in:
Nathan Marz 2015-06-30 17:38:57 -04:00
parent c20e4b3fd6
commit aeb86ab396
2 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,23 +1,30 @@
(ns com.rpl.specter.core-test
#?(:cljs (:require-macros
[cljs.test :refer (is deftest)]
[cljs.test.check.cljs-test :refer (defspec)]))
[cljs.test :refer [is deftest]]
[cljs.test.check.cljs-test :refer [defspec]]
[com.rpl.specter.test-helpers :refer [for-all+]]))
(:use
#?(:clj [clojure.test :only [deftest is]])
#?(:clj [clojure.test.check.clojure-test :only [defspec]])
[com.rpl.specter.protocols :only [comp-paths*]]
[com.rpl.specter.test-helpers :only [limit-size for-all+]])
(:require [clojure.test.check
[generators :as gen]
[properties :as prop #?@(:cljs [:include-macros true])]]
[com.rpl [specter :as s]]
[clojure.test.check :as qc]))
#?(:clj [com.rpl.specter.test-helpers :only [for-all+]])
[com.rpl.specter.protocols :only [comp-paths*]])
(:require #?@(:clj [[clojure.test.check.generators :as gen]
[clojure.test.check.properties :as prop]]
:cljs [[cljs.test.check.generators :as gen]
[cljs.test.check.properties :as prop]]
)
[com.rpl.specter :as s]))
;;TODO:
;; test walk, codewalk
;; test keypath
;; test comp-structure-paths
(defn limit-size [n {gen :gen}]
(gen/->Generator
(fn [rnd _size]
(gen rnd (if (< _size n) _size n)))))
(defn gen-map-with-keys [key-gen val-gen & keys]
(gen/bind (gen/map key-gen val-gen)
(fn [m]

6
test/com/rpl/specter/test_helpers.clj
View file

@ -19,9 +19,3 @@
(reverse parts))]
`(prop/for-all [~vars ~genned]
~@body )))
(defn limit-size [n {gen :gen}]
(gen/->Generator
(fn [rnd _size]
(gen rnd (if (< _size n) _size n)))))