Fix occasionally-failing test
The assertion that shrinking reduces the sum of elements is only
true if the collection doesn't have zeros.
Gary Fredericks
8 years ago
384 | 384 | (prop/for-all [g gen-distinct-generator |
385 | 385 | seed gen-seed |
386 | 386 | size (gen/choose 1 20)] |
387 | (let [rose-tree (gen/call-gen (g (gen/choose 0 1000)) | |
387 | (let [rose-tree (gen/call-gen (g (gen/choose 1 1000)) | |
388 | 388 | (random/make-random seed) size) |
389 | 389 | a-shrink (->> rose-tree |
390 | 390 | (iterate #(first (rose/children %))) |