From e22b73286bbf862090785adf022093dab751f62d Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 29 Jul 2010 23:41:47 +0200 Subject: Add icli -lq to list the scheduling queue --- t/50-icli.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 't/50-icli.t') diff --git a/t/50-icli.t b/t/50-icli.t index 53fe15a..d5a4b65 100644 --- a/t/50-icli.t +++ b/t/50-icli.t @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -use Test::Command tests => (20*3); +use Test::Command tests => (21*3); my $icli = 'bin/icli -f t/in/status.dat -c t/in/objects.cache'; @@ -75,6 +75,11 @@ $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 -lq"); +$cmd->exit_is_num(0); +$cmd->stdout_is_file('t/out/list_queue'); +$cmd->stderr_is_eq($EMPTY); + $cmd = Test::Command->new(cmd => "$icli -g invalid"); $cmd->exit_isnt_num(0); -- cgit v1.2.3