summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-12-24 14:53:32 +0100
committerDaniel Friesel <derf@finalrewind.org>2013-12-24 14:53:32 +0100
commit233d24483e7be77e85893fdceafb6f508788fbdf (patch)
tree4ca8534cacc60b110355df6457519b2cf0231716
parente2cbbe502cf1543e3209b5121bd0180ae1d60695 (diff)
results(via => ...) tests
-rw-r--r--t/20-aseag.t119
1 files changed, 118 insertions, 1 deletions
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'
+);