git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@29
49f9634a-d7ec-0310-8e6b-
ec35c6cc8804
ABSTRACT => '',
PREREQ_PM => {
'Test::Simple' => 0.44,
ABSTRACT => '',
PREREQ_PM => {
'Test::Simple' => 0.44,
- 'Test::Exception' => 0,
'Data::Dump' => 0,
'Carp' => 0,
},
'Data::Dump' => 0,
'Carp' => 0,
},
use blib;
use Test::More tests => 63;
use blib;
use Test::More tests => 63;
use Data::Dump qw/dump/;
BEGIN {
use Data::Dump qw/dump/;
BEGIN {
-throws_ok { $marc = MARC::Fast->new(%param); } qr/marcdb/, "marcdb parametar";
+eval { $marc = MARC::Fast->new(%param) };
+ok( $@ =~ /marcdb/, "marcdb parametar" );
$param{marcdb} = '/foo/bar/file';
$param{marcdb} = '/foo/bar/file';
-throws_ok { $marc = MARC::Fast->new(%param); } qr/foo.bar/, "marcdb exist";
+eval { $marc = MARC::Fast->new(%param) };
+ok( $@ =~ /foo.bar/, "marcdb exist" );
$param{marcdb} = $marc_file if -e $marc_file;
$param{marcdb} = $marc_file if -e $marc_file;