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(my $v = new WebPAC::Validate(
+ok($v = new WebPAC::Validate(
        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" },
-   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 } },