diff options
| -rwxr-xr-x | t/20-db.t | 233 |
1 files changed, 232 insertions, 1 deletions
@@ -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', |