summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--t/00-compile-pm.t8
-rw-r--r--t/01-compile-pl.t8
-rw-r--r--t/02-compile-pod.t8
-rw-r--r--t/20-iris-class.t33
-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/EE3
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>