summaryrefslogtreecommitdiff
path: root/t/33_result-route.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-19 22:41:30 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-19 22:41:30 +0100
commitd47a165b3463fd3d52e5a05a821b7a8fd16f45ec (patch)
treed9afa174707cdd338040811f6a2d06070f297eac /t/33_result-route.t
parentf8b052ab7c8dffc9aa873a6c35744c33ded4996a (diff)
add some ::Result tests (todo: detailed message and route tests)
Diffstat (limited to 't/33_result-route.t')
-rw-r--r--t/33_result-route.t99
1 files changed, 99 insertions, 0 deletions
diff --git a/t/33_result-route.t b/t/33_result-route.t
new file mode 100644
index 0000000..08c096d
--- /dev/null
+++ b/t/33_result-route.t
@@ -0,0 +1,99 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+use utf8;
+
+use DateTime;
+use Test::More tests => 8;
+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([$abr->route_interesting],
+ ['Essen-Kray Süd', 'Bochum', 'Witten'], 'route_interesting with minor');