From d47a165b3463fd3d52e5a05a821b7a8fd16f45ec Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 19 Jan 2014 22:41:30 +0100 Subject: add some ::Result tests (todo: detailed message and route tests) --- t/31-result-basics.t | 72 ++++++++++++++++++++++++++++++++++++ t/32-result-messages.t | 56 ++++++++++++++++++++++++++++ t/33_result-route.t | 99 ++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 227 insertions(+) create mode 100644 t/31-result-basics.t create mode 100644 t/32-result-messages.t create mode 100644 t/33_result-route.t diff --git a/t/31-result-basics.t b/t/31-result-basics.t new file mode 100644 index 0000000..206134c --- /dev/null +++ b/t/31-result-basics.t @@ -0,0 +1,72 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use utf8; + +use DateTime; +use Test::More tests => 434; +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; + +is(@results, 135, 'got 135 results'); + +my $ice645 = $results[0]; +my $s1 = $results[1]; + + +# Generic checks: All accessors should work + +isa_ok($ice645->arrival, 'DateTime'); +isa_ok($ice645->datetime, 'DateTime'); +isa_ok($ice645->departure, 'DateTime'); +isa_ok($ice645->sched_arrival, 'DateTime'); +isa_ok($ice645->sched_departure, 'DateTime'); +isa_ok($ice645->start, 'DateTime'); +is($ice645->datetime, $ice645->sched_departure, 'datetime is sched_departure'); +is_deeply(['F'], [$ice645->classes], '->classes'); +is($ice645->date, '03.01.2014', '->date'); +is($ice645->delay, 53, '->delay'); +is($ice645->destination, 'Berlin Ostbahnhof', '->destination'); +ok(! $ice645->is_cancelled, '->is_cancelled for non-cancelled train'); +is($ice645->line, 'ICE 645', '->line'); +is($ice645->line_no, undef, '->line_no'); +is($ice645->origin, 'Köln/Bonn Flughafen', '->origin'); +is($ice645->platform, 4, '->platform'); +is($ice645->raw_id, '1065350279715650378-1401031812-6', '->raw_id'); +is($ice645->route_end, 'Berlin Ostbahnhof', '->routd_end'); +is($ice645->route_start, 'Köln/Bonn Flughafen', '->routd_start'); +is($ice645->sched_route_end, 'Berlin Ostbahnhof', '->sched_route_end'); +is($ice645->sched_route_start, 'Köln/Bonn Flughafen', '->sched_routd_start'); +is($ice645->stop_no, 6, '->stop_no'); +is($ice645->time, '19:23', '->time'); +is($ice645->train, 'ICE 645', '->train'); +is($ice645->train_id, '1065350279715650378', '->train_id'); +is($ice645->train_no, 645, '->train_no'); +is($ice645->type, 'ICE', '->type'); + +ok($s1->is_cancelled, '->is_cancelled for cancelled train'); + +# documented aliases should work on all results +for my $i (0 .. $#results) { + my $r = $results[$i]; + is($r->origin, $r->route_start, "results[$i]: origin == route_start"); + is($r->destination, $r->route_end, "results[$i]: destination == routd_end"); + is($r->train, $r->line, "results[$i]: line == train"); +} diff --git a/t/32-result-messages.t b/t/32-result-messages.t new file mode 100644 index 0000000..4e30355 --- /dev/null +++ b/t/32-result-messages.t @@ -0,0 +1,56 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use utf8; + +use DateTime; +use Test::More tests => 4; +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->info], +['Witterungsbedingte Störung', 'Unwetter', 'Abweichende Wagenreihung'], +'info: no dups, sorted, msg+qos'); + +is_deeply([$ice645->messages], [ +['2014-01-03T19:03:00', 'Witterungsbedingte Störung'], +['2014-01-03T19:15:00', 'Witterungsbedingte Störung'], +['2014-01-03T19:48:00', 'Witterungsbedingte Störung'], +['2014-01-03T19:58:00', 'Witterungsbedingte Störung'], +['2014-01-03T19:59:00', 'Witterungsbedingte Störung'], +['2014-01-03T20:00:00', 'Witterungsbedingte Störung'], +['2014-01-03T20:01:00', 'Unwetter'], +['2014-01-03T20:02:00', 'Abweichende Wagenreihung']], 'messages: with dups'); + +is_deeply([$ice645->qos_messages], [ +['2014-01-03T20:02:00', 'Abweichende Wagenreihung']], 'qos_messages'); + +TODO: { + local $TODO = 'no duplicate finding yet'; + is_deeply([$ice645->delay_messages], [ +['2014-01-03T19:03:00', 'Witterungsbedingte Störung'], +['2014-01-03T20:01:00', 'Unwetter']], 'delay_messages: no dups'); +} 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'); -- cgit v1.2.3