summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/icli3
-rw-r--r--t/50-icli.t7
2 files changed, 9 insertions, 1 deletions
diff --git a/bin/icli b/bin/icli
index c5fd4ac..98729c2 100755
--- a/bin/icli
+++ b/bin/icli
@@ -7,6 +7,8 @@ use 5.010;
use Getopt::Long qw/:config bundling/;
use Term::ANSIColor;
+my $version = '0.0+git';
+
my ($cache, $config, $data, $extra);
my $config_file = '/var/cache/icinga/objects.cache';
my $status_file = '/var/lib/icinga/status.dat';
@@ -182,6 +184,7 @@ GetOptions(
'h|host=s' => sub { push(@for_hosts, split(/,/, $_[1])) },
'l|list=s' => sub { $list_type = substr($_[1], 0, 1) },
's|short' => \$short,
+ 'V|version' => sub { say "icli version $version"; exit 0 },
);
read_objects($status_file, \$data);
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');