diff options
| author | Eduardo Julian | 2019-03-30 00:47:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-03-30 00:47:26 -0400 |
| commit | 5009bfaa56119a58e675a1e6008623790b54cc1c (patch) | |
| tree | 4c1d7a75c184829b58cda6378a0b52944a4f63e6 /stdlib/source/test | |
| parent | 841778afcbdba83edd1e5d90049221b7ac1776dc (diff) | |
Yet more fixes.
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 |