/[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 652 by dpavlin, Tue May 16 15:23:05 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 => 16;  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 34  is_deeply( $v->{rules}, { Line 34  is_deeply( $v->{rules}, {
34    
35  throws_ok { $v->validate_errors() } qr/rec/, "validate_rec need rec";  throws_ok { $v->validate_errors() } qr/rec/, "validate_rec need rec";
36    
37  ok($v->validate_errors({ '900' => 'foo' }), '900 garbage input');  sub test_v {
38            my $row = shift || die "no row?";
39    
40  ok(! $v->validate_errors({          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/ ]          '900' => [ qw/foo bar baz/ ]
69  }), '900 no sf');  });
70    
71  ok($v->validate_errors({  test_v({
72          '901' => [ qw/foo bar baz/ ]          '901' => [ qw/foo bar baz/ ]
73  }), '901 no sf');  }, qw/field 901 missing_subfield/);
74    
75  ok(! $v->validate_errors({  test_v({
76          '901' => [ { 'a' => 42 } ]          '901' => [ { 'a' => 42 } ]
77  }), '901^a');  });
78    
79  ok($v->validate_errors({  test_v({
80          '901' => [ { 'b' => 42 } ]          '901' => [ { 'b' => 42 } ]
81  }), '901^b');  }, qw/field 901 subfield b/);
82    
83  ok(! $v->validate_errors({  test_v({
84          '902' => [ { 'b' => 1 }, { 'c' => 2 } ]          '902' => [ { 'b' => 1 }, { 'c' => 2 } ]
85  }), '902^b 902^c');  });
86    
87  ok($v->validate_errors({  test_v({
88          '902' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]          '902' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]
89  }), '902^a 902^b 902^c');  }, qw/field 902 subfield a/);
90    
91  ok(! $v->validate_errors({  test_v({
92          '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]          '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 } ]
93  }), '903^a 903^b 903^c');  });
94    
95  ok($v->validate_errors({  test_v({
96          '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 }, { 'd' => 3 } ]          '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 }, { 'd' => 3 } ]
97  }), '903^a 903^b 903^c 903^d');  }, qw/field 903 subfield d/);
98    
Legend:
Removed from v.652  
changed lines
  Added in v.653
  ViewVC Help
Powered by ViewVC 1.1.26