9 |
|
|
10 |
BEGIN { use_ok( 'IsisDB' ); } |
BEGIN { use_ok( 'IsisDB' ); } |
11 |
|
|
12 |
|
my $debug = shift @ARGV; |
13 |
my $isis; |
my $isis; |
14 |
|
|
15 |
sub test_data { |
sub test_data { |
125 |
$isis = IsisDB->new ( |
$isis = IsisDB->new ( |
126 |
isisdb => './data/winisis/BIBL', |
isisdb => './data/winisis/BIBL', |
127 |
include_deleted => 1, |
include_deleted => 1, |
128 |
|
debug => $debug, |
129 |
); |
); |
130 |
|
|
131 |
print Dumper($isis); |
print Dumper($isis); |
168 |
|
|
169 |
$isis = IsisDB->new ( |
$isis = IsisDB->new ( |
170 |
isisdb => './data/winisis/BIBL', |
isisdb => './data/winisis/BIBL', |
171 |
|
debug => $debug, |
172 |
); |
); |
173 |
|
|
174 |
ok(! $isis->fetch(3), "deleted not found"); |
ok(! $isis->fetch(3), "deleted not found"); |