Rename to Net::Travel::DE::VRR

1 files changed, 0 insertions, 226 deletions

diff --git a/t/50-www-efa.t b/t/50-www-efa.t
deleted file mode 100644
index 29e4af5..0000000
--- a/t/50-www-efa.t
+++ /dev/null
@@ -1,226 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-
-use Test::More tests => 59;
-
-BEGIN {
-	use_ok('WWW::Efa');
-}
-require_ok('WWW::Efa');
-
-sub efa_conf {
-	my $ret = {
-		from => ['Essen', 'HBf'],
-		to   => ['Koeln', 'HBf'],
-	};
-	foreach my $p (@_) {
-		$ret->{$p->[0]} = $p->[1];
-	}
-	return $ret;
-}
-
-sub efa_new {
-	return new_ok(
-		'WWW::Efa' => [%{efa_conf(@_)}]
-	);
-}
-
-sub is_efa_post {
-	my ($ck, $cv, @post) = @_;
-	my $efa = efa_new([$ck, $cv]);
-
-	my $ok = 1;
-
-	is_deeply(
-		$efa->{'config'}, efa_conf([$ck, $cv]),
-		"$ck => $cv: conf ok",
-	);
-
-	foreach my $ref (@post) {
-		my ($key, $value) = @{$ref};
-		if (not defined $efa->{'post'}->{"key"} and
-				not defined $value) {
-			next;
-		}
-		if ($efa->{'post'}->{"$key"} ne $value) {
-			$ok = 0;
-			last;
-		}
-	}
-	ok(
-		$ok,
-		"$ck => $cv: POST okay",
-	);
-}
-
-sub is_efa_err {
-	my ($key, $val, $str) = @_;
-	return; # FIXME error handling
-	my $efa = efa_new([$key, $val]);
-
-	my $val_want = $val;
-
-	if (ref $val eq 'ARRAY') {
-		$val_want = join(q{ }, @{$val});
-	}
-
-	is_deeply(
-		$efa->{'config'}, efa_conf([$key, $val]),
-		"conf ok: $key => $val",
-	);
-
-	# FIXME actual error tests
-
-}
-
-is_efa_post('ignored', 'ignored');
-
-my $efa;
-
-is_efa_post(
-	'via', ['MH', 'HBf'],
-	['place_via', 'MH'],
-	['name_via', 'HBf'],
-	['type_via', 'stop'],
-);
-
-is_efa_post(
-	'from', ['D', 'Fuerstenwall 232', 'address'],
-	['place_origin', 'D'],
-	['name_origin', 'Fuerstenwall 232'],
-	['type_origin', 'address'],
-);
-
-is_efa_post(
-	'depart', '22:23',
-	['itdTripDateTimeDepArr', 'dep'],
-	['itdTimeHour', '22'],
-	['itdTimeMinute', '23'],
-);
-
-is_efa_post(
-	'arrive', '16:38',
-	['itdTripDateTimeDepArr', 'arr'],
-	['itdTimeHour', '16'],
-	['itdTimeMinute', '38'],
-);
-
-is_efa_err(
-	'depart', '37:00',
-	'Must match HH:MM',
-);
-
-is_efa_err(
-	'depart', '07',
-	'Must match HH:MM',
-);
-
-is_efa_post(
-	'date', '2.10.2009',
-	['itdDateDay', '2'],
-	['itdDateMonth', '10'],
-	['itdDateYear', '2009'],
-);
-
-is_efa_post(
-	'date', '26.12.',
-	['itdDateDay', '26'],
-	['itdDateMonth', '12'],
-	['itdDateYear', (localtime(time))[5] + 1900],
-);
-
-is_efa_err(
-	'date', '42.5.2003',
-	'Invalid day',
-);
-
-is_efa_err(
-	'date', '7.',
-	'Invalid month',
-);
-
-is_efa_post(
-	'exclude', [qw[zug]],
-	['inclMOT_0', undef],
-);
-
-is_efa_post(
-	'exclude', [qw[stadtbus schiff ast]],
-	['inclMOT_5',  undef],
-	['inclMOT_9',  undef],
-	['inclMOT_10', undef],
-);
-
-is_efa_err(
-	'exclude', [qw[sonstige invalid]],
-	'Must consist of '
-	. 'zug s-bahn u-bahn stadtbahn tram stadtbus regionalbus '
-	. 'schnellbus seilbahn schiff ast sonstige',
-);
-
-is_efa_post(
-	'prefer', 'speed',
-	['routeType', 'LEASTTIME'],
-);
-
-is_efa_post(
-	'prefer', 'nowait',
-	['routeType', 'LEASTINTERCHANGE'],
-);
-
-is_efa_post(
-	'prefer', 'nowalk',
-	['routeType', 'LEASTWALKING'],
-);
-
-is_efa_err(
-	'prefer', 'invalid',
-	'Must be either speed, nowait or nowalk',
-);
-
-is_efa_post(
-	'include', 'local',
-	['lineRestriction', 403],
-);
-
-is_efa_post(
-	'include', 'ic',
-	['lineRestriction', 401],
-);
-
-is_efa_post(
-	'include', 'ice',
-	['lineRestriction', 400],
-);
-
-is_efa_err(
-	'include', 'invalid',
-	'Must be one of local/ic/ice',
-);
-
-is_efa_post(
-	'walk_speed', 'normal',
-	['changeSpeed', 'normal'],
-);
-
-is_efa_err(
-	'walk_speed', 'invalid',
-	'Must be normal, fast or slow',
-);
-
-is_efa_post(
-	'max_interchanges', 5,
-	['maxChanges', 5],
-);
-
-is_efa_post(
-	'proximity', 1,
-	['useProxFootSearch', 1],
-);
-
-is_efa_post(
-	'bike', 1,
-	['bikeTakeAlong', 1],
-);