6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
|
|
8 |
use Test::More tests => 110; |
use Test::More tests => 110; |
9 |
|
use File::Spec; |
10 |
|
|
11 |
BEGIN { use_ok( 'Biblio::Isis' ); } |
BEGIN { use_ok( 'Biblio::Isis' ); } |
12 |
|
|
13 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
14 |
my $isis; |
my $isis; |
15 |
|
|
16 |
|
my $path_winisis = File::Spec->catfile('data', 'winisis', 'BIBL'); |
17 |
|
my $path_isismarc = File::Spec->catfile('data', 'isismarc', 'BIBL'); |
18 |
|
|
19 |
sub test_data { |
sub test_data { |
20 |
|
|
21 |
my $args = {@_}; |
my $args = {@_}; |
127 |
} |
} |
128 |
|
|
129 |
$isis = Biblio::Isis->new ( |
$isis = Biblio::Isis->new ( |
130 |
isisdb => './data/winisis/BIBL', |
isisdb => $path_winisis, |
131 |
include_deleted => 1, |
include_deleted => 1, |
132 |
debug => $debug, |
debug => $debug, |
133 |
); |
); |
146 |
); |
); |
147 |
|
|
148 |
$isis = Biblio::Isis->new ( |
$isis = Biblio::Isis->new ( |
149 |
isisdb => './data/isismarc/BIBL', |
isisdb => $path_isismarc, |
150 |
include_deleted => 1, |
include_deleted => 1, |
151 |
); |
); |
152 |
|
|
163 |
# check logically deleted |
# check logically deleted |
164 |
|
|
165 |
$isis = Biblio::Isis->new ( |
$isis = Biblio::Isis->new ( |
166 |
isisdb => './data/winisis/BIBL', |
isisdb => $path_winisis, |
167 |
include_deleted => 1, |
include_deleted => 1, |
168 |
); |
); |
169 |
|
|
171 |
cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted"); |
cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted"); |
172 |
|
|
173 |
$isis = Biblio::Isis->new ( |
$isis = Biblio::Isis->new ( |
174 |
isisdb => './data/winisis/BIBL', |
isisdb => $path_winisis, |
175 |
debug => $debug, |
debug => $debug, |
176 |
); |
); |
177 |
|
|