aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
authorEduardo Julian2019-03-30 00:47:26 -0400
committerEduardo Julian2019-03-30 00:47:26 -0400
commit5009bfaa56119a58e675a1e6008623790b54cc1c (patch)
tree4c1d7a75c184829b58cda6378a0b52944a4f63e6 /stdlib/source/test
parent841778afcbdba83edd1e5d90049221b7ac1776dc (diff)
Yet more fixes.
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