diff options
| author | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
| commit | a0889b2ee76c1ae7a9a5bbe2eec9f051b4f341e4 (patch) | |
| tree | 08df3db7f8fffad6360a476d20db1d40b36c85cb /stdlib/source/test/lux/control/parser/cli.lux | |
| parent | 78fd01f7e6688448bbd710336d4d7b1c35ae058a (diff) | |
No more "n/"-prefixed functions.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/parser/cli.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index b304a2ab2..c41a33878 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -11,7 +11,7 @@ ["p" parser]] [data [number - ["." nat ("#@." decimal)]] + ["n" nat ("#@." decimal)]] ["." text ("#@." equivalence)] [collection ["." list]]]] @@ -22,8 +22,8 @@ Test (<| (_.context (name.module (name-of /._))) (do r.monad - [num-args (|> r.nat (:: @ map (n/% 10))) - #let [gen-arg (:: @ map nat@encode r.nat)] + [num-args (|> r.nat (:: @ map (n.% 10))) + #let [gen-arg (:: @ map n@encode r.nat)] yes gen-arg #let [gen-ignore (r.filter (|>> (text@= yes) not) (r.unicode 5))] @@ -52,12 +52,12 @@ (#try.Success _) #0)))) (_.test "Can use custom token parsers." - (|> (/.run (/.parse nat@decode) (list yes)) + (|> (/.run (/.parse n@decode) (list yes)) (case> (#try.Failure _) #0 (#try.Success parsed) - (text@= (nat@encode parsed) + (text@= (n@encode parsed) yes)))) (_.test "Can query if there are any more inputs." (and (|> (/.run /.end (list)) |