From 80161c1e1c836ebed4117a12ded79c28e076ff5e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 23 Nov 2010 19:13:56 +0100
Subject: Tests for -v

---
 t/50-icli.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 't/50-icli.t')

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');
-- 
cgit v1.2.3