diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/00-compile-pm.t | 8 | ||||
| -rw-r--r-- | t/01-compile-pl.t | 8 | ||||
| -rw-r--r-- | t/02-compile-pod.t | 8 | ||||
| -rw-r--r-- | t/20-iris-class.t | 33 | ||||
| -rw-r--r-- | t/in/fchg/8000098 (renamed from t/in/fchg-8000098) | 0 | ||||
| -rw-r--r-- | t/in/plan/8000098/140103/20 (renamed from t/in/plan-8000098-20) | 0 | ||||
| -rw-r--r-- | t/in/plan/8000098/140103/21 (renamed from t/in/plan-8000098-21) | 0 | ||||
| -rw-r--r-- | t/in/plan/8000098/140103/22 (renamed from t/in/plan-8000098-22) | 0 | ||||
| -rw-r--r-- | t/in/plan/8000098/140103/23 (renamed from t/in/plan-8000098-23) | 0 | ||||
| -rw-r--r-- | t/in/station/EE | 3 |
10 files changed, 60 insertions, 0 deletions
diff --git a/t/00-compile-pm.t b/t/00-compile-pm.t new file mode 100644 index 0000000..2476ab2 --- /dev/null +++ b/t/00-compile-pm.t @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use Test::More; +use Test::Compile; + +all_pm_files_ok(); diff --git a/t/01-compile-pl.t b/t/01-compile-pl.t new file mode 100644 index 0000000..f130ac4 --- /dev/null +++ b/t/01-compile-pl.t @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use Test::More; +use Test::Compile; + +all_pl_files_ok(); diff --git a/t/02-compile-pod.t b/t/02-compile-pod.t new file mode 100644 index 0000000..5fe4faa --- /dev/null +++ b/t/02-compile-pod.t @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use Test::More; +use Test::Pod; + +all_pod_files_ok(); diff --git a/t/20-iris-class.t b/t/20-iris-class.t new file mode 100644 index 0000000..0b33277 --- /dev/null +++ b/t/20-iris-class.t @@ -0,0 +1,33 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; + +use DateTime; +use Test::More tests => 274; + +BEGIN { + use_ok('Travel::Status::DE::IRIS'); +} +require_ok('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)); + +isa_ok($status, 'Travel::Status::DE::IRIS'); +can_ok($status, qw(errstr results)); + +for my $result ($status->results) { + isa_ok($result, 'Travel::Status::DE::IRIS::Result'); + can_ok($result, qw( + arrival classes date datetime delay departure is_cancelled line_no + platform raw_id realtime_xml route_start route_end sched_arrival + sched_departure sched_route_start sched_route_end start stop_no time + train_id train_no type unknown_t unknown_o + origin destination delay_messages qos_messages messages + info line route_pre route_post route train route_interesting + sched_route_pre sched_route_post sched_route TO_JSON)); +} diff --git a/t/in/fchg-8000098 b/t/in/fchg/8000098 index da38200..da38200 100644 --- a/t/in/fchg-8000098 +++ b/t/in/fchg/8000098 diff --git a/t/in/plan-8000098-20 b/t/in/plan/8000098/140103/20 index 92ab555..92ab555 100644 --- a/t/in/plan-8000098-20 +++ b/t/in/plan/8000098/140103/20 diff --git a/t/in/plan-8000098-21 b/t/in/plan/8000098/140103/21 index f629697..f629697 100644 --- a/t/in/plan-8000098-21 +++ b/t/in/plan/8000098/140103/21 diff --git a/t/in/plan-8000098-22 b/t/in/plan/8000098/140103/22 index 7bd4b8d..7bd4b8d 100644 --- a/t/in/plan-8000098-22 +++ b/t/in/plan/8000098/140103/22 diff --git a/t/in/plan-8000098-23 b/t/in/plan/8000098/140103/23 index b7ccb8f..b7ccb8f 100644 --- a/t/in/plan-8000098-23 +++ b/t/in/plan/8000098/140103/23 diff --git a/t/in/station/EE b/t/in/station/EE new file mode 100644 index 0000000..a57a820 --- /dev/null +++ b/t/in/station/EE @@ -0,0 +1,3 @@ +<stations> +<station name="Essen Hbf" eva="8000098" ds100="EE"/> +</stations> |