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