isa_ok ($marc, 'MARC::Fast');
+ #diag Dumper($marc);
+
cmp_ok($marc->count, '==', scalar @{$marc->{leaders}}, "count == leaders");
cmp_ok($marc->count, '==', scalar @{$marc->{fh_offset}}, "count == fh_offset");
foreach (1 .. 10) {
ok($marc->fetch($_), "fetch $_");
+
+ ok(my $hash = $marc->to_hash($_), "to_hash $_");
+ diag "$_ :: ",Dumper($hash);
}
}