diff options
| author | Eduardo Julian | 2020-11-26 19:37:11 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-26 19:37:11 -0400 |
| commit | dbb658bd7976c073a2bf314f194b36b30c45784b (patch) | |
| tree | 4771bab5e41fe2ba3939bb3a12941a558b68e712 /stdlib/source/test/lux/control/parser/cli.lux | |
| parent | c4bbfea18d995948012f45a6afda7a6e6ba56f84 (diff) | |
Allow name formatting for JVM imports, similar to Lux module imports.
Diffstat (limited to 'stdlib/source/test/lux/control/parser/cli.lux')
| -rw-r--r-- | stdlib/source/test/lux/control/parser/cli.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index 7d90eb49d..1222b9de1 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -8,8 +8,8 @@ ["<>" parser]] [data [number - ["n" nat ("#@." decimal)]] - ["." text ("#@." equivalence)] + ["n" nat ("#\." decimal)]] + ["." text ("#\." equivalence)] [collection ["." list]]] [math @@ -30,8 +30,8 @@ (<| (_.covering /._) (_.with-cover [/.Parser]) (do {! random.monad} - [expected (:: ! map n@encode random.nat) - #let [random-dummy (random.filter (|>> (text@= expected) not) + [expected (:: ! map n\encode random.nat) + #let [random-dummy (random.filter (|>> (text\= expected) not) (random.unicode 5))] dummy random-dummy short (random.unicode 1) @@ -42,12 +42,12 @@ (_.cover [/.run /.any] (|> (/.run /.any (list expected)) (!expect (^multi (#try.Success actual) - (text@= expected actual))))) + (text\= expected actual))))) (_.cover [/.parse] - (|> (/.run (/.parse n@decode) (list expected)) + (|> (/.run (/.parse n\decode) (list expected)) (!expect (^multi (#try.Success actual) - (text@= expected - (n@encode actual)))))) + (text\= expected + (n\encode actual)))))) (_.cover [/.this] (and (|> (/.run (/.this expected) (list expected)) (!expect (#try.Success _))) @@ -66,16 +66,16 @@ (_.cover [/.named] (|> (/.run (/.named dummy /.any) (list dummy expected)) (!expect (^multi (#try.Success actual) - (text@= expected actual))))) + (text\= expected actual))))) (_.cover [/.parameter] (and (|> (/.run (/.parameter [short long] /.any) (list short expected)) (!expect (^multi (#try.Success actual) - (text@= expected actual)))) + (text\= expected actual)))) (|> (/.run (/.parameter [short long] /.any) (list long expected)) (!expect (^multi (#try.Success actual) - (text@= expected actual)))) + (text\= expected actual)))) (|> (/.run (/.parameter [short long] /.any) (list dummy expected)) (!expect (#try.Failure _))))) |