/[webpac2]/trunk/t/3-normalize-marc.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/3-normalize-marc.t

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

revision 1029 by dpavlin, Sun Nov 11 17:11:33 2007 UTC revision 1036 by dpavlin, Mon Nov 12 11:10:48 2007 UTC
# Line 50  my $rec = { Line 50  my $rec = {
50          }],          }],
51  };  };
52    
53  ok( _set_ds( $rec ), '_set_ds' );  sub test_marc_template {
54            my $rec = shift;
55    
56  ok( marc_template(          ok( _set_ds( $rec ), '_set_ds' );
57          from => 225, to => 440,  
58          subfields_rename => [          ok( marc_template(
59                  'a' => 'a',                  from => 225, to => 440,
60                  'x' => 'x',                  subfields_rename => [
61                  'v' => 'v',                          'a' => 'a',
62                  'h' => 'n',                          'x' => 'x',
63                  'i' => 'p',                          'v' => 'v',
64                  'w' => 'v',                          'h' => 'n',
65          ],                          'i' => 'p',
66          isis_template => [                          'w' => 'v',
67                  'a ; |v. |i',                  ],
68                  'a. |i ; |w',                  isis_template => [
69          ],                          'a ; |v. |i',
70          marc_template => [                          'a. |i ; |w',
71                  'a',                  ],
72                  'a ;|v',                  marc_template => [
73                  'a.|p',                          'a',
74                  'a, |x ; |v. |n, |p ; |v',                          'a ;|v',
75                  'a ; |v. |p ; |v',                          'a.|p',
76                  'v',                          'a, |x ; |v. |n, |p ; |v',
77          ],                          'a ; |v. |p ; |v',
78  ), 'marc_template' );                          'v',
79                    ],
80  ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");          ), 'marc_template' );
81  diag dump( $marc ) if $debug;  
82            ok(my $marc = WebPAC::Normalize::MARC::_get_marc_fields(), "_get_marc_fields");
83  is_deeply( $marc,          diag " _get_marc_fields = ",dump( $marc ) if $debug;
84          [  
85                  [440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],          return $marc;
86                  [440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"],  }
87                  [440, " ", " ", "a", "a-3-1", "v", "v-3-1", "p", "i-3-1"],  
88                  [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],  my $marc_out = [
89                  [440, " ", " ", "a", "a-5-1", "v", "v-5-1", "p", "i-5-1"],          [440, " ", " ", "a", "a-1-1, ", "x", "x-1-1 ; ", "v", "v-1-1. ", "n", "h-1-1, ", "p", "i-1-1 ; ", "v", "w-1-1"],
90                  [440, " ", " ", "a", "a-6-1", "p", "i-6-1", "v", "w-6-1"],          [440, " ", " ", "v", "v-9-1"],
91                  [440, " ", " ", "a", "a-7-1"],          [440, " ", " ", "a", "a-2-1 ; ", "v", "v-2-1. ", "p", "i-2-1"],
92          ],          [440, " ", " ", "a", "a-3-1 ; ", "v", "v-3-1. ", "p", "i-3-1"],
93  'is_deeply');          [440, " ", " ", "a", "a-4-1 ; ", "v", "v-4-1. ", "p", "i-4-1 ; ", "v", "w-4-1"],
94            [440, " ", " ", "a", "a-5-1 ; ", "v", "v-5-1. ", "p", "i-5-1"],
95            [440, " ", " ", "a", "a-6-1. ", "p", "i-6-1 ; ", "v", "w-6-1"],
96            [440, " ", " ", "a", "a-7-1"],
97            [440, " ", " ", "a", "a-8-1 ;", "v", "v-8-1"],
98    ];
99    
100    is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');
101    
102    __END__
103    
104    my $max_occ = $#{ $rec->{225} };
105    
106    foreach my $from ( 0 .. $max_occ - 1 ) {
107            foreach my $to ( 1 .. $max_occ ) {
108                    my $new_rec = {
109                            225 => [ splice( @{ $rec->{225} }, $from, $to ) ],
110                    };
111                    diag "new_rec = ",dump( $new_rec ) if $debug;
112            
113                    my $expect_marc = [ splice( @{ $marc_out }, $from, $to ) ];
114                    diag "expect_marc = ",dump( $expect_marc ) if $debug;
115    
116                    is_deeply( [ test_marc_template($rec) ], $expect_marc, 'is_deeply');
117            }
118    }
Legend:
Removed from v.1029  
changed lines
  Added in v.1036
  ViewVC Help
Powered by ViewVC 1.1.26