diff options
Diffstat (limited to 't/50-icli.t')
| -rw-r--r-- | t/50-icli.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/50-icli.t b/t/50-icli.t index 9fd7983..a5fc8a6 100644 --- a/t/50-icli.t +++ b/t/50-icli.t @@ -6,7 +6,7 @@ use 5.010; # We need commas in our qw list, they're not accidental no warnings 'qw'; -use Test::Command tests => (36*3); +use Test::Command tests => (38*3); my $icli = 'bin/icli -f t/in/status.dat -c t/in/objects.cache'; @@ -91,6 +91,16 @@ $cmd->exit_is_num(0); $cmd->stdout_is_file('t/out/list_services_single'); $cmd->stderr_is_eq($EMPTY); +$cmd = Test::Command->new(cmd => "$icli -lh -v"); +$cmd->exit_is_num(0); +$cmd->stdout_is_file('t/out/list_hosts_v'); +$cmd->stderr_is_eq($EMPTY); + +$cmd = Test::Command->new(cmd => "$icli -ls -v"); +$cmd->exit_is_num(0); +$cmd->stdout_is_file('t/out/list_services_v'); +$cmd->stderr_is_eq($EMPTY); + $cmd = Test::Command->new(cmd => "$icli -lq"); $cmd->exit_is_num(0); $cmd->stdout_is_file('t/out/list_queue'); |