summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c47ff33)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@21
49f9634a-d7ec-0310-8e6b-
ec35c6cc8804
}
my $debug = shift @ARGV;
}
my $debug = shift @ARGV;
+
+my $marc_file = 't/camel.usmarc';
+
if ( $debug ) {
eval { require Data::Dump; };
$debug = 0 if ($@);
if ( $debug ) {
eval { require Data::Dump; };
$debug = 0 if ($@);
throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist";
throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist";
-$param{marcdb} = 'data/unimarc.iso';
+$param{marcdb} = $marc_file if -e $marc_file;
SKIP: {
skip "no $param{marcdb} test file ", 37 unless (-e $param{marcdb});
SKIP: {
skip "no $param{marcdb} test file ", 37 unless (-e $param{marcdb});
+ diag "marc file: $marc_file";
+
ok($marc = MARC::Fast->new(%param), "new");
isa_ok ($marc, 'MARC::Fast');
ok($marc = MARC::Fast->new(%param), "new");
isa_ok ($marc, 'MARC::Fast');