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 (ns com.rpl.specter.core-test
#?(: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.test-helpers :refer [for-all+]]))
(: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]])
[com.rpl.specter.protocols :only [comp-paths*]] #?(:clj [com.rpl.specter.test-helpers :only [for-all+]])
[com.rpl.specter.test-helpers :only [limit-size for-all+]]) [com.rpl.specter.protocols :only [comp-paths*]])
(:require [clojure.test.check (:require #?@(:clj [[clojure.test.check.generators :as gen]
[generators :as gen] [clojure.test.check.properties :as prop]]
[properties :as prop #?@(:cljs [:include-macros true])]] :cljs [[cljs.test.check.generators :as gen]
[com.rpl [specter :as s]] [cljs.test.check.properties :as prop]]
[clojure.test.check :as qc])) )
[com.rpl.specter :as s]))
;;TODO: ;;TODO:
;; test walk, codewalk ;; test walk, codewalk
;; test keypath ;; test keypath
;; test comp-structure-paths ;; 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] (defn gen-map-with-keys [key-gen val-gen & keys]
(gen/bind (gen/map key-gen val-gen) (gen/bind (gen/map key-gen val-gen)
(fn [m] (fn [m]

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

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