diff options
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/data/error.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/format/json.lux | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/data/error.lux b/stdlib/source/test/lux/data/error.lux index 58d37aef7..9012b3212 100644 --- a/stdlib/source/test/lux/data/error.lux +++ b/stdlib/source/test/lux/data/error.lux @@ -32,7 +32,7 @@ (def: #export (error element) (All [a] (-> (Random a) (Random (Error a)))) ($_ r.or - (r.ascii 10) + (:: r.monad wrap "KABOOM!") element)) (def: #export test diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index a170d3163..f276c5180 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -48,16 +48,16 @@ (def: #export json (Random JSON) - (r.rec (function (_ json) + (r.rec (function (_ recur) (do r.monad [size (:: @ map (n/% 2) r.nat)] ($_ r.or (:: @ wrap []) r.bit - r.frac + r.safe-frac (r.unicode size) - (r.row size json) - (r.dictionary text.hash size (r.unicode size) json) + (r.row size recur) + (r.dictionary text.hash size (r.unicode size) recur) ))))) (def: #export test |