From 7272bae61c46a0877d26a57543041e6b3fc11713 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 9 Feb 2014 20:17:00 +0100 Subject: fix test name (33-, not 33_) --- t/33-result-route.t | 103 ++++++++++++++++++++++++++++++++++++++++++++++++++++ t/33_result-route.t | 103 ---------------------------------------------------- 2 files changed, 103 insertions(+), 103 deletions(-) create mode 100644 t/33-result-route.t delete mode 100644 t/33_result-route.t diff --git a/t/33-result-route.t b/t/33-result-route.t new file mode 100644 index 0000000..3cc4ea2 --- /dev/null +++ b/t/33-result-route.t @@ -0,0 +1,103 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use utf8; + +use DateTime; +use Test::More tests => 10; +use Test::Fatal; + +use Travel::Status::DE::IRIS; + +my $status = Travel::Status::DE::IRIS->new( + iris_base => 'file:t/in', + station => 'EE', + datetime => DateTime->new( + year => 2014, + month => 1, + day => 3, + hour => 20, + minute => 1, + time_zone => 'Europe/Berlin' + ) +); + +my @results = $status->results; + +my $ice645 = $results[0]; +my $s1 = $results[1]; +my $s9 = $results[8]; +my $hkx = $results[10]; +my $abr = $results[13]; + +is_deeply( + [ $ice645->route ], + [ $ice645->sched_route ], + 'route == sched_route' +); +is_deeply( + [ $ice645->route_pre ], + [ $ice645->sched_route_pre ], + 'route_pre == sched_route_pre' +); +is_deeply( + [ $ice645->route_post ], + [ $ice645->sched_route_post ], + 'route_post == sched_route_post' +); + +is_deeply( + [ $ice645->route ], + [ + 'Köln/Bonn Flughafen', + 'Köln Messe/Deutz Gl.11-12', + 'Düsseldorf Hbf', + 'Düsseldorf Flughafen', + 'Duisburg Hbf', + 'Essen Hbf', + 'Bochum Hbf', + 'Dortmund Hbf', + 'Hamm(Westf)', + 'Bielefeld Hbf', + 'Hannover Hbf', + 'Berlin-Spandau', + 'Berlin Hbf', + 'Berlin Ostbahnhof' + ], + 'route' +); +is_deeply( + [ $ice645->route_pre ], + [ + 'Köln/Bonn Flughafen', + 'Köln Messe/Deutz Gl.11-12', + 'Düsseldorf Hbf', + 'Düsseldorf Flughafen', + 'Duisburg Hbf' + ], + 'route_pre' +); +is_deeply( + [ $ice645->route_post ], + [ + 'Bochum Hbf', + 'Dortmund Hbf', + 'Hamm(Westf)', + 'Bielefeld Hbf', + 'Hannover Hbf', + 'Berlin-Spandau', + 'Berlin Hbf', + 'Berlin Ostbahnhof' + ], + '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([$s9->route_interesting], + [], 'route_interesting, train ends here'); +is_deeply([$abr->route_interesting], + ['Essen-Kray Süd', 'Bochum', 'Witten'], 'route_interesting with minor'); diff --git a/t/33_result-route.t b/t/33_result-route.t deleted file mode 100644 index 3cc4ea2..0000000 --- a/t/33_result-route.t +++ /dev/null @@ -1,103 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.014; -use utf8; - -use DateTime; -use Test::More tests => 10; -use Test::Fatal; - -use Travel::Status::DE::IRIS; - -my $status = Travel::Status::DE::IRIS->new( - iris_base => 'file:t/in', - station => 'EE', - datetime => DateTime->new( - year => 2014, - month => 1, - day => 3, - hour => 20, - minute => 1, - time_zone => 'Europe/Berlin' - ) -); - -my @results = $status->results; - -my $ice645 = $results[0]; -my $s1 = $results[1]; -my $s9 = $results[8]; -my $hkx = $results[10]; -my $abr = $results[13]; - -is_deeply( - [ $ice645->route ], - [ $ice645->sched_route ], - 'route == sched_route' -); -is_deeply( - [ $ice645->route_pre ], - [ $ice645->sched_route_pre ], - 'route_pre == sched_route_pre' -); -is_deeply( - [ $ice645->route_post ], - [ $ice645->sched_route_post ], - 'route_post == sched_route_post' -); - -is_deeply( - [ $ice645->route ], - [ - 'Köln/Bonn Flughafen', - 'Köln Messe/Deutz Gl.11-12', - 'Düsseldorf Hbf', - 'Düsseldorf Flughafen', - 'Duisburg Hbf', - 'Essen Hbf', - 'Bochum Hbf', - 'Dortmund Hbf', - 'Hamm(Westf)', - 'Bielefeld Hbf', - 'Hannover Hbf', - 'Berlin-Spandau', - 'Berlin Hbf', - 'Berlin Ostbahnhof' - ], - 'route' -); -is_deeply( - [ $ice645->route_pre ], - [ - 'Köln/Bonn Flughafen', - 'Köln Messe/Deutz Gl.11-12', - 'Düsseldorf Hbf', - 'Düsseldorf Flughafen', - 'Duisburg Hbf' - ], - 'route_pre' -); -is_deeply( - [ $ice645->route_post ], - [ - 'Bochum Hbf', - 'Dortmund Hbf', - 'Hamm(Westf)', - 'Bielefeld Hbf', - 'Hannover Hbf', - 'Berlin-Spandau', - 'Berlin Hbf', - 'Berlin Ostbahnhof' - ], - '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([$s9->route_interesting], - [], 'route_interesting, train ends here'); -is_deeply([$abr->route_interesting], - ['Essen-Kray Süd', 'Bochum', 'Witten'], 'route_interesting with minor'); -- cgit v1.2.3