1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 89; |
use Test::More tests => 104; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use blib; |
use blib; |
77 |
ok(my $rec = $input->fetch, "fetch $mfn"); |
ok(my $rec = $input->fetch, "fetch $mfn"); |
78 |
cmp_ok($input->pos, '==', $mfn, "pos $mfn"); |
cmp_ok($input->pos, '==', $mfn, "pos $mfn"); |
79 |
push @db, $rec; |
push @db, $rec; |
80 |
|
ok(my $dump = $input->dump, "dump $mfn"); |
81 |
|
diag $dump if ($debug); |
82 |
} |
} |
83 |
|
|
84 |
return @db; |
return @db; |