diff options
-rw-r--r-- | lib/WWW/Efa.pm | 9 | ||||
-rw-r--r-- | t/50-www-efa.t | 13 | ||||
-rw-r--r-- | t/60-bin-efa.t | 14 |
3 files changed, 20 insertions, 16 deletions
diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index 0716d5e..0aa2f46 100644 --- a/lib/WWW/Efa.pm +++ b/lib/WWW/Efa.pm @@ -53,7 +53,7 @@ sub post_time { my ($post, $conf) = @_; my $time; - if ($conf->{'depart'} || $conf->{'time'}) { + if ($conf->{'depart'}) { $post->{'itdTripDateTimeDepArr'} = 'dep'; $time = $conf->{'depart'} || $conf->{'time'}; } @@ -64,7 +64,8 @@ sub post_time { if ($time !~ / ^ [0-2]? \d : [0-5]? \d $ /x) { die WWW::Efa::Error::Setup->new( - 'time', $time, 'Must match HH:MM' + ($conf->{'depart'} ? 'depart' : 'arrive'), + $time, 'Must match HH:MM' ); } @{$post}{'itdTimeHour', 'itdTimeMinute'} = split(/:/, $time); @@ -179,7 +180,7 @@ sub create_post { if ($conf->{'via'}) { post_place($post, 'via', @{$conf->{'via'}}); } - if ($conf->{'arrive'} || $conf->{'depart'} || $conf->{'time'}) { + if ($conf->{'arrive'} || $conf->{'depart'}) { post_time($post, $conf); } if ($conf->{'date'}) { @@ -343,7 +344,7 @@ contain. See B<from> for arguments. Sets the journey end time -=item B<depart>|B<time> => I<HH:MM> +=item B<depart> => I<HH:MM> Sets the journey start time diff --git a/t/50-www-efa.t b/t/50-www-efa.t index bae1e94..8e56624 100644 --- a/t/50-www-efa.t +++ b/t/50-www-efa.t @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -use Test::More tests => 135; +use Test::More tests => 131; BEGIN { use_ok('WWW::Efa'); @@ -116,13 +116,6 @@ is_efa_post( ); is_efa_post( - 'time', '22:23', - ['itdTripDateTimeDepArr', 'dep'], - ['itdTimeHour', '22'], - ['itdTimeMinute', '23'], -); - -is_efa_post( 'depart', '22:23', ['itdTripDateTimeDepArr', 'dep'], ['itdTimeHour', '22'], @@ -137,12 +130,12 @@ is_efa_post( ); is_efa_err( - 'time', '37:00', + 'depart', '37:00', 'Must match HH:MM', ); is_efa_err( - 'time', '07', + 'depart', '07', 'Must match HH:MM', ); diff --git a/t/60-bin-efa.t b/t/60-bin-efa.t index 2b60233..0ae0b1f 100644 --- a/t/60-bin-efa.t +++ b/t/60-bin-efa.t @@ -94,13 +94,23 @@ for my $opt (qw/-w --walk-speed/) { ); } -for my $opt (qw/-t --time --depart -a --arrive/) { +for my $opt (qw/-t --time --depart/) { $cmd = Test::Command->new(cmd => "$efa $opt 35:12 $testarg"); $cmd->exit_isnt_num(0); $cmd->stdout_is_eq($EMPTY); $cmd->stderr_is_eq( - mk_err('time', '35:12', 'Must match HH:MM') + mk_err('depart', '35:12', 'Must match HH:MM') + ); +} + +for my $opt (qw/-a --arrive/) { + $cmd = Test::Command->new(cmd => "$efa $opt 35:12 $testarg"); + + $cmd->exit_isnt_num(0); + $cmd->stdout_is_eq($EMPTY); + $cmd->stderr_is_eq( + mk_err('arrive', '35:12', 'Must match HH:MM') ); } |