summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--t/20-vrr.t171
1 files changed, 66 insertions, 105 deletions
diff --git a/t/20-vrr.t b/t/20-vrr.t
index 4db9036..0b9a758 100644
--- a/t/20-vrr.t
+++ b/t/20-vrr.t
@@ -14,207 +14,168 @@ require_ok('Travel::Routing::DE::VRR');
sub efa_conf {
my $ret = {
efa_url => 'https://app.vrr.de/vrrstd/XML_TRIP_REQUEST2',
- origin => ['Essen', 'HBf'],
- destination => ['Koeln', 'HBf'],
+ origin => [ 'Essen', 'HBf' ],
+ destination => [ 'Koeln', 'HBf' ],
rm_base => 'https://app.vrr.de/vrrstd/',
sm_base => 'https://app.vrr.de/download/envmaps/',
lwp_options => {},
submit => 0,
};
foreach my $p (@_) {
- $ret->{$p->[0]} = $p->[1];
+ $ret->{ $p->[0] } = $p->[1];
}
return $ret;
}
sub efa_new {
- return new_ok(
- 'Travel::Routing::DE::VRR' => [%{efa_conf(@_)}]
- );
+ return new_ok( 'Travel::Routing::DE::VRR' => [ %{ efa_conf(@_) } ] );
}
sub is_efa_post {
- my ($ck, $cv, @post) = @_;
- my $efa = efa_new([$ck, $cv]);
+ my ( $ck, $cv, @post ) = @_;
+ my $efa = efa_new( [ $ck, $cv ] );
my $ok = 1;
is_deeply(
- $efa->{'config'}, efa_conf([$ck, $cv]),
+ $efa->{'config'},
+ efa_conf( [ $ck, $cv ] ),
"$ck => $cv: conf ok",
);
foreach my $ref (@post) {
- my ($key, $value) = @{$ref};
- if (not defined $efa->{'post'}->{"key"} and
- not defined $value) {
+ my ( $key, $value ) = @{$ref};
+ if ( not defined $efa->{'post'}->{"key"}
+ and not defined $value )
+ {
next;
}
- if ($efa->{'post'}->{"$key"} ne $value) {
+ if ( $efa->{'post'}->{"$key"} ne $value ) {
$ok = 0;
last;
}
}
- ok(
- $ok,
- "$ck => $cv: POST okay",
- );
+ ok( $ok, "$ck => $cv: POST okay", );
}
sub is_efa_err {
- my ($ck, $cv, $exception) = @_;
+ my ( $ck, $cv, $exception ) = @_;
isa_ok(
- exception { Travel::Routing::DE::VRR->new(%{efa_conf([$ck, $cv])}) },
+ exception {
+ Travel::Routing::DE::VRR->new( %{ efa_conf( [ $ck, $cv ] ) } )
+ },
$exception,
"$ck => $cv"
);
}
-is_efa_post('ignored', 'ignored');
+is_efa_post( 'ignored', 'ignored' );
my $efa;
is_efa_post(
- 'via', ['MH', 'HBf'],
- ['place_via', 'MH'],
- ['name_via', 'HBf'],
- ['type_via', 'stop'],
+ 'via',
+ [ 'MH', 'HBf' ],
+ [ 'place_via', 'MH' ],
+ [ 'name_via', 'HBf' ],
+ [ 'type_via', 'stop' ],
);
is_efa_post(
- 'origin', ['D', 'Fuerstenwall 232', 'address'],
- ['place_origin', 'D'],
- ['name_origin', 'Fuerstenwall 232'],
- ['type_origin', 'address'],
+ 'origin',
+ [ 'D', 'Fuerstenwall 232', 'address' ],
+ [ 'place_origin', 'D' ],
+ [ 'name_origin', 'Fuerstenwall 232' ],
+ [ 'type_origin', 'address' ],
);
is_efa_post(
'departure_time', '22:23',
- ['itdTripDateTimeDepArr', 'dep'],
- ['itdTimeHour', '22'],
- ['itdTimeMinute', '23'],
+ [ 'itdTripDateTimeDepArr', 'dep' ],
+ [ 'itdTimeHour', '22' ],
+ [ 'itdTimeMinute', '23' ],
);
is_efa_post(
'arrival_time', '16:38',
- ['itdTripDateTimeDepArr', 'arr'],
- ['itdTimeHour', '16'],
- ['itdTimeMinute', '38'],
+ [ 'itdTripDateTimeDepArr', 'arr' ],
+ [ 'itdTimeHour', '16' ],
+ [ 'itdTimeMinute', '38' ],
);
is_efa_post(
'date', '2.10.2009',
- ['itdDateDay', '2'],
- ['itdDateMonth', '10'],
- ['itdDateYear', '2009'],
+ [ 'itdDateDay', '2' ],
+ [ 'itdDateMonth', '10' ],
+ [ 'itdDateYear', '2009' ],
);
is_efa_post(
'date', '26.12.',
- ['itdDateDay', '26'],
- ['itdDateMonth', '12'],
- ['itdDateYear', (localtime(time))[5] + 1900],
+ [ 'itdDateDay', '26' ],
+ [ 'itdDateMonth', '12' ],
+ [ 'itdDateYear', ( localtime(time) )[5] + 1900 ],
);
-is_efa_post(
- 'exclude', [qw[zug]],
- ['inclMOT_0', undef],
-);
+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],
+ [ 'inclMOT_5', undef ],
+ [ 'inclMOT_9', undef ],
+ [ 'inclMOT_10', undef ],
);
-is_efa_post(
- 'select_interchange_by', 'speed',
- ['routeType', 'LEASTTIME'],
-);
+is_efa_post( 'select_interchange_by', 'speed', [ 'routeType', 'LEASTTIME' ], );
-is_efa_post(
- 'select_interchange_by', 'waittime',
- ['routeType', 'LEASTINTERCHANGE'],
+is_efa_post( 'select_interchange_by', 'waittime',
+ [ 'routeType', 'LEASTINTERCHANGE' ],
);
-is_efa_post(
- 'select_interchange_by', 'distance',
- ['routeType', 'LEASTWALKING'],
+is_efa_post( 'select_interchange_by', 'distance',
+ [ 'routeType', 'LEASTWALKING' ],
);
-is_efa_post(
- 'train_type', 'local',
- ['lineRestriction', 403],
-);
+is_efa_post( 'train_type', 'local', [ 'lineRestriction', 403 ], );
-is_efa_post(
- 'train_type', 'ic',
- ['lineRestriction', 401],
-);
+is_efa_post( 'train_type', 'ic', [ 'lineRestriction', 401 ], );
-is_efa_post(
- 'train_type', 'ice',
- ['lineRestriction', 400],
-);
+is_efa_post( 'train_type', 'ice', [ 'lineRestriction', 400 ], );
-is_efa_post(
- 'walk_speed', 'normal',
- ['changeSpeed', 'normal'],
-);
+is_efa_post( 'walk_speed', 'normal', [ 'changeSpeed', 'normal' ], );
-is_efa_post(
- 'max_interchanges', 5,
- ['maxChanges', 5],
-);
+is_efa_post( 'max_interchanges', 5, [ 'maxChanges', 5 ], );
-is_efa_post(
- 'use_near_stops', 1,
- ['useProxFootSearch', 1],
-);
+is_efa_post( 'use_near_stops', 1, [ 'useProxFootSearch', 1 ], );
-is_efa_post(
- 'with_bike', 1,
- ['bikeTakeAlong', 1],
-);
+is_efa_post( 'with_bike', 1, [ 'bikeTakeAlong', 1 ], );
-is_efa_err(
- 'departure_time', '37:00',
+is_efa_err( 'departure_time', '37:00',
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'departure_time', '07',
+is_efa_err( 'departure_time', '07',
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'train_type', 'invalid',
+is_efa_err( 'train_type', 'invalid',
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'walk_speed', 'invalid',
+is_efa_err( 'walk_speed', 'invalid',
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'select_interchange_by', 'invalid',
+is_efa_err( 'select_interchange_by', 'invalid',
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'exclude', [qw[sonstige invalid]],
+is_efa_err( 'exclude', [qw[sonstige invalid]],
'Travel::Routing::DE::EFA::Exception::Setup',
);
-is_efa_err(
- 'date', '42.5.2003',
- 'Travel::Routing::DE::EFA::Exception::Setup',
-);
+is_efa_err( 'date', '42.5.2003',
+ 'Travel::Routing::DE::EFA::Exception::Setup', );
-is_efa_err(
- 'date', '7.',
- 'Travel::Routing::DE::EFA::Exception::Setup',
-);
+is_efa_err( 'date', '7.', 'Travel::Routing::DE::EFA::Exception::Setup', );