11 |
} |
} |
12 |
|
|
13 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
14 |
|
|
15 |
|
my $marc_file = 't/camel.usmarc'; |
16 |
|
|
17 |
if ( $debug ) { |
if ( $debug ) { |
18 |
eval { require Data::Dump; }; |
eval { require Data::Dump; }; |
19 |
$debug = 0 if ($@); |
$debug = 0 if ($@); |
28 |
|
|
29 |
throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist"; |
throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist"; |
30 |
|
|
31 |
$param{marcdb} = 'data/unimarc.iso'; |
$param{marcdb} = $marc_file if -e $marc_file; |
32 |
|
|
33 |
SKIP: { |
SKIP: { |
34 |
skip "no $param{marcdb} test file ", 37 unless (-e $param{marcdb}); |
skip "no $param{marcdb} test file ", 37 unless (-e $param{marcdb}); |
35 |
|
|
36 |
|
diag "marc file: $marc_file"; |
37 |
|
|
38 |
ok($marc = MARC::Fast->new(%param), "new"); |
ok($marc = MARC::Fast->new(%param), "new"); |
39 |
|
|
40 |
isa_ok ($marc, 'MARC::Fast'); |
isa_ok ($marc, 'MARC::Fast'); |