Standardized test incantations

[dbsrgits/DBM-Deep.git] / t / 52_memory_leak.t

diff --git a/t/52_memory_leak.t b/t/52_memory_leak.t
index e39fceb..2f5a593 100644 (file)
--- a/t/52_memory_leak.t
+++ b/t/52_memory_leak.t
@@ -4,12 +4,17 @@
 # brought up by Alex Gallichotte
 
 use strict;
-use Test;
+use warnings FATAL => 'all';
+
+use Test::More;
 use DBM::Deep;
+
+plan skip_all => "Need to figure out what platforms this runs on";
+
 use t::common qw( new_fh );
 
 my ($fh, $filename) = new_fh();
-my $db = DBM::Deep->new( file => $filename, fh => $fh, );
+my $db = DBM::Deep->new( $filename );
 
 my $todo  = 1000;
 my $allow = $todo*0.02; # NOTE: a 2% fail rate is hardly a failure