From e8d4fa8c1cacc4062a573c46ced2e7c1ee25212a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 30 Jul 2010 00:39:28 +0200 Subject: icli -lq: Support filtering output with -h/-g --- t/50-icli.t | 7 ++++++- t/out/list_queue_aneurysm | 13 +++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 t/out/list_queue_aneurysm (limited to 't') diff --git a/t/50-icli.t b/t/50-icli.t index d5a4b65..2ab76e4 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 => (21*3); +use Test::Command tests => (22*3); my $icli = 'bin/icli -f t/in/status.dat -c t/in/objects.cache'; @@ -80,6 +80,11 @@ $cmd->exit_is_num(0); $cmd->stdout_is_file('t/out/list_queue'); $cmd->stderr_is_eq($EMPTY); +$cmd = Test::Command->new(cmd => "$icli -lq -h aneurysm"); +$cmd->exit_is_num(0); +$cmd->stdout_is_file('t/out/list_queue_aneurysm'); +$cmd->stderr_is_eq($EMPTY); + $cmd = Test::Command->new(cmd => "$icli -g invalid"); $cmd->exit_isnt_num(0); diff --git a/t/out/list_queue_aneurysm b/t/out/list_queue_aneurysm new file mode 100644 index 0000000..dc0f3fa --- /dev/null +++ b/t/out/list_queue_aneurysm @@ -0,0 +1,13 @@ +Host Service Last Check Next Check +aneurysm SMTP 2010-07-28 10:43:36 2010-07-28 10:48:36 +aneurysm Disk: /data 2010-07-28 10:43:45 2010-07-28 10:48:45 +aneurysm Disk: /boot 2010-07-28 10:44:01 2010-07-28 10:49:01 +aneurysm Disk: /home 2010-07-28 10:44:56 2010-07-28 10:49:56 +aneurysm Load 2010-07-28 10:45:31 2010-07-28 10:50:31 +aneurysm Processes 2010-07-28 10:45:48 2010-07-28 10:50:48 +aneurysm HTTPS 2010-07-28 10:46:06 2010-07-28 10:51:06 +aneurysm Disk: / 2010-07-28 10:46:21 2010-07-28 10:51:21 +aneurysm 2010-07-28 10:47:26 2010-07-28 10:52:36 +aneurysm HTTP 2010-07-28 10:48:18 2010-07-28 10:53:18 +aneurysm SSH 2010-07-28 10:48:33 2010-07-28 10:53:33 +aneurysm SSH password login d 2010-07-28 10:47:48 2010-07-28 11:02:48 -- cgit v1.2.3