From 765bf0794a92522d13b75ced092ab0cfd8cdbf64 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 6 Feb 2014 19:13:35 +0100 Subject: add lookahead option --- t/31-result-basics.t | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) (limited to 't/31-result-basics.t') diff --git a/t/31-result-basics.t b/t/31-result-basics.t index 9a76e91..7f9423b 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 => 435; +use Test::More tests => 436; use Test::Fatal; use Travel::Status::DE::IRIS; @@ -87,3 +87,21 @@ $status = Travel::Status::DE::IRIS->new( @results = $status->results; is(@results, 0, 'no data available -> empty result list'); + +$status = Travel::Status::DE::IRIS->new( + iris_base => 'file:t/in', + lookahead => 0, + station => 'EE', + datetime => DateTime->new( + year => 2014, + month => 1, + day => 3, + hour => 20, + minute => 1, + time_zone => 'Europe/Berlin' + ) +); + +@results = $status->results; + +is(@results, 0, 'lookahead 0 -> no results'); -- cgit v1.2.3