23 |
|
|
24 |
ok( ! $v->{rules}, 'no path' ); |
ok( ! $v->{rules}, 'no path' ); |
25 |
|
|
26 |
ok(my $v = new WebPAC::Validate( |
ok($v = new WebPAC::Validate( |
27 |
path => "$abs_path/data/validate_test", |
path => "$abs_path/data/validate_test", |
28 |
debug => $debug, |
debug => $debug, |
29 |
), "new with path"); |
), "new with path"); |
163 |
|
|
164 |
my $expected_error = { |
my $expected_error = { |
165 |
900 => { not_repeatable => "probably bug in parsing input data" }, |
900 => { not_repeatable => "probably bug in parsing input data" }, |
166 |
901 => { missing_subfield => "a required" }, |
901 => { missing_subfield => "a required", "dump" => "baz" }, |
167 |
902 => { |
902 => { |
168 |
"dump" => "^a1^b1^b2", |
"dump" => "^a1^b1^b2", |
169 |
subfield => { extra => { a => 1 }, extra_repeatable => { b => 1 } }, |
subfield => { extra => { a => 1 }, extra_repeatable => { b => 1 } }, |