r14214@rob-kinyons-computer (orig r8081): rkinyon | 2006-11-17 20:51:21 -0500

[dbsrgits/DBM-Deep.git] / t / lib / TestBase.pm

diff --git a/t/lib/TestBase.pm b/t/lib/TestBase.pm
deleted file mode 100644 (file)
index 95ee9fb..0000000
--- a/t/lib/TestBase.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package TestBase;
-
-use 5.6.0;
-
-use strict;
-use warnings;
-
-use Fcntl qw( :flock );
-use File::Path ();
-use File::Temp ();
-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;
-
-    $self->{workdir} ||= File::Temp::tempdir();
-
-    return;
-}
-
-sub new_file {
-    my $self = shift;
-
-    $self->setup_dir;
-
-    my ($fh, $filename) = File::Temp::tempfile(
-        'tmpXXXX', DIR => $self->{workdir}, CLEANUP => 1,
-    );
-    flock( $fh, LOCK_UN );
-
-    return $filename;
-}
-
-sub remove_dir : Test(shutdown) {
-    my $self = shift;
-
-    File::Path::rmtree( $self->{workdir} );
-
-    return;
-}
-
-1;
-__END__