X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestBase.pm;h=95ee9fbbce618ae721c7d28286fccf074cf05838;hb=b9b85d473bba31fe1f875563f9076853dc256dca;hp=950b800f844efacc403d619b459e525b4c661512;hpb=aa7ad9c2bd80912f6e4292c30d12cca75a660ac5;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/lib/TestBase.pm b/t/lib/TestBase.pm
index 950b800..95ee9fb 100644
--- a/t/lib/TestBase.pm
+++ b/t/lib/TestBase.pm
@@ -5,14 +5,31 @@ use 5.6.0;
 use strict;
 use warnings;
 
+use Fcntl qw( :flock );
 use File::Path ();
 use File::Temp ();
-use Fcntl qw( :flock );
+use Scalar::Util ();
 
 use base 'Test::Class';
 
 use DBM::Deep;
 
+sub setup_db : Test(startup) {
+    my $self = shift;
+
+    my $data = ($self->{data} ||= {});
+
+    my $r = Scalar::Util::reftype( $data );
+    my $type = $r eq 'HASH' ? DBM::Deep->TYPE_HASH : DBM::Deep->TYPE_ARRAY;
+
+    $self->{db} = DBM::Deep->new({
+        file => $self->new_file,
+        type => $type,
+    });
+
+    return;
+}
+
 sub setup_dir : Test(startup) {
     my $self = shift;