diff options
| -rw-r--r-- | t/30-iris-const.t | 17 | ||||
| -rw-r--r-- | t/31-result-basics.t | 19 |
2 files changed, 34 insertions, 2 deletions
diff --git a/t/30-iris-const.t b/t/30-iris-const.t index e82b59c..e8e60ae 100644 --- a/t/30-iris-const.t +++ b/t/30-iris-const.t @@ -4,7 +4,7 @@ use warnings; use 5.014; use DateTime; -use Test::More tests => 4; +use Test::More tests => 5; use Test::Fatal; use Travel::Status::DE::IRIS; @@ -41,6 +41,21 @@ ok( defined $status->errstr, 'constructor with missing data has errstr' ); $status = Travel::Status::DE::IRIS->new( iris_base => 'file:t/in', + station => 'doesnotexist', + datetime => DateTime->new( + year => 2014, + month => 1, + day => 3, + hour => 19, + minute => 1, + time_zone => 'Europe/Berlin' + ) +); + +ok( defined $status->errstr, 'constructor with imaginary station has errstr' ); + +$status = Travel::Status::DE::IRIS->new( + iris_base => 'file:t/in', station => 'EBILP', datetime => DateTime->new( year => 2014, diff --git a/t/31-result-basics.t b/t/31-result-basics.t index 206134c..9a76e91 100644 --- a/t/31-result-basics.t +++ b/t/31-result-basics.t @@ -5,7 +5,7 @@ use 5.014; use utf8; use DateTime; -use Test::More tests => 434; +use Test::More tests => 435; use Test::Fatal; use Travel::Status::DE::IRIS; @@ -70,3 +70,20 @@ for my $i (0 .. $#results) { is($r->destination, $r->route_end, "results[$i]: destination == routd_end"); is($r->train, $r->line, "results[$i]: line == train"); } + +$status = Travel::Status::DE::IRIS->new( + iris_base => 'file:t/in', + station => 'EE', + datetime => DateTime->new( + year => 2014, + month => 1, + day => 5, + hour => 20, + minute => 1, + time_zone => 'Europe/Berlin' + ) +); + +@results = $status->results; + +is(@results, 0, 'no data available -> empty result list'); |