/[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 1047 by dpavlin, Mon Nov 19 15:56:05 2007 UTC revision 1062 by dpavlin, Wed Nov 21 10:09:55 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 262;  use Test::More tests => 325;
7    
8  BEGIN {  BEGIN {
9          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 49  my $rec = { Line 49  my $rec = {
49                  'v' => 'v-8-1',                  'v' => 'v-8-1',
50          },{          },{
51                  'v' => 'v-9-1',                  'v' => 'v-9-1',
52            },{
53                    'v' => '0',
54          }],          }],
55  };  };
56    
# Line 102  my $marc_out = [ Line 104  my $marc_out = [
104          [440, "0", "1", "a", "a-7-1"],          [440, "0", "1", "a", "a-7-1"],
105          [440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"],          [440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"],
106          [440, "0", "1", "v", "v-9-1"],          [440, "0", "1", "v", "v-9-1"],
107            [440, 0, 1, "v", 0],
108  ];  ];
109    
110  is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');  is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');
Legend:
Removed from v.1047  
changed lines
  Added in v.1062
  ViewVC Help
Powered by ViewVC 1.1.26