Unverified Commit 239fb9be authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

tests: perltidy

parent 9c5f49c4

t/31-result-basics.t

+45 −44
Original line number Diff line number Diff line
@@ -32,7 +32,6 @@ my $ice645 = $results[0]; 
my $s1      = $results[1];

my $ice1529 = $results[27];





# Generic checks: All accessors should work



isa_ok( $ice645->arrival,         'DateTime' );
@@ -41,7 +40,8 @@ isa_ok($ice645->departure, 'DateTime'); 
isa_ok( $ice645->sched_arrival,   'DateTime' );

isa_ok( $ice645->sched_departure, 'DateTime' );

isa_ok( $ice645->start,           'DateTime' );

is($ice645->datetime, $ice645->sched_departure, 'datetime is sched_departure');

is( $ice645->datetime, $ice645->sched_departure,

	'datetime is sched_departure' );

is_deeply( ['F'], [ $ice645->classes ], '->classes' );

is( $ice645->date,            '03.01.2014',        '->date' );

is( $ice645->arrival_delay,   53,                  '->arrival_delay' );
@@ -76,7 +76,8 @@ is($ice1529->delay, 36, '->delay defaults to departure_delay'); 
for my $i ( 0 .. $#results ) {

	my $r = $results[$i];

	is( $r->origin, $r->route_start, "results[$i]: origin == route_start" );

	is($r->destination, $r->route_end, "results[$i]: destination == routd_end");

	is( $r->destination, $r->route_end,

		"results[$i]: destination == routd_end" );

	is( $r->train, $r->line, "results[$i]: line == train" );

}

t/32-result-messages.t

+29 −7
Original line number Diff line number Diff line
@@ -44,14 +44,36 @@ is_deeply( 
is_deeply(

	[ $ice645->messages ],

	[

		[ '2014-01-03T20:02:00', 'Abweichende Wagenreihung', 'r16669585', undef, undef ],

		[

			'2014-01-03T20:02:00', 'Abweichende Wagenreihung',

			'r16669585',           undef,

			undef

		],

		[ '2014-01-03T20:01:00', 'Unwetter', 'r16669574', undef, undef ],

		[ '2014-01-03T20:00:00', 'Witterungsbedingte Beeinträchtigungen', 'r16669548', undef, undef ],

		[ '2014-01-03T19:59:00', 'Witterungsbedingte Beeinträchtigungen', 'r16669529', undef, undef ],

		[ '2014-01-03T19:58:00', 'Witterungsbedingte Beeinträchtigungen', 'r16669524', undef, undef ],

		[ '2014-01-03T19:48:00', 'Witterungsbedingte Beeinträchtigungen', 'r16669306', undef, undef ],

		[ '2014-01-03T19:15:00', 'Witterungsbedingte Beeinträchtigungen', 'r16668654', undef, undef ],

		[ '2014-01-03T19:03:00', 'Witterungsbedingte Beeinträchtigungen', 'r16668407', undef, undef ]

		[

			'2014-01-03T20:00:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16669548', undef, undef

		],

		[

			'2014-01-03T19:59:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16669529', undef, undef

		],

		[

			'2014-01-03T19:58:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16669524', undef, undef

		],

		[

			'2014-01-03T19:48:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16669306', undef, undef

		],

		[

			'2014-01-03T19:15:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16668654', undef, undef

		],

		[

			'2014-01-03T19:03:00', 'Witterungsbedingte Beeinträchtigungen',

			'r16668407', undef, undef

		]

	],

	'messages: with dups'

);

t/33-result-route.t

+13 −8
Original line number Diff line number Diff line
@@ -93,11 +93,16 @@ is_deeply( 
	'route_post'

);



is_deeply([$ice645->route_interesting],

	['Bochum', 'Dortmund', 'Bielefeld'], 'route_interesting with just major');

is_deeply([$s1->route_interesting],

	[], 'route_interesting with realtime');

is_deeply(

	[ $ice645->route_interesting ],

	[ 'Bochum', 'Dortmund', 'Bielefeld' ],

	'route_interesting with just major'

);

is_deeply( [ $s1->route_interesting ], [], 'route_interesting with realtime' );

is_deeply( [ $s9->route_interesting ],

	[], 'route_interesting, train ends here' );

is_deeply([$abr->route_interesting],

	['Essen-Kray Süd', 'Bochum', 'Witten'], 'route_interesting with minor');
 
is_deeply(

	[ $abr->route_interesting ],

	[ 'Essen-Kray Süd', 'Bochum', 'Witten' ],

	'route_interesting with minor'

);

t/34-result-transfer.t

+7 −5
Original line number Diff line number Diff line
@@ -29,5 +29,7 @@ my $re2_a = $results[13]; 


is( $re2_a->train_no,     '30030', 'transfer RE2: train_no is new no' );

is( $re2_a->old_train_no, '10230', 'transfer RE2: old_train_no is old no' );

is($re2_a->train_id, '7760830705227608221', 'transfer RE2: train_id is new id');

is($re2_a->old_train_id, '5716084173145223820', 'transfer RE2: old_train_id is new id');
 
is( $re2_a->train_id, '7760830705227608221',

	'transfer RE2: train_id is new id' );

is( $re2_a->old_train_id, '5716084173145223820',

	'transfer RE2: old_train_id is new id' );

t/35-result-wings.t

+21 −21

File changed.

Contains only whitespace changes.

t/20-iris-class.t

+5 −5

File changed.

Contains only whitespace changes.