aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/macro/poly/json.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/macro/poly/json.lux')
-rw-r--r--stdlib/source/test/lux/macro/poly/json.lux26
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