diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/20-iris-class.t | 38 |
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) + ); } |