add route and route_interesting tests (ea967c1e) · Commits · derf / Travel-Status-DE-HAFAS

t/20-db.t

+232 −1

Original line number	Diff line number	Diff line
		@@ -7,7 +7,7 @@ use utf8;

		use File::Slurp qw(read_file);
		use JSON;
		use Test::More tests => 55;
		use Test::More tests => 106;

		use Travel::Status::DE::HAFAS;

		@@ -61,6 +61,86 @@ for my $res ( $results[0]->route_end, $results[0]->destination ) {
		is( $res, 'Philharmonie Süd, Berlin', 'result 0: route start/end' );
		}

		is( scalar $results[0]->route_interesting,
		3, 'result 0: route_interesting: 3 elements' );
		is(
		( $results[0]->route_interesting )[0]->loc->name,
		'Alexanderstr., Berlin',
		'result 0: route_interesting 0: name'
		);
		is(
		( $results[0]->route_interesting )[1]->loc->name,
		'Alexanderplatz (S+U)/Grunerstr., Berlin',
		'result 0: route_interesting 1: name'
		);
		is(
		( $results[0]->route_interesting )[2]->loc->name,
		'Rotes Rathaus (U), Berlin',
		'result 0: route_interesting 2: name'
		);

		is( scalar $results[0]->route, 12, 'result 0: route: 12 elements' );
		is(
		( $results[0]->route )[0]->loc->name,
		'Alexanderstr., Berlin',
		'result 0: route 0: name'
		);
		is(
		( $results[0]->route )[1]->loc->name,
		'Alexanderplatz (S+U)/Grunerstr., Berlin',
		'result 0: route 1: name'
		);
		is(
		( $results[0]->route )[2]->loc->name,
		'Rotes Rathaus (U), Berlin',
		'result 0: route 2: name'
		);
		is(
		( $results[0]->route )[3]->loc->name,
		'Museumsinsel (U), Berlin',
		'result 0: route 3: name'
		);
		is(
		( $results[0]->route )[4]->loc->name,
		'Staatsoper, Berlin',
		'result 0: route 4: name'
		);
		is(
		( $results[0]->route )[5]->loc->name,
		'Unter den Linden (U), Berlin',
		'result 0: route 5: name'
		);
		is(
		( $results[0]->route )[6]->loc->name,
		'Behrenstr./Wilhelmstr., Berlin',
		'result 0: route 6: name'
		);
		is(
		( $results[0]->route )[7]->loc->name,
		'Mohrenstr. (U), Berlin',
		'result 0: route 7: name'
		);
		is(
		( $results[0]->route )[8]->loc->name,
		'Leipziger Str./Wilhelmstr., Berlin',
		'result 0: route 8: name'
		);
		is(
		( $results[0]->route )[9]->loc->name,
		'Potsdamer Platz [Bus Leipziger Str.] (S+U), Berlin',
		'result 0: route 9: name'
		);
		is(
		( $results[0]->route )[10]->loc->name,
		'Varian-Fry-Str./Potsdamer Platz, Berlin',
		'result 0: route 10: name'
		);
		is(
		( $results[0]->route )[11]->loc->name,
		'Philharmonie Süd, Berlin',
		'result 0: route 11: name'
		);

		is(
		$results[0]->sched_datetime->strftime('%Y%m%d %H%M%S'),
		'20221002 165500',
		@@ -96,6 +176,66 @@ for my $res ( $results[2]->route_end, $results[2]->destination ) {
		is( $res, 'Hermannstr. (S+U), Berlin', 'result 2: route start/end' );
		}

		is( scalar $results[2]->route_interesting,
		3, 'result 2: route_interesting: 3 elements' );
		is(
		( $results[2]->route_interesting )[0]->loc->name,
		'Heinrich-Heine-Str. (U), Berlin',
		'result 2: route_interesting 0: name'
		);
		is(
		( $results[2]->route_interesting )[1]->loc->name,
		'Moritzplatz (U), Berlin',
		'result 2: route_interesting 1: name'
		);
		is(
		( $results[2]->route_interesting )[2]->loc->name,
		'Kottbusser Tor (U), Berlin',
		'result 2: route_interesting 2: name'
		);

		is( scalar $results[2]->route, 8, 'result 2: route: 8 elements' );
		is(
		( $results[2]->route )[0]->loc->name,
		'Heinrich-Heine-Str. (U), Berlin',
		'result 2: route 0: name'
		);
		is(
		( $results[2]->route )[1]->loc->name,
		'Moritzplatz (U), Berlin',
		'result 2: route 1: name'
		);
		is(
		( $results[2]->route )[2]->loc->name,
		'Kottbusser Tor (U), Berlin',
		'result 2: route 2: name'
		);
		is(
		( $results[2]->route )[3]->loc->name,
		'Schönleinstr. (U), Berlin',
		'result 2: route 3: name'
		);
		is(
		( $results[2]->route )[4]->loc->name,
		'Hermannplatz (U), Berlin',
		'result 2: route 4: name'
		);
		is(
		( $results[2]->route )[5]->loc->name,
		'Boddinstr. (U), Berlin',
		'result 2: route 5: name'
		);
		is(
		( $results[2]->route )[6]->loc->name,
		'Leinestr. (U), Berlin',
		'result 2: route 6: name'
		);
		is(
		( $results[2]->route )[7]->loc->name,
		'Hermannstr. (S+U), Berlin',
		'result 2: route 7: name'
		);

		is(
		$results[2]->sched_datetime->strftime('%Y%m%d %H%M%S'),
		'20221002 170000',
		@@ -130,6 +270,97 @@ for my $res ( $results[3]->route_end, $results[3]->destination ) {
		is( $res, 'Berlin-Spandau (S)', 'result 3: route start/end' );
		}

		is( scalar $results[3]->route_interesting,
		3, 'result 3: route_interesting: 3 elements' );
		is(
		( $results[3]->route_interesting )[0]->loc->name,
		'Berlin Alexanderplatz (S)',
		'result 3: route_interesting 0: name'
		);
		is(
		( $results[3]->route_interesting )[1]->loc->name,
		'Berlin Hackescher Markt',
		'result 3: route_interesting 1: name'
		);
		is(
		( $results[3]->route_interesting )[2]->loc->name,
		'Berlin Hbf (S-Bahn)',
		'result 3: route_interesting 2: name'
		);

		is( scalar $results[3]->route, 16, 'result 3: route: 16 elements' );
		is(
		( $results[3]->route )[0]->loc->name,
		'Berlin Alexanderplatz (S)',
		'result 3: route 0: name'
		);
		is(
		( $results[3]->route )[1]->loc->name,
		'Berlin Hackescher Markt',
		'result 3: route 1: name'
		);
		is(
		( $results[3]->route )[2]->loc->name,
		'Berlin Friedrichstraße (S)',
		'result 3: route 2: name'
		);
		is(
		( $results[3]->route )[3]->loc->name,
		'Berlin Hbf (S-Bahn)',
		'result 3: route 3: name'
		);
		is(
		( $results[3]->route )[4]->loc->name,
		'Berlin Bellevue',
		'result 3: route 4: name'
		);
		is( ( $results[3]->route )[5]->loc->name,
		'Berlin-Tiergarten', 'result 3: route 5: name' );
		is(
		( $results[3]->route )[6]->loc->name,
		'Berlin Zoologischer Garten (S)',
		'result 3: route 6: name'
		);
		is(
		( $results[3]->route )[7]->loc->name,
		'Berlin Savignyplatz',
		'result 3: route 7: name'
		);
		is(
		( $results[3]->route )[8]->loc->name,
		'Berlin Charlottenburg (S)',
		'result 3: route 8: name'
		);
		is(
		( $results[3]->route )[9]->loc->name,
		'Berlin Westkreuz',
		'result 3: route 9: name'
		);
		is(
		( $results[3]->route )[10]->loc->name,
		'Berlin Messe Süd (Eichkamp)',
		'result 3: route 10: name'
		);
		is(
		( $results[3]->route )[11]->loc->name,
		'Berlin Heerstraße',
		'result 3: route 11: name'
		);
		is(
		( $results[3]->route )[12]->loc->name,
		'Berlin Olympiastadion',
		'result 3: route 12: name'
		);
		is( ( $results[3]->route )[13]->loc->name,
		'Berlin-Pichelsberg', 'result 3: route 17: name' );
		is( ( $results[3]->route )[14]->loc->name,
		'Berlin-Stresow', 'result 3: route 14: name' );
		is(
		( $results[3]->route )[15]->loc->name,
		'Berlin-Spandau (S)',
		'result 3: route 15: name'
		);

		is(
		$results[3]->sched_datetime->strftime('%Y%m%d %H%M%S'),
		'20221002 170100',

Admin message