1 files changed, 34 insertions, 0 deletions
diff --git a/ext/SDBM_File/t/prep.t b/ext/SDBM_File/t/prep.t
new file mode 100644
index 0000000000..a222a648f0
--- /dev/null
+++ b/ext/SDBM_File/t/prep.t
@@ -0,0 +1,34 @@
+#!./perl
+use strict;
+use Test::More tests => 4;
+
+use SDBM_File;
+use File::Temp 'tempfile';
+use Fcntl;
+
+my ($dirfh, $dirname) = tempfile();
+my ($pagfh, $pagname) = tempfile();
+
+# close so Win32 allows them to be re-opened
+close $dirfh;
+close $pagfh;
+
+{
+    my %h;
+
+    ok(eval { tie %h, "SDBM_File", $dirname, O_CREAT | O_RDWR | O_TRUNC, 0640, $pagname; 1 },
+       "create SDBM with explicit filenames")
+      or diag $@;
+    is(keys %h, 0, "should be empty");
+
+    # basic sanity checks, the real storage checks are done by sdbm.t
+    $h{abc} = 1;
+    $h{def} = 1;
+}
+
+{
+    my %h;
+    ok(eval { tie %h, "SDBM_File", $dirname, O_RDWR, 0640, $pagname; 1 },
+       "open SDBM with explicit filenames");
+    is_deeply([ sort keys  %h] , [ qw(abc def) ], "should have two keys");
+}