/[MARC-Fast]/trunk/t/001_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/001_marc.t

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

revision 8 by dpavlin, Sun Dec 18 23:12:26 2005 UTC revision 9 by dpavlin, Thu Jul 13 14:00:23 2006 UTC
# Line 27  SKIP: { Line 27  SKIP: {
27    
28          isa_ok ($marc, 'MARC::Fast');          isa_ok ($marc, 'MARC::Fast');
29    
30            #diag Dumper($marc);
31    
32          cmp_ok($marc->count, '==', scalar @{$marc->{leaders}}, "count == leaders");          cmp_ok($marc->count, '==', scalar @{$marc->{leaders}}, "count == leaders");
33          cmp_ok($marc->count, '==', scalar @{$marc->{fh_offset}}, "count == fh_offset");          cmp_ok($marc->count, '==', scalar @{$marc->{fh_offset}}, "count == fh_offset");
34    
# Line 36  SKIP: { Line 38  SKIP: {
38    
39          foreach (1 .. 10) {          foreach (1 .. 10) {
40                  ok($marc->fetch($_), "fetch $_");                  ok($marc->fetch($_), "fetch $_");
41    
42                    ok(my $hash = $marc->to_hash($_), "to_hash $_");
43                    diag "$_ :: ",Dumper($hash);
44          }          }
45  }  }
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26