From f09d59986998f2210314e38a1ad72d77fcfac067 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 25 Jun 2017 11:36:38 +0200 Subject: Interpret lookahead / lookbehind with 1-minute granularity --- t/20-iris-class.t | 4 ++-- t/31-result-basics.t | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 't') diff --git a/t/20-iris-class.t b/t/20-iris-class.t index 8ec50ef..a861909 100644 --- a/t/20-iris-class.t +++ b/t/20-iris-class.t @@ -4,7 +4,7 @@ use warnings; use 5.014; use DateTime; -use Test::More tests => 274; +use Test::More tests => 266; BEGIN { use_ok('Travel::Status::DE::IRIS'); @@ -22,7 +22,7 @@ my $status = Travel::Status::DE::IRIS->new( minute => 1, time_zone => 'Europe/Berlin', ), - lookahead => 3 * 60 + 59, + lookahead => 3 * 60, ); isa_ok( $status, 'Travel::Status::DE::IRIS' ); diff --git a/t/31-result-basics.t b/t/31-result-basics.t index ac2b23d..d313d4f 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 => 436; +use Test::More tests => 424; use Test::Fatal; use Travel::Status::DE::IRIS; @@ -21,12 +21,12 @@ my $status = Travel::Status::DE::IRIS->new( minute => 1, time_zone => 'Europe/Berlin' ), - lookahead => 3 * 60 + 59, + lookahead => 3 * 60, ); my @results = $status->results; -is(@results, 135, 'got 135 results'); +is(@results, 131, 'got 131 results'); my $ice645 = $results[0]; my $s1 = $results[1]; -- cgit v1.2.3