#!/usr/bin/perl -w
use strict;
use Test::More qw(no_plan);
use constant ERROR_REGEXP => qr{Can't dbmopen\(%hash, 'foo/bar/baz', 0666\):};
my $return = "default";
eval {
$return = dbmopen(my %foo, "foo/bar/baz", 0666);
};
ok(!$return, "Sanity: dbmopen usually returns false on failure");
ok(!$@, "Sanity: dbmopen doesn't usually throw exceptions");
eval {
use autodie;
dbmopen(my %foo, "foo/bar/baz", 0666);
};
ok($@, "autodie allows dbmopen to throw errors.");
isa_ok($@, "autodie::exception", "... errors are of the correct type");
like($@, ERROR_REGEXP, "Message should include number in octal, not decimal");
eval {
use autodie;
my %bar = ( foo => 1, bar => 2 );
dbmopen(%bar, "foo/bar/baz", 0666);
};
like($@, ERROR_REGEXP, "Correct formatting even with non-empty dbmopen hash");