Add -V/--version switch

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');