/[webpac2]/trunk/t/3-normalize.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.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 562 by dpavlin, Sun Jul 2 16:14:41 2006 UTC revision 564 by dpavlin, Sun Jul 2 20:14:21 2006 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 99;  use Test::More tests => 103;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# Line 525  sub test_s { Line 525  sub test_s {
525                          ]                          ]
526                  ],                  ],
527          );          );
528    
529            cmp_ok(marc_leader('06',42), '==', 42, 'marc_leader');
530            cmp_ok(marc_leader('11',5), '==', 5, 'marc_leader');
531            ok(marc_leader(), 'marc_leader get');
532            diag "leader: ", dump(marc_leader()) if ($debug);
533            is_deeply(marc_leader(), { '06' => 42, 11 => 5 }, "marc_leader full");
534  }  }
535    
Legend:
Removed from v.562  
changed lines
  Added in v.564
  ViewVC Help
Powered by ViewVC 1.1.26