/[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 1031 by dpavlin, Sun Nov 11 19:58:57 2007 UTC
# Line 77  ok( marc_template( Line 77  ok( marc_template(
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.1029  
changed lines
  Added in v.1031
  ViewVC Help
Powered by ViewVC 1.1.26