From 8d952e1b3a40d59d95e827aee419b3bf79194cb9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 22 Jan 2014 11:53:01 +0100 Subject: use predefined datetime for tests --- lib/Travel/Status/DE/URA.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/Travel') diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 71981c6..5e25074 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -25,6 +25,8 @@ sub new { } my $self = { + datetime => $opt{datetime} + // DateTime->now( time_zone => 'Europe/Berlin' ), ura_base => $opt{ura_base}, ura_version => $opt{ura_version}, full_routes => $opt{full_routes} // 0, @@ -63,6 +65,8 @@ sub new_from_raw { my ( $class, %opt ) = @_; my $self = { + datetime => $opt{datetime} + // DateTime->now( time_zone => 'Europe/Berlin' ), ura_base => $opt{ura_base}, ura_version => $opt{ura_version}, full_routes => $opt{full_routes} // 0, @@ -127,7 +131,7 @@ sub results { my $stop = $opt{stop} // $self->{stop}; my $via = $opt{via} // $self->{via}; - my $dt_now = DateTime->now( time_zone => 'Europe/Berlin' ); + my $dt_now = $self->{datetime}; my $ts_now = $dt_now->epoch; if ($via) { -- cgit v1.2.3