Tests for WWW::Efa->new() => correct post data

1 files changed, 239 insertions, 18 deletions

diff --git a/t/50-www-efa.t b/t/50-www-efa.t
index f7a7410..8a54025 100644
--- a/t/50-www-efa.t
+++ b/t/50-www-efa.t
@@ -3,31 +3,252 @@ use strict;
 use warnings;
 use 5.010;
 
-use Test::More tests => 6;
+use Test::More tests => 127;
 
 BEGIN {
 	use_ok('WWW::Efa');
 }
 require_ok('WWW::Efa');
 
-my $conf_default = {
-	from => ['Essen', 'HBf'],
-	to   => ['Koeln', 'HBf'],
-};
-my $post_default = {
-	place_origin => 'Essen',
-	name_origin => 'HBf',
-	type_origin => 'stop',
-	place_destination => 'Koeln',
-	name_destination => 'HBf',
-	type_destination => 'stop',
-};
+sub efa_conf {
+	my $ret = {
+		from => ['Essen', 'HBf'],
+		to   => ['Koeln', 'HBf'],
+	};
+	foreach my $p (@_) {
+		$ret->{$p->[0]} = $p->[1];
+	}
+	return $ret;
+}
+
+sub efa_post {
+	my $ret = {
+		place_origin => 'Essen',
+		name_origin => 'HBf',
+		type_origin => 'stop',
+		place_destination => 'Koeln',
+		name_destination => 'HBf',
+		type_destination => 'stop',
+	};
+	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]);
+
+	is_deeply(
+		$efa->{'config'}, efa_conf([$ck, $cv]),
+		"$ck => $cv: conf ok",
+	);
+
+	is(
+		$efa->{'error'}, undef,
+		"$ck => $cv: No error",
+	);
+	
+	is_deeply(
+		$efa->{'post'}, efa_post(@post),
+		"$ck => $cv: POST ok",
+	);
+}
+
+sub is_efa_err {
+	my ($key, $val, $str) = @_;
+	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",
+	);
+
+	is(
+		$efa->{'error'}->{'source'}, 'internal',
+		"$key => $val: Error source is internal",
+	);
+	is(
+		$efa->{'error'}->{'type'}, 'conf',
+		"$key => $val: Error type is conf",
+	);
+
+	is_deeply(
+		$efa->{'error'}->{'data'}, [$key, $val_want, $str],
+		"$key => $val: Error data is [$key, $val_want, $str]",
+	);
+}
+
+is_efa_post('ignored', 'ignored');
+
+my $efa = new_ok('WWW::Efa' => []);
+isa_ok($efa->{'error'}, 'WWW::Efa::Error');
+is($efa->{'error'}->{'source'}, 'internal');
+is($efa->{'error'}->{'type'},   'conf'    );
+is_deeply($efa->{'error'}->{'data'},   ['place', 'origin', 'Need at least two elements']);
+
+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(
+	'time', '22:23',
+	['itdTripDateTimeDepArr', 'dep'],
+	['itdTimeHour', '22'],
+	['itdTimeMinute', '23'],
+);
+
+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(
+	'time', '37:00',
+	'Must match HH:MM',
+);
+
+is_efa_err(
+	'time', '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',
+	'Must match DD.MM.[YYYY]'
+);
+
+is_efa_err(
+	'date', '7.',
+	'Must match DD.MM.[YYYY]'
+);
+
+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'],
+);
 
-my $efa = new_ok('WWW::Efa' => [%{$conf_default}]);
+is_efa_err(
+	'walk_speed', 'invalid',
+	'Must be normal, fast or slow',
+);
 
-can_ok($efa, qw{new submit parse connections});
+is_efa_post(
+	'max_interchanges', 5,
+	['maxChanges', 5],
+);
 
-is_deeply($efa->{'config'}, $conf_default);
-is_deeply($efa->{'post'}, $post_default);
+is_efa_post(
+	'proximity', 1,
+	['useProxFootSearch', 1],
+);
 
-$efa = WWW::Efa->new();
+is_efa_post(
+	'bike', 1,
+	['bikeTakeAlong', 1],
+);