add route and route_interesting tests

1 files changed, 232 insertions, 1 deletions

diff --git a/t/20-db.t b/t/20-db.t
index ba57173..6dd7760 100755
--- a/t/20-db.t
+++ b/t/20-db.t
@@ -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',