projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1399@llin: dpavlin | 2007-10-31 11:19:39 +0100
[webpac2]
/
t
/
1-validate.t
diff --git
a/t/1-validate.t
b/t/1-validate.t
index
70a32f9
..
bbbc3e9
100755
(executable)
--- a/
t/1-validate.t
+++ b/
t/1-validate.t
@@
-23,7
+23,7
@@
ok(my $v = new WebPAC::Validate(
ok( ! $v->{rules}, 'no path' );
ok( ! $v->{rules}, 'no path' );
-ok(
my
$v = new WebPAC::Validate(
+ok($v = new WebPAC::Validate(
path => "$abs_path/data/validate_test",
debug => $debug,
), "new with path");
path => "$abs_path/data/validate_test",
debug => $debug,
), "new with path");
@@
-163,7
+163,7
@@
test_v({
my $expected_error = {
900 => { not_repeatable => "probably bug in parsing input data" },
my $expected_error = {
900 => { not_repeatable => "probably bug in parsing input data" },
- 901 => { missing_subfield => "a required" },
+ 901 => { missing_subfield => "a required"
, "dump" => "baz"
},
902 => {
"dump" => "^a1^b1^b2",
subfield => { extra => { a => 1 }, extra_repeatable => { b => 1 } },
902 => {
"dump" => "^a1^b1^b2",
subfield => { extra => { a => 1 }, extra_repeatable => { b => 1 } },