summaryrefslogtreecommitdiff
path: root/t/20-iris-class.t
diff options
context:
space:
mode:
Diffstat (limited to 't/20-iris-class.t')
-rw-r--r--t/20-iris-class.t38
1 files changed, 23 insertions, 15 deletions
diff --git a/t/20-iris-class.t b/t/20-iris-class.t
index 0b33277..9d1c4a6 100644
--- a/t/20-iris-class.t
+++ b/t/20-iris-class.t
@@ -13,21 +13,29 @@ 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));
+ 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));
+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));
+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)
+ );
}