From 849e589bf373d777cb27b03527b19cd7a3cf6e34 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 11 May 2010 16:33:18 +0200 Subject: Add short option for --version --- bin/efa | 2 +- test/50-efa.t | 12 +++++++----- 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(''); +} -- cgit v1.2.3