Commit 3e96b9b5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

lookahead: do not ignore trains where only arrival is < lookahead time

parent 869aa460

lib/Travel/Status/DE/IRIS.pm

+5 −5
Original line number Diff line number Diff line
@@ -144,11 +144,11 @@ sub new { 
	}



	@{ $self->{results} } = grep {

		my $d  = ( $_->departure // $_->arrival );

		my $sd = $_->sched_departure // $_->sched_arrival // $d;

		my $d = $_->departure // $_->arrival;

		my $s = $_->sched_arrival // $_->sched_departure // $_->arrival // $d;

		$d = $d->subtract_datetime( $self->{datetime} );

		$sd = $sd->subtract_datetime( $self->{datetime} );

		not $d->is_negative and $sd->in_units('minutes') < $self->{lookahead}

		$s = $s->subtract_datetime( $self->{datetime} );

		not $d->is_negative and $s->in_units('minutes') < $self->{lookahead}

	} @{ $self->{results} };



	@{ $self->{results} }

t/20-iris-class.t

+1 −1
Original line number Diff line number Diff line
@@ -4,7 +4,7 @@ use warnings; 
use 5.014;



use DateTime;

use Test::More tests => 268;

use Test::More tests => 270;



BEGIN {

	use_ok('Travel::Status::DE::IRIS');

t/31-result-basics.t

+2 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ use 5.014; 
use utf8;



use DateTime;

use Test::More tests => 432;

use Test::More tests => 435;

use Test::Fatal;



use Travel::Status::DE::IRIS;
@@ -26,7 +26,7 @@ my $status = Travel::Status::DE::IRIS->new( 


my @results = $status->results;



is(scalar @results, 132, 'got 132 results');

is(scalar @results, 133, 'got 133 results');



my $ice645 = $results[0];

my $s1 = $results[1];