Add short option for --version

2 files changed, 8 insertions, 6 deletions

diff --git a/bin/efa b/bin/efa
index a1a0f1f..f15da8a 100755
--- a/bin/efa
+++ b/bin/efa
@@ -220,7 +220,7 @@ GetOptions(
 	't|time=s'       => \$time,
 	'to=s{2}'        => \@to,
 	'to-type=s'      => \$to_type,
-	'version'        => sub {print "efa version $version\n"; exit 0},
+	'v|version'      => sub {print "efa version $version\n"; exit 0},
 	'via=s{2}'       => \@via,
 	'via-type=s'     => \$via_type,
 	'w|walk-speed=s' => \$walk_speed,
diff --git a/test/50-efa.t b/test/50-efa.t
index 418e17e..c09e582 100644
--- a/test/50-efa.t
+++ b/test/50-efa.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.010;
-use Test::Command tests => 48;
+use Test::Command tests => 51;
 
 my $efa     = 'bin/efa';
 my $testarg = "E HBf MH HBf";
@@ -86,8 +86,10 @@ for my $opt (qw/-d --date/) {
 	$cmd->stderr_is_eq($err_date);
 }
 
-$cmd = Test::Command->new(cmd => "$efa --version");
+for my $opt (qw/-v --version/) {
+	$cmd = Test::Command->new(cmd => "$efa $opt");
 
-$cmd->exit_is_num(0);
-$cmd->stdout_like($re_version);
-$cmd->stderr_is_eq('');
+	$cmd->exit_is_num(0);
+	$cmd->stdout_like($re_version);
+	$cmd->stderr_is_eq('');
+}