diff options
| author | Eduardo Julian | 2021-08-25 16:47:50 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-25 16:47:50 -0400 |
| commit | b216900093c905b3b20dd45c69e577b192e2f7a3 (patch) | |
| tree | 4d6ac7d257752a8c54ca77dd58df9753ce357ab6 /stdlib/source/test/aedifex/cli.lux | |
| parent | 36303d6cb2ce3ab9e36d045b9516c997bd461862 (diff) | |
Updates to the Lua compiler.
Diffstat (limited to 'stdlib/source/test/aedifex/cli.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/cli.lux | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index 45ec92f4e..9712d8a93 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -12,7 +12,9 @@ [parser ["." cli]]] [data - ["." text ("#\." equivalence)]] + ["." text] + [collection + ["." list]]] [math ["." random (#+ Random) ("#\." monad)]]]] [\\program @@ -74,8 +76,8 @@ (|> expected ..format (cli.result /.command) - (case> (#try.Success [name actual]) - (and (text\= //.default name) + (case> (#try.Success [names actual]) + (and (\ (list.equivalence text.equivalence) = (list //.default) names) (\ /.equivalence = expected actual)) (#try.Failure error) @@ -92,7 +94,7 @@ (list& "with" expected_profile) (cli.result /.command) (case> (#try.Success [actual_profile actual_command]) - (and (text\= expected_profile actual_profile) + (and (\ (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile) (\ /.equivalence = expected_command actual_command)) (#try.Failure error) |