4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 63; |
use Test::More tests => 63; |
|
use Test::Exception; |
|
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
|
|
9 |
BEGIN { |
BEGIN { |
17 |
my $marc; |
my $marc; |
18 |
my %param; |
my %param; |
19 |
|
|
20 |
throws_ok { $marc = MARC::Fast->new(%param); } qr/marcdb/, "marcdb parametar"; |
eval { $marc = MARC::Fast->new(%param) }; |
21 |
|
ok( $@ =~ /marcdb/, "marcdb parametar" ); |
22 |
|
|
23 |
$param{marcdb} = '/foo/bar/file'; |
$param{marcdb} = '/foo/bar/file'; |
24 |
|
|
25 |
throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist"; |
eval { $marc = MARC::Fast->new(%param) }; |
26 |
|
ok( $@ =~ /foo.bar/, "marcdb exist" ); |
27 |
|
|
28 |
$param{marcdb} = $marc_file if -e $marc_file; |
$param{marcdb} = $marc_file if -e $marc_file; |
29 |
|
|