diff options
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} |