diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/macro/poly/json.lux | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/stdlib/source/test/lux/macro/poly/json.lux b/stdlib/source/test/lux/macro/poly/json.lux index 144994f50..8be02dc27 100644 --- a/stdlib/source/test/lux/macro/poly/json.lux +++ b/stdlib/source/test/lux/macro/poly/json.lux @@ -79,10 +79,9 @@ (Random Recursive) (random.rec (function (_ gen-recursive) - (random.or random.frac - (random.and random.frac gen-recursive))))) - -(derived: recursive-equivalence (poly/equivalence.equivalence Recursive)) + (random.or random.safe-frac + (random.and random.safe-frac + gen-recursive))))) (def: qty (All [unit] (Random (unit.Qty unit))) @@ -94,13 +93,13 @@ [size (:: @ map (n.% 2) random.nat)] ($_ random.and random.bit - random.frac + random.safe-frac (random.unicode size) - (random.maybe random.frac) - (random.list size random.frac) - (random.dictionary text.hash size (random.unicode size) random.frac) - ($_ random.or random.bit (random.unicode size) random.frac) - ($_ random.and random.bit (random.unicode size) random.frac) + (random.maybe random.safe-frac) + (random.list size random.safe-frac) + (random.dictionary text.hash size (random.unicode size) random.safe-frac) + ($_ random.or random.bit (random.unicode size) random.safe-frac) + ($_ random.and random.bit (random.unicode size) random.safe-frac) ..gen-recursive ## _instant.instant ## _duration.duration @@ -108,8 +107,11 @@ ..qty ))) -(derived: equivalence (poly/equivalence.equivalence Record)) -(derived: codec (/.codec Record)) +(derived: equivalence + (poly/equivalence.equivalence Record)) + +(derived: codec + (/.codec Record)) (def: #export test Test |