split up test cases for more concurrency

3 files changed, 177 insertions, 138 deletions

diff --git a/t/20-aseag.t b/t/20-aseag.t
index 58a324e..cd3f043 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 => 38;
+use Test::More tests => 14;
 
 BEGIN {
 	use_ok('Travel::Status::DE::ASEAG');
@@ -37,29 +37,6 @@ is( @results, 16208, 'All departures parsed and returned' );
 @results = $s->results( hide_past => 1 );
 is( @results, 0, 'hide_past => 1 returns nothing' );
 
-# fuzzy matching: bushof should return Aachen Bushof, Eschweiler Bushof,
-# Eupon Bushof
-
-my @fuzzy = $s->get_stop_by_name('bushof');
-
-is_deeply(\@fuzzy, ['Aachen Bushof', 'Eschweiler Bushof', 'Eupen Bushof'],
-'fuzzy match for "bushof" works');
-
-# fuzzy matching: whitespaces work
-
-@fuzzy = $s->get_stop_by_name('Aachen Bushof');
-
-is_deeply(\@fuzzy, ['Aachen Bushof'],
-'fuzzy match with exact name "Aachen Bushof" works');
-
-# fuzzy matching: exact name only matches one, even though longer alternatives
-# exist
-
-@fuzzy = $s->get_stop_by_name('brand');
-
-is_deeply(\@fuzzy, ['Brand'],
-'fuzzy match with exact name "brand" works');
-
 # exact matching: bushof should match nothing
 
 @results = $s->results(
@@ -93,117 +70,3 @@ $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',
-);
-@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',
-);
-@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',
-);
-@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'
-);
diff --git a/t/21-get-stop-by-name.t b/t/21-get-stop-by-name.t
new file mode 100644
index 0000000..43952ac
--- /dev/null
+++ b/t/21-get-stop-by-name.t
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+use utf8;
+
+use Encode qw(decode);
+use File::Slurp qw(slurp);
+use List::Util qw(first);
+use Test::More tests => 5;
+
+BEGIN {
+	use_ok('Travel::Status::DE::ASEAG');
+}
+require_ok('Travel::Status::DE::ASEAG');
+
+my $rawstr = slurp('t/in/aseag_20131223T132300');
+my $s      = Travel::Status::DE::ASEAG->new_from_raw(
+	raw_str   => $rawstr,
+	hide_past => 0
+);
+
+# fuzzy matching: bushof should return Aachen Bushof, Eschweiler Bushof,
+# Eupon Bushof
+
+my @fuzzy = $s->get_stop_by_name('bushof');
+
+is_deeply(\@fuzzy, ['Aachen Bushof', 'Eschweiler Bushof', 'Eupen Bushof'],
+'fuzzy match for "bushof" works');
+
+# fuzzy matching: whitespaces work
+
+@fuzzy = $s->get_stop_by_name('Aachen Bushof');
+
+is_deeply(\@fuzzy, ['Aachen Bushof'],
+'fuzzy match with exact name "Aachen Bushof" works');
+
+# fuzzy matching: exact name only matches one, even though longer alternatives
+# exist
+
+@fuzzy = $s->get_stop_by_name('brand');
+
+is_deeply(\@fuzzy, ['Brand'],
+'fuzzy match with exact name "brand" works');
diff --git a/t/22-results-via.t b/t/22-results-via.t
new file mode 100644
index 0000000..1aa335d
--- /dev/null
+++ b/t/22-results-via.t
@@ -0,0 +1,132 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+use utf8;
+
+use Encode qw(decode);
+use File::Slurp qw(slurp);
+use List::Util qw(first);
+use Test::More tests => 23;
+
+BEGIN {
+	use_ok('Travel::Status::DE::ASEAG');
+}
+require_ok('Travel::Status::DE::ASEAG');
+
+my $rawstr = slurp('t/in/aseag_20131223T132300');
+my ($s, @results);
+
+# via filter in ->results, implicit route_after
+
+$s = Travel::Status::DE::ASEAG->new_from_raw(
+	raw_str   => $rawstr,
+	hide_past => 0,
+	stop      => 'Aachen Bushof',
+);
+@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',
+);
+@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',
+);
+@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'
+);