/[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 1031 by dpavlin, Sun Nov 11 19:58:57 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    
79  ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");  ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
80  diag dump( $marc ) if $debug;  diag " _get_marc_fields = ",dump( $marc ) if $debug;
81    
82  is_deeply( $marc,  is_deeply( $marc, [
83          [          [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"],
84                  [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", ],          [440, " ", " ", "v", "v-9-1"],
85                  [440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"],          [440, " ", " ", "a", "a-2-1 ; ", "v", "v-2-1. ", "p", "i-2-1"],
86                  [440, " ", " ", "a", "a-3-1", "v", "v-3-1", "p", "i-3-1"],          [440, " ", " ", "a", "a-3-1 ; ", "v", "v-3-1. ", "p", "i-3-1"],
87                  [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],          [440, " ", " ", "a", "a-4-1 ; ", "v", "v-4-1. ", "p", "i-4-1 ; ", "v", "w-4-1"],
88                  [440, " ", " ", "a", "a-5-1", "v", "v-5-1", "p", "i-5-1"],          [440, " ", " ", "a", "a-5-1 ; ", "v", "v-5-1. ", "p", "i-5-1"],
89                  [440, " ", " ", "a", "a-6-1", "p", "i-6-1", "v", "w-6-1"],          [440, " ", " ", "a", "a-6-1. ", "p", "i-6-1 ; ", "v", "w-6-1"],
90                  [440, " ", " ", "a", "a-7-1"],          [440, " ", " ", "a", "a-7-1"],
91          ],          [440, " ", " ", "a", "a-8-1 ;", "v", "v-8-1"],
92  'is_deeply');  ], 'is_deeply');
Legend:
Removed from v.1026  
changed lines
  Added in v.1031
  ViewVC Help
Powered by ViewVC 1.1.26