3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 134; |
use Test::More tests => 174; |
7 |
use File::Spec; |
use File::Spec; |
8 |
|
|
9 |
BEGIN { |
BEGIN { |
192 |
$isis = Biblio::Isis->new ( |
$isis = Biblio::Isis->new ( |
193 |
isisdb => $path_winisis, |
isisdb => $path_winisis, |
194 |
debug => $debug, |
debug => $debug, |
195 |
|
hash_filter => sub { |
196 |
|
my ($l,$nr) = @_; |
197 |
|
ok(grep(/$nr/, keys %{ $isis->{record} }), "hash_filter $nr in record"); |
198 |
|
ok(grep(/\Q$l\E/, @{ $isis->{record}->{$nr} }), "hash_filter line $l found"); |
199 |
|
return($l); |
200 |
|
}, |
201 |
); |
); |
202 |
|
|
203 |
ok(! $isis->fetch(3), "deleted not found"); |
ok(! $isis->fetch(3), "deleted not found"); |
277 |
], |
], |
278 |
902 => [{ a => "a1 ; a2 ; a3 ; a4 ; a5", b => "b1 ; b2", c => "c1" }], |
902 => [{ a => "a1 ; a2 ; a3 ; a4 ; a5", b => "b1 ; b2", c => "c1" }], |
279 |
}, 'hash is_deeply'); |
}, 'hash is_deeply'); |
280 |
|
|