From 233d24483e7be77e85893fdceafb6f508788fbdf Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 24 Dec 2013 14:53:32 +0100
Subject: results(via => ...) tests

---
 t/20-aseag.t | 119 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 118 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/20-aseag.t b/t/20-aseag.t
index 40e819c..bbdeb6c 100644
--- a/t/20-aseag.t
+++ b/t/20-aseag.t
@@ -7,7 +7,7 @@ use utf8;
 use Encode qw(decode);
 use File::Slurp qw(slurp);
 use List::Util qw(first);
-use Test::More tests => 19;
+use Test::More tests => 40;
 
 BEGIN {
 	use_ok('Travel::Status::DE::ASEAG');
@@ -106,3 +106,120 @@ $s = Travel::Status::DE::ASEAG->new_from_raw(
 is( @results, 375, '"Aachen Bushof" matches 375 stops in constructor' );
 is( ( first { $_->stop ne 'Aachen Bushof' } @results ),
 	undef, '"Aachen Bushof" only matches "Aachen Bushof" in constructor' );
+
+# via filter in ->results, implicit route_after
+
+$s = Travel::Status::DE::ASEAG->new_from_raw(
+	raw_str   => $rawstr,
+	hide_past => 0,
+	stop      => 'Aachen Bushof',
+	fuzzy     => 0
+);
+@results = $s->results( via => 'Finkensief' );
+
+is( @results, 5, '"Aachen Bushof" via_after Finkensief' );
+ok( ( first { $_->line == 25 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 25' );
+ok(
+	( first { $_->destination eq 'Stolberg Mühlener Bf.' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Stolberg Muehlener Bf.'
+);
+ok( ( first { $_->line == 1 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 1' );
+ok(
+	( first { $_->destination eq 'Schevenhütte' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Schevenhuette'
+);
+is( ( first { $_->line != 1 and $_->line != 25 } @results ),
+	undef, '"Aachen Bushof" via_after "Brand" does not contain other lines' );
+is(
+	(
+		first {
+			$_->destination ne 'Stolberg Mühlener Bf.'
+			  and $_->destination ne 'Schevenhütte';
+		}
+		@results
+	),
+	undef,
+	'"Aachen Bushof" via_after "Brand" does not contain other dests'
+);
+
+# via filter in ->results, explicit route_after
+
+$s = Travel::Status::DE::ASEAG->new_from_raw(
+	raw_str   => $rawstr,
+	hide_past => 0,
+	stop      => 'Aachen Bushof',
+	fuzzy     => 0
+);
+@results = $s->results(
+	via         => 'Finkensief',
+	full_routes => 'after'
+);
+
+is( @results, 5, '"Aachen Bushof" via_after Finkensief' );
+ok( ( first { $_->line == 25 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 25' );
+ok(
+	( first { $_->destination eq 'Stolberg Mühlener Bf.' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Stolberg Muehlener Bf.'
+);
+ok( ( first { $_->line == 1 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 1' );
+ok(
+	( first { $_->destination eq 'Schevenhütte' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Schevenhuette'
+);
+is( ( first { $_->line != 1 and $_->line != 25 } @results ),
+	undef, '"Aachen Bushof" via_after "Brand" does not contain anything else' );
+is(
+	(
+		first {
+			$_->destination ne 'Stolberg Mühlener Bf.'
+			  and $_->destination ne 'Schevenhütte';
+		}
+		@results
+	),
+	undef,
+	'"Aachen Bushof" via_after "Brand" does not contain other dests'
+);
+
+# via filter in ->results, explicit route_before
+
+$s = Travel::Status::DE::ASEAG->new_from_raw(
+	raw_str   => $rawstr,
+	hide_past => 0,
+	stop      => 'Aachen Bushof',
+	fuzzy     => 0
+);
+@results = $s->results(
+	via         => 'Finkensief',
+	full_routes => 'before'
+);
+
+is( @results, 5, '"Aachen Bushof" via_before Finkensief' );
+ok( ( first { $_->line == 25 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 25' );
+ok(
+	( first { $_->destination eq 'Vaals Heuvel' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Vaals Heuvel'
+);
+ok( ( first { $_->line == 1 } @results ),
+	'"Aachen Bushof" via_after "Brand" contains line 1' );
+ok(
+	( first { $_->destination eq 'Lintert Friedhof' } @results ),
+	'"Aachen Bushof" via_after "Brand" contains dest Lintert Friedhof'
+);
+is( ( first { $_->line != 1 and $_->line != 25 } @results ),
+	undef, '"Aachen Bushof" via_after "Brand" does not contain anything else' );
+is(
+	(
+		first {
+			$_->destination ne 'Vaals Heuvel'
+			  and $_->destination ne 'Lintert Friedhof';
+		}
+		@results
+	),
+	undef,
+	'"Aachen Bushof" via_after "Brand" does not contain other dests'
+);
-- 
cgit v1.2.3