/[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 1026 by dpavlin, Sun Nov 11 13:47:43 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  };  };
47    
# Line 72  diag dump( $marc ) if $debug; Line 74  diag dump( $marc ) if $debug;
74  is_deeply( $marc,  is_deeply( $marc,
75          [          [
76                  [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", ],
77                  [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"],
78                  [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"],
79                  [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"],
80                  [440, " ", " ", "a", "a-5-1"],                  [440, " ", " ", "a", "a-5-1", "v", "v-5-1", "p", "i-5-1"],
81                    [440, " ", " ", "a", "a-6-1", "p", "i-6-1", "v", "w-6-1"],
82                    [440, " ", " ", "a", "a-7-1"],
83          ],          ],
84  'is_deeply');  'is_deeply');
Legend:
Removed from v.1021  
changed lines
  Added in v.1026
  ViewVC Help
Powered by ViewVC 1.1.26