/[webpac2]/trunk/t/1-validate.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/1-validate.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 514 by dpavlin, Tue May 16 13:38:09 2006 UTC revision 653 by dpavlin, Thu Sep 7 15:57:48 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use Test::More tests => 5;  use Test::More tests => 29;
5  use Test::Exception;  use Test::Exception;
6  use blib;  use blib;
7    
8  use Data::Dumper;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10    
11  BEGIN {  BEGIN {
# Line 24  ok(my $v = new WebPAC::Validate( Line 24  ok(my $v = new WebPAC::Validate(
24  ), "new");  ), "new");
25    
26  ok($v->{rules}, "rules exist");  ok($v->{rules}, "rules exist");
27    
28    is_deeply( $v->{rules}, {
29            '900' => 1,
30            '901' => [ 'a' ],
31            '902' => [ 'b', 'c' ],
32            '903' => [ 'a', 'b', 'c' ],
33    }, 'rules parsed');
34    
35    throws_ok { $v->validate_errors() } qr/rec/, "validate_rec need rec";
36    
37    sub test_v {
38            my $row = shift || die "no row?";
39    
40            my $d = dump( $row );
41    
42            $row->{'000'} = [ 42 ];
43    
44            $v->reset_errors;
45            my $e = $v->validate_errors( $row );
46    
47            diag "validate $d\n",dump($e) if ($debug);
48    
49            if (@_) {
50                    my $tmp = $e;
51                    while (@_) {
52                            my $k = shift @_;
53                            ok($tmp = $tmp->{$k}, "found $k");
54                    }
55                    diag "additional message: $tmp" if ($tmp);
56            } else {
57                    ok(! $e, "validated $d");
58                    diag "expected error: ", dump($e) if($e);
59            }
60    
61    }
62    
63    test_v({
64            '900' => 'foo'
65    }, qw/field 900 not_repeatable/);
66    
67    test_v({
68            '900' => [ qw/foo bar baz/ ]
69    });
70    
71    test_v({
72            '901' => [ qw/foo bar baz/ ]
73    }, qw/field 901 missing_subfield/);
74    
75    test_v({
76            '901' => [ { 'a' => 42 } ]
77    });
78    
79    test_v({
80            '901' => [ { 'b' => 42 } ]
81    }, qw/field 901 subfield b/);
82    
83    test_v({
84            '902' => [ { 'b' => 1 }, { 'c' => 2 } ]
85    });
86    
87    test_v({
88            '902' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]
89    }, qw/field 902 subfield a/);
90    
91    test_v({
92            '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]
93    });
94    
95    test_v({
96            '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 }, { 'd' => 3 } ]
97    }, qw/field 903 subfield d/);
98    
Legend:
Removed from v.514  
changed lines
  Added in v.653
  ViewVC Help
Powered by ViewVC 1.1.26