From 8d952e1b3a40d59d95e827aee419b3bf79194cb9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 22 Jan 2014 11:53:01 +0100
Subject: use predefined datetime for tests

---
 lib/Travel/Status/DE/URA.pm |  6 +++++-
 t/20-aseag.t                | 16 ++++++++++++++++
 t/22-results-via.t          |  8 ++++++++
 3 files changed, 29 insertions(+), 1 deletion(-)

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) {
diff --git a/t/20-aseag.t b/t/20-aseag.t
index cd3f043..2d96037 100644
--- a/t/20-aseag.t
+++ b/t/20-aseag.t
@@ -16,6 +16,14 @@ require_ok('Travel::Status::DE::ASEAG');
 
 my $rawstr = slurp('t/in/aseag_20131223T132300');
 my $s      = Travel::Status::DE::ASEAG->new_from_raw(
+	datetime  => DateTime->new(
+		year      => 2014,
+		month     => 1,
+		day       => 3,
+		hour      => 20,
+		minute    => 1,
+		time_zone => 'Europe/Berlin'
+	),
 	raw_str   => $rawstr,
 	hide_past => 0
 );
@@ -60,6 +68,14 @@ is( ( first { $_->stop ne 'Aachen Bushof' } @results ),
 
 # exact matching: also works in constructor
 $s = Travel::Status::DE::ASEAG->new_from_raw(
+	datetime  => DateTime->new(
+		year      => 2014,
+		month     => 1,
+		day       => 3,
+		hour      => 20,
+		minute    => 1,
+		time_zone => 'Europe/Berlin'
+	),
 	raw_str   => $rawstr,
 	hide_past => 0,
 	stop      => 'Aachen Bushof',
diff --git a/t/22-results-via.t b/t/22-results-via.t
index 1aa335d..7bda954 100644
--- a/t/22-results-via.t
+++ b/t/22-results-via.t
@@ -20,6 +20,14 @@ my ($s, @results);
 # via filter in ->results, implicit route_after
 
 $s = Travel::Status::DE::ASEAG->new_from_raw(
+	datetime  => DateTime->new(
+		year   => 2013,
+		month  => 12,
+		day    => 23,
+		hour   => 10,
+		minute => 0,
+		time_zone => 'Europe/Berlin'
+	),
 	raw_str   => $rawstr,
 	hide_past => 0,
 	stop      => 'Aachen Bushof',
-- 
cgit v1.2.3