Skip to content

Commit cee4f53

Browse files
author
dnolen
committed
fix up the gen comment block so that it is executable in ClojureScript
1 parent ffd4d05 commit cee4f53

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

src/main/cljs/cljs/spec/gen.cljs

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -118,7 +118,7 @@ gen-builtins
118118
(generate (one-of [(gen-for-pred integer?) (gen-for-pred string?)]))
119119
(generate (such-that #(< 10000 %) (gen-for-pred integer?)))
120120
(let [reqs {:a (gen-for-pred number?)
121-
:b (gen-for-pred ratio?)}
121+
:b (gen-for-pred keyword?)}
122122
opts {:c (gen-for-pred string?)}]
123123
(generate (bind (choose 0 (count opts))
124124
#(let [args (concat (seq reqs) (shuffle (seq opts)))]
@@ -127,16 +127,16 @@ gen-builtins
127127
(mapcat identity)
128128
(apply hash-map))))))
129129
(generate (cat (list (gen-for-pred string?))
130-
(list (gen-for-pred ratio?))))
130+
(list (gen-for-pred integer?))))
131131

132132
;; load your own generator
133-
(gen-for-name 'clojure.test.check.generators/int)
133+
;(gen-for-name 'clojure.test.check.generators/int)
134134

135135
;; failure modes
136-
(gen-for-name 'unqualified)
137-
(gen-for-name 'clojure.core/+)
138-
(gen-for-name 'clojure.core/name-does-not-exist)
139-
(gen-for-name 'ns.does.not.exist/f)
136+
;(gen-for-name 'unqualified)
137+
;(gen-for-name 'clojure.core/+)
138+
;(gen-for-name 'clojure.core/name-does-not-exist)
139+
;(gen-for-name 'ns.does.not.exist/f)
140140

141141
)
142142

0 commit comments

Comments
 (0)