/[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 1026 by dpavlin, Sun Nov 11 13:47:43 2007 UTC revision 1029 by dpavlin, Sun Nov 11 17:11:33 2007 UTC
# Line 42  my $rec = { Line 42  my $rec = {
42                  'w' => 'w-6-1',                  'w' => 'w-6-1',
43          },{          },{
44                  'a' => 'a-7-1',                  'a' => 'a-7-1',
45            },{
46                    'a' => 'a-8-1',
47                    'v' => 'v-8-1',
48            },{
49                    'v' => 'v-9-1',
50          }],          }],
51  };  };
52    
# Line 63  ok( marc_template( Line 68  ok( marc_template(
68          ],          ],
69          marc_template => [          marc_template => [
70                  'a',                  'a',
71                    'a ;|v',
72                    'a.|p',
73                  'a, |x ; |v. |n, |p ; |v',                  'a, |x ; |v. |n, |p ; |v',
74                  'a ; |v. |p ; |v',                  'a ; |v. |p ; |v',
75                    'v',
76          ],          ],
77  ), 'marc_template' );  ), 'marc_template' );
78    
Legend:
Removed from v.1026  
changed lines
  Added in v.1029
  ViewVC Help
Powered by ViewVC 1.1.26