use blib;
use Test::More tests => 63;
-use Test::Exception;
+use Data::Dump qw/dump/;
BEGIN {
use_ok( 'MARC::Fast' );
my $marc_file = 't/camel.usmarc';
-if ( $debug ) {
- eval { require Data::Dump; };
- $debug = 0 if ($@);
-}
-
my $marc;
my %param;
-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';
-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;