$param{marcdb} = 'data/unimarc.iso';
SKIP: {
- skip "no ",$param{marcdb}," test file ", 18 unless (-e $param{marcdb});
+ skip "no $param{marcdb} test file ", 17 unless (-e $param{marcdb});
ok($marc = MARC::Fast->new(%param), "new");
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);
}
}