=cut
use strict;
-use Test::More tests => 21;
+use Test::More tests => 13;
use_ok('CGI::Ex::Validate');
###----------------------------------------------------------------###
### test single group for extra fields
-$v = [
-{
- 'general no_extra_fields' => 'all',
+$v = {
+ 'group no_extra_fields' => 1,
foo => {max_len => 10},
-},
-];
+};
$e = validate({}, $v);
ok(! $e);
### test on failed validate if
-$v = [
-{
- 'general no_extra_fields' => 'all',
+$v = {
+ 'group no_extra_fields' => 1,
'group validate_if' => 'baz',
foo => {max_len => 10},
-},
-];
+};
$e = validate({}, $v);
ok(! $e);
ok(! $e);
### test on successful validate if
-$v = [
-{
- 'general no_extra_fields' => 'all',
+$v = {
+ 'group no_extra_fields' => 1,
'group validate_if' => 'baz',
foo => {max_len => 10},
baz => {max_len => 10},
-},
-];
+};
$e = validate({baz => 1}, $v);
ok(! $e);
$e = validate({baz => 1, bar => "bar"}, $v);
ok($e);
-### test on multiple groups, some with validate if
-$v = [
-{
- 'general no_extra_fields' => 'all',
- 'group validate_if' => 'baz',
- foo => {max_len => 10},
- baz => {max_len => 10},
-},
-{
- 'group validate_if' => 'hem',
- haw => {max_len => 10},
-},
-];
-
-$e = validate({haw => 1, baz => 1}, $v);
-ok(! $e);
-
-$e = validate({haw => 1, baz => 1, foo => "foo"}, $v);
-ok(! $e);
-
-$e = validate({haw => 1, baz => 1, foo => "foo", bar => "bar"}, $v);
-ok($e);
-
-$e = validate({haw => 1, baz => 1, bar => "bar"}, $v);
-ok($e);
-
-
-### test on multiple groups, some with validate if
-$v = [
-{
- 'general no_extra_fields' => 'used',
- 'group validate_if' => 'baz',
- foo => {max_len => 10},
- baz => {max_len => 10},
-},
-{
- 'group validate_if' => 'hem',
- haw => {max_len => 10},
-},
-];
-
-$e = validate({haw => 1, baz => 1}, $v);
-ok($e);
-
-$e = validate({haw => 1, baz => 1, foo => "foo"}, $v);
-ok($e);
-
-$e = validate({haw => 1, baz => 1, foo => "foo", bar => "bar"}, $v);
-ok($e);
-
-$e = validate({haw => 1, baz => 1, bar => "bar"}, $v);
-ok($e);