From 9b928981cf06af49d13b378c7f9e633ef343767f Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 28 Jul 2010 16:38:38 +0200 Subject: Add -V/--version switch --- t/50-icli.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/50-icli.t b/t/50-icli.t index 2eafcf5..53fe15a 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 => (19*3); +use Test::Command tests => (20*3); my $icli = 'bin/icli -f t/in/status.dat -c t/in/objects.cache'; @@ -15,6 +15,11 @@ $cmd->exit_is_num(0); $cmd->stdout_is_file('t/out/standard'); $cmd->stderr_is_eq($EMPTY); +$cmd = Test::Command->new(cmd => "$icli -V"); +$cmd->exit_is_num(0); +$cmd->stdout_like(qr{ ^ icli \s version \s \S+ $ }x); +$cmd->stderr_is_eq($EMPTY); + $cmd = Test::Command->new(cmd => "$icli -lh -g local"); $cmd->exit_is_num(0); $cmd->stdout_is_file('t/out/hosts_group_local'); -- cgit v1.2.3