diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/control/parser/text.lux | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux index 8917e63fa..441f2f5da 100644 --- a/stdlib/source/test/lux/control/parser/text.lux +++ b/stdlib/source/test/lux/control/parser/text.lux @@ -10,6 +10,8 @@ ["p" parser]] [data ["." text ("#@." equivalence)] + [number + ["n" nat]] [collection ["." list]]] [math @@ -41,7 +43,7 @@ "") (case> (#.Right _) true _ false))) (do r.monad - [size (|> r.nat (:: @ map (|>> (n/% 100) (n/max 10)))) + [size (|> r.nat (:: @ map (|>> (n.% 100) (n.max 10)))) sample (r.unicode size) non-sample (|> (r.unicode size) (r.filter (|>> (text@= sample) not)))] |