1 files changed, 0 insertions, 36 deletions
diff --git a/ext/autodie/t/dbmopen.t b/ext/autodie/t/dbmopen.t
deleted file mode 100755
index 31698e65be..0000000000
--- a/ext/autodie/t/dbmopen.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/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");
-