/[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 1021 by dpavlin, Sat Nov 10 11:11:16 2007 UTC revision 1029 by dpavlin, Sun Nov 11 17:11:33 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 4;  use Test::More tests => 7;
7    
8  BEGIN {  BEGIN {
9          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 33  my $rec = { Line 33  my $rec = {
33                  'i' => 'i-4-1',                  'i' => 'i-4-1',
34                  'w' => 'w-4-1',                  'w' => 'w-4-1',
35          },{          },{
36                  'a' => 'a-4-1',                  'a' => 'a-5-1',
37                  'v' => 'v-4-1',                  'v' => 'v-5-1',
38                  'i' => 'i-4-1',                  'i' => 'i-5-1',
39          },{          },{
40                  'a' => 'a-4-1',                  'a' => 'a-6-1',
41                  'i' => 'i-4-1',                  'i' => 'i-6-1',
42                  'w' => 'w-4-1',                  'w' => 'w-6-1',
43            },{
44                    '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 61  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    
# Line 72  diag dump( $marc ) if $debug; Line 82  diag dump( $marc ) if $debug;
82  is_deeply( $marc,  is_deeply( $marc,
83          [          [
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, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],
85                  [440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"],                  [440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"],
86                  [440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-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"],                  [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"],
90                    [440, " ", " ", "a", "a-7-1"],
91          ],          ],
92  'is_deeply');  'is_deeply');
Legend:
Removed from v.1021  
changed lines
  Added in v.1029
  ViewVC Help
Powered by ViewVC 1.1.26