From c29f487ec8dda9b156ae924cc00cc6a72b31a495 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 21 Jan 2014 14:49:44 +0100
Subject: add test cases for imaginary station and no results in timeframe

---
 t/30-iris-const.t    | 17 ++++++++++++++++-
 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;
@@ -39,6 +39,21 @@ $status = Travel::Status::DE::IRIS->new(
 
 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',
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');
-- 
cgit v1.2.3