diff options
| author | Eduardo Julian | 2022-08-12 22:26:57 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-08-12 22:26:57 -0400 |
| commit | 772f621c19408c711c1e587668a52a8cfeeea418 (patch) | |
| tree | 94a53cae11dc6fe5d46f993fc30364490e668d16 /stdlib/source/test/aedifex/cli.lux | |
| parent | 29922d1411a75f9fb4259d66e427070aae72b3d3 (diff) | |
Fixes for Aedifex tests.
Diffstat (limited to 'stdlib/source/test/aedifex/cli.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/cli.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index b388866c6..fa6d9c72c 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -7,15 +7,15 @@ ["$[0]" equivalence]]] [control ["[0]" pipe] - ["[0]" try] - [parser - ["[0]" cli]]] + ["[0]" try]] [data ["[0]" text] [collection ["[0]" list]]] [math ["[0]" random (.only Random) (.use "[1]#[0]" monad)]] + [program + ["cli" \\parser]] [test ["_" property (.only Test)]]]] [\\program @@ -79,7 +79,7 @@ (cli.result /.command) (pipe.when {try.#Success [names actual]} - (and (at (list.equivalence text.equivalence) = (list //.default) names) + (and (at (list.equivalence text.equivalence) = (list) names) (at /.equivalence = expected actual)) {try.#Failure error} @@ -97,7 +97,7 @@ (cli.result /.command) (pipe.when {try.#Success [actual_profile actual_command]} - (and (at (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile) + (and (at (list.equivalence text.equivalence) = (list expected_profile) actual_profile) (at /.equivalence = expected_command actual_command)) {try.#Failure error} |