File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -118,7 +118,7 @@ gen-builtins
118
118
(generate (one-of [(gen-for-pred integer?) (gen-for-pred string?)]))
119
119
(generate (such-that #(< 10000 %) (gen-for-pred integer?)))
120
120
(let [reqs {:a (gen-for-pred number?)
121
- :b (gen-for-pred ratio ?)}
121
+ :b (gen-for-pred keyword ?)}
122
122
opts {:c (gen-for-pred string?)}]
123
123
(generate (bind (choose 0 (count opts))
124
124
#(let [args (concat (seq reqs) (shuffle (seq opts)))]
@@ -127,16 +127,16 @@ gen-builtins
127
127
(mapcat identity)
128
128
(apply hash-map))))))
129
129
(generate (cat (list (gen-for-pred string?))
130
- (list (gen-for-pred ratio ?))))
130
+ (list (gen-for-pred integer ?))))
131
131
132
132
; ; load your own generator
133
- (gen-for-name 'clojure.test.check.generators/int)
133
+ ; (gen-for-name 'clojure.test.check.generators/int)
134
134
135
135
; ; 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)
140
140
141
141
)
142
142
You can’t perform that action at this time.
0 commit comments