diff options
| -rw-r--r-- | t/50-www-efa.t | 257 |
1 files changed, 239 insertions, 18 deletions
diff --git a/t/50-www-efa.t b/t/50-www-efa.t index f7a7410..8a54025 100644 --- a/t/50-www-efa.t +++ b/t/50-www-efa.t @@ -3,31 +3,252 @@ use strict; use warnings; use 5.010; -use Test::More tests => 6; +use Test::More tests => 127; BEGIN { use_ok('WWW::Efa'); } require_ok('WWW::Efa'); -my $conf_default = { - from => ['Essen', 'HBf'], - to => ['Koeln', 'HBf'], -}; -my $post_default = { - place_origin => 'Essen', - name_origin => 'HBf', - type_origin => 'stop', - place_destination => 'Koeln', - name_destination => 'HBf', - type_destination => 'stop', -}; +sub efa_conf { + my $ret = { + from => ['Essen', 'HBf'], + to => ['Koeln', 'HBf'], + }; + foreach my $p (@_) { + $ret->{$p->[0]} = $p->[1]; + } + return $ret; +} + +sub efa_post { + my $ret = { + place_origin => 'Essen', + name_origin => 'HBf', + type_origin => 'stop', + place_destination => 'Koeln', + name_destination => 'HBf', + type_destination => 'stop', + }; + foreach my $p (@_) { + $ret->{$p->[0]} = $p->[1]; + } + return $ret; +} + +sub efa_new { + return new_ok( + 'WWW::Efa' => [%{efa_conf(@_)}] + ); +} + +sub is_efa_post { + my ($ck, $cv, @post) = @_; + my $efa = efa_new([$ck, $cv]); + + is_deeply( + $efa->{'config'}, efa_conf([$ck, $cv]), + "$ck => $cv: conf ok", + ); + + is( + $efa->{'error'}, undef, + "$ck => $cv: No error", + ); + + is_deeply( + $efa->{'post'}, efa_post(@post), + "$ck => $cv: POST ok", + ); +} + +sub is_efa_err { + my ($key, $val, $str) = @_; + my $efa = efa_new([$key, $val]); + + my $val_want = $val; + + if (ref $val eq 'ARRAY') { + $val_want = join(q{ }, @{$val}); + } + + is_deeply( + $efa->{'config'}, efa_conf([$key, $val]), + "conf ok: $key => $val", + ); + + is( + $efa->{'error'}->{'source'}, 'internal', + "$key => $val: Error source is internal", + ); + is( + $efa->{'error'}->{'type'}, 'conf', + "$key => $val: Error type is conf", + ); + + is_deeply( + $efa->{'error'}->{'data'}, [$key, $val_want, $str], + "$key => $val: Error data is [$key, $val_want, $str]", + ); +} + +is_efa_post('ignored', 'ignored'); + +my $efa = new_ok('WWW::Efa' => []); +isa_ok($efa->{'error'}, 'WWW::Efa::Error'); +is($efa->{'error'}->{'source'}, 'internal'); +is($efa->{'error'}->{'type'}, 'conf' ); +is_deeply($efa->{'error'}->{'data'}, ['place', 'origin', 'Need at least two elements']); + +is_efa_post( + 'via', ['MH', 'HBf'], + ['place_via', 'MH'], + ['name_via', 'HBf'], + ['type_via', 'stop'], +); + +is_efa_post( + 'from', ['D', 'Fuerstenwall 232', 'address'], + ['place_origin', 'D'], + ['name_origin', 'Fuerstenwall 232'], + ['type_origin', 'address'], +); + +is_efa_post( + 'time', '22:23', + ['itdTripDateTimeDepArr', 'dep'], + ['itdTimeHour', '22'], + ['itdTimeMinute', '23'], +); + +is_efa_post( + 'depart', '22:23', + ['itdTripDateTimeDepArr', 'dep'], + ['itdTimeHour', '22'], + ['itdTimeMinute', '23'], +); + +is_efa_post( + 'arrive', '16:38', + ['itdTripDateTimeDepArr', 'arr'], + ['itdTimeHour', '16'], + ['itdTimeMinute', '38'], +); + +is_efa_err( + 'time', '37:00', + 'Must match HH:MM', +); + +is_efa_err( + 'time', '07', + 'Must match HH:MM', +); + +is_efa_post( + 'date', '2.10.2009', + ['itdDateDay', '2'], + ['itdDateMonth', '10'], + ['itdDateYear', '2009'], +); + +is_efa_post( + 'date', '26.12.', + ['itdDateDay', '26'], + ['itdDateMonth', '12'], + ['itdDateYear', (localtime(time))[5] + 1900], +); + +is_efa_err( + 'date', '42.5.2003', + 'Must match DD.MM.[YYYY]' +); + +is_efa_err( + 'date', '7.', + 'Must match DD.MM.[YYYY]' +); + +is_efa_post( + 'exclude', [qw[zug]], + ['inclMOT_0', undef], +); + +is_efa_post( + 'exclude', [qw[stadtbus schiff ast]], + ['inclMOT_5', undef], + ['inclMOT_9', undef], + ['inclMOT_10', undef], +); + +is_efa_err( + 'exclude', [qw[sonstige invalid]], + 'Must consist of ' + . 'zug s-bahn u-bahn stadtbahn tram stadtbus regionalbus ' + . 'schnellbus seilbahn schiff ast sonstige', +); + +is_efa_post( + 'prefer', 'speed', + ['routeType', 'LEASTTIME'], +); + +is_efa_post( + 'prefer', 'nowait', + ['routeType', 'LEASTINTERCHANGE'], +); + +is_efa_post( + 'prefer', 'nowalk', + ['routeType', 'LEASTWALKING'], +); + +is_efa_err( + 'prefer', 'invalid', + 'Must be either speed, nowait or nowalk', +); + +is_efa_post( + 'include', 'local', + ['lineRestriction', 403], +); + +is_efa_post( + 'include', 'ic', + ['lineRestriction', 401], +); + +is_efa_post( + 'include', 'ice', + ['lineRestriction', 400], +); + +is_efa_err( + 'include', 'invalid', + 'Must be one of local/ic/ice', +); + +is_efa_post( + 'walk_speed', 'normal', + ['changeSpeed', 'normal'], +); -my $efa = new_ok('WWW::Efa' => [%{$conf_default}]); +is_efa_err( + 'walk_speed', 'invalid', + 'Must be normal, fast or slow', +); -can_ok($efa, qw{new submit parse connections}); +is_efa_post( + 'max_interchanges', 5, + ['maxChanges', 5], +); -is_deeply($efa->{'config'}, $conf_default); -is_deeply($efa->{'post'}, $post_default); +is_efa_post( + 'proximity', 1, + ['useProxFootSearch', 1], +); -$efa = WWW::Efa->new(); +is_efa_post( + 'bike', 1, + ['bikeTakeAlong', 1], +); |