perl-DBM-Deep/perl-DBM-Deep_Build_n_Test.patch

diff -ruN DBM-Deep-1.0025-orig/Build.PL DBM-Deep-1.0025/Build.PL
--- DBM-Deep-1.0025-orig/Build.PL	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/Build.PL	2010-07-12 14:43:26.000000000 +0200
@@ -1,4 +1,4 @@
-use Module::Build 0.28; # for prepare_metadata
+use Module::Build; # for prepare_metadata
 
 use strict;
 use warnings FATAL => 'all';
@@ -25,19 +25,19 @@
     license => 'perl',
     requires => {
         'perl'              => '5.006_000',
+        'Digest::MD5'       => '1.00',
         'Fcntl'             => '0.01',
         'Scalar::Util'      => '1.14',
-        'Digest::MD5'       => '1.00',
     },
     build_requires => {
         'File::Path'      => '0.01',
         'File::Temp'      => '0.01',
+        'IO::Scalar'      => '0.01',
         'Pod::Usage'      => '1.3',
         'Test::Deep'      => '0.095',
         'Test::Warn'      => '0.08',
-        'Test::More'      => '0.88', # done_testing
+        'Test::More'      => '0',
         'Test::Exception' => '0.21',
-        'IO::Scalar'      => '0.01',
     },
     create_makefile_pl => 'traditional',
     create_readme    =>  1,
diff -ruN DBM-Deep-1.0025-orig/Makefile.PL DBM-Deep-1.0025/Makefile.PL
--- DBM-Deep-1.0025-orig/Makefile.PL	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/Makefile.PL	2010-07-12 14:37:55.000000000 +0200
@@ -15,7 +15,7 @@
                            'Scalar::Util' => '1.14',
                            'Test::Deep' => '0.095',
                            'Test::Exception' => '0.21',
-                           'Test::More' => '0.88',
+                           'Test::More' => '0',
                            'Test::Warn' => '0.08'
                          },
           'INSTALLDIRS' => 'site',
diff -ruN DBM-Deep-1.0025-orig/META.yml DBM-Deep-1.0025/META.yml
--- DBM-Deep-1.0025-orig/META.yml	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/META.yml	2010-07-12 14:39:22.000000000 +0200
@@ -8,11 +8,11 @@
   Pod::Usage: 1.3
   Test::Deep: 0.095
   Test::Exception: 0.21
-  Test::More: 0.88
+  Test::More: 0
   Test::Warn: 0.08
 configure_requires:
-  Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+  Module::Build: 0
+generated_by: 'Module::Build version 0.31'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
diff -ruN DBM-Deep-1.0025-orig/t/01_basic.t DBM-Deep-1.0025/t/01_basic.t
--- DBM-Deep-1.0025-orig/t/01_basic.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/01_basic.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use t::common qw( new_fh );
 
@@ -27,4 +27,4 @@
 $db->{foo} = 'bar';
 is( $db->{foo}, 'bar', 'We can write and read.' );
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/02_hash.t DBM-Deep-1.0025/t/02_hash.t
--- DBM-Deep-1.0025-orig/t/02_hash.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/02_hash.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 use Scalar::Util qw( reftype );
@@ -196,4 +196,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/03_bighash.t DBM-Deep-1.0025/t/03_bighash.t
--- DBM-Deep-1.0025-orig/t/03_bighash.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/03_bighash.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
     unless $ENV{LONG_TESTS};
@@ -52,4 +52,4 @@
     cmp_ok( scalar(keys %$db), '==', 0, "Number of keys after clear() is correct" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/04_array.t DBM-Deep-1.0025/t/04_array.t
--- DBM-Deep-1.0025-orig/t/04_array.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/04_array.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -270,7 +270,7 @@
     is( $db->[5]{foo}, 1, "Right hashref there" );
 }
 
-done_testing;
+#done_testing;
 __END__
 { # Make sure we do not trigger a deep recursion warning [RT #53575]
     my $w;
@@ -288,4 +288,4 @@
     is $w, undef, 'no warnings with deep recursion in array assignment';
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/05_bigarray.t DBM-Deep-1.0025/t/05_bigarray.t
--- DBM-Deep-1.0025-orig/t/05_bigarray.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/05_bigarray.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
     unless $ENV{LONG_TESTS};
@@ -39,4 +39,4 @@
     cmp_ok( scalar(@$db), '==', 0, "Number of elements after clear() is correct" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/06_error.t DBM-Deep-1.0025/t/06_error.t
--- DBM-Deep-1.0025-orig/t/06_error.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/06_error.t	2010-07-12 14:04:23.000000000 +0200
@@ -3,7 +3,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use Test::Warn;
 use t::common qw( new_fh );
@@ -136,4 +136,4 @@
     } qr/DBM::Deep: Wrong file version found - 1 - expected 3/, "Fail if opening a file version 1";
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/07_locking.t DBM-Deep-1.0025/t/07_locking.t
--- DBM-Deep-1.0025-orig/t/07_locking.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/07_locking.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -33,4 +33,4 @@
     is( $db->{key1}, "value2", "key1 is overridden" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/08_deephash.t DBM-Deep-1.0025/t/08_deephash.t
--- DBM-Deep-1.0025-orig/t/08_deephash.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/08_deephash.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
     unless $ENV{LONG_TESTS};
@@ -59,4 +59,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/09_deeparray.t DBM-Deep-1.0025/t/09_deeparray.t
--- DBM-Deep-1.0025-orig/t/09_deeparray.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/09_deeparray.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 plan skip_all => "You must set \$ENV{LONG_TESTS} to run the long tests"
     unless $ENV{LONG_TESTS};
@@ -42,4 +42,4 @@
         is( $temp_db->[0], "deepvalue", "And we retrieved the value at the bottom of the ocean" );
     }
 }
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/10_largekeys.t DBM-Deep-1.0025/t/10_largekeys.t
--- DBM-Deep-1.0025-orig/t/10_largekeys.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/10_largekeys.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -58,4 +58,4 @@
     $test_key = $db->next_key($test_key);
     ok( !$test_key, "No fourth key" );
 }
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/11_optimize.t DBM-Deep-1.0025/t/11_optimize.t
--- DBM-Deep-1.0025-orig/t/11_optimize.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/11_optimize.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 plan skip_all => "Skipping the optimize tests on Win32/cygwin for now."
     if ( $^O eq 'MSWin32' || $^O eq 'cygwin' );
@@ -128,4 +128,4 @@
     is( $db->{a}{c}, 'value2', "key2's value is still there after optimize" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/12_clone.t DBM-Deep-1.0025/t/12_clone.t
--- DBM-Deep-1.0025-orig/t/12_clone.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/12_clone.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -49,4 +49,4 @@
         is($db->{key3}, "value3");
     }
 }
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/13_setpack.t DBM-Deep-1.0025/t/13_setpack.t
--- DBM-Deep-1.0025-orig/t/13_setpack.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/13_setpack.t	2010-07-12 14:04:23.000000000 +0200
@@ -2,7 +2,7 @@
 use warnings FATAL => 'all';
 
 use Config;
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );
@@ -121,4 +121,4 @@
 #
 #}
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/14_filter.t DBM-Deep-1.0025/t/14_filter.t
--- DBM-Deep-1.0025-orig/t/14_filter.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/14_filter.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 
 use t::common qw( new_dbm );
@@ -66,4 +66,4 @@
     is( $db->{MYFILTERkey2}, "MYFILTERvalue2", "We get the right unfiltered value" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/15_digest.t DBM-Deep-1.0025/t/15_digest.t
--- DBM-Deep-1.0025-orig/t/15_digest.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/15_digest.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -92,4 +92,4 @@
 
     ok( $db->get("key1") eq "value222222222222222222222222" );
 }
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/16_circular.t DBM-Deep-1.0025/t/16_circular.t
--- DBM-Deep-1.0025-orig/t/16_circular.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/16_circular.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -101,4 +101,4 @@
     is( $db->{key5}{foo4}, 'bar4' );
     is( $db->{key6}{foo4}, 'bar4' );
 }
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/17_import.t DBM-Deep-1.0025/t/17_import.t
--- DBM-Deep-1.0025-orig/t/17_import.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/17_import.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use Test::Exception;
 use t::common qw( new_dbm );
@@ -147,7 +147,7 @@
     }
 }
 
-done_testing;
+#done_testing;
 
 __END__
 
diff -ruN DBM-Deep-1.0025-orig/t/18_export.t DBM-Deep-1.0025/t/18_export.t
--- DBM-Deep-1.0025-orig/t/18_export.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/18_export.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -63,4 +63,4 @@
     isa_ok( tied(@{$db->{hash1}{subkey3}{sub_obj2}})->export, 'Foo' );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/19_crossref.t DBM-Deep-1.0025/t/19_crossref.t
--- DBM-Deep-1.0025-orig/t/19_crossref.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/19_crossref.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -66,7 +66,7 @@
 #    is( $db->{copy}{subkey2}, 'subvalue2', "Value2 copied correctly" );
 }
 
-done_testing;
+#done_testing;
 
 package Tied::Scalar;
 sub TIESCALAR { bless {}, $_[0]; }
diff -ruN DBM-Deep-1.0025-orig/t/20_tie.t DBM-Deep-1.0025/t/20_tie.t
--- DBM-Deep-1.0025-orig/t/20_tie.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/20_tie.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_fh );
 
@@ -65,4 +65,4 @@
     tie my @array, 'DBM::Deep', undef, file => $filename;
 } qr/Odd number of parameters/, "Odd number of params to TIEARRAY fails";
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/21_tie_access.t DBM-Deep-1.0025/t/21_tie_access.t
--- DBM-Deep-1.0025-orig/t/21_tie_access.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/21_tie_access.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_fh );
 
@@ -52,4 +52,4 @@
     $db->_get_self->_engine->storage->close( $db->_get_self );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/22_internal_copy.t DBM-Deep-1.0025/t/22_internal_copy.t
--- DBM-Deep-1.0025-orig/t/22_internal_copy.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/22_internal_copy.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm new_fh );
 
 use_ok( 'DBM::Deep' );
@@ -73,4 +73,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/23_misc.t DBM-Deep-1.0025/t/23_misc.t
--- DBM-Deep-1.0025-orig/t/23_misc.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/23_misc.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_fh );
 
@@ -54,4 +54,4 @@
     ok( !$db->unlock, "Calling unlock() on a closed database returns false" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/24_autobless.t DBM-Deep-1.0025/t/24_autobless.t
--- DBM-Deep-1.0025-orig/t/24_autobless.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/24_autobless.t	2010-07-12 14:04:23.000000000 +0200
@@ -8,7 +8,7 @@
     sub foo { 'foo' };
 }
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -188,4 +188,4 @@
     is( $db->{after}, "hello" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/25_tie_return_value.t DBM-Deep-1.0025/t/25_tie_return_value.t
--- DBM-Deep-1.0025-orig/t/25_tie_return_value.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/25_tie_return_value.t	2010-07-12 14:04:23.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );
@@ -26,4 +26,4 @@
     is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/26_scalar_ref.t DBM-Deep-1.0025/t/26_scalar_ref.t
--- DBM-Deep-1.0025-orig/t/26_scalar_ref.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/26_scalar_ref.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm new_fh );
 
@@ -57,4 +57,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/28_index_sector.t DBM-Deep-1.0025/t/28_index_sector.t
--- DBM-Deep-1.0025-orig/t/28_index_sector.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/28_index_sector.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -32,4 +32,4 @@
     cmp_ok( scalar(keys %$db), '==', 18, "Number of keys after autovivify is correct" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/29_largedata.t DBM-Deep-1.0025/t/29_largedata.t
--- DBM-Deep-1.0025-orig/t/29_largedata.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/29_largedata.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -22,4 +22,4 @@
 #    cmp_ok( $size, '==', -s $filename, "Freespace is reused" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/30_already_tied.t DBM-Deep-1.0025/t/30_already_tied.t
--- DBM-Deep-1.0025-orig/t/30_already_tied.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/30_already_tied.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -77,4 +77,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/31_references.t DBM-Deep-1.0025/t/31_references.t
--- DBM-Deep-1.0025-orig/t/31_references.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/31_references.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use Test::Exception;
 use t::common qw( new_dbm );
@@ -60,4 +60,4 @@
     is( $array[3]{def}{foo}, 2 );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/32_dash_ell.t DBM-Deep-1.0025/t/32_dash_ell.t
--- DBM-Deep-1.0025-orig/t/32_dash_ell.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/32_dash_ell.t	2010-07-12 14:04:24.000000000 +0200
@@ -4,7 +4,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_fh );
 
@@ -21,4 +21,4 @@
 is( $db->fetch("key1"), "value1", "... fetch() works with hash assignment" );
 is( $db->{key1}, "value1", "... and hash-access also works" );
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/33_transactions.t DBM-Deep-1.0025/t/33_transactions.t
--- DBM-Deep-1.0025-orig/t/33_transactions.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/33_transactions.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use Test::Exception;
 use t::common qw( new_dbm );
@@ -231,4 +231,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/34_transaction_arrays.t DBM-Deep-1.0025/t/34_transaction_arrays.t
--- DBM-Deep-1.0025-orig/t/34_transaction_arrays.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/34_transaction_arrays.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -120,4 +120,4 @@
     cmp_ok( scalar(@$db2), '==', 5, "DB2 still has 5 elements" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/35_transaction_multiple.t DBM-Deep-1.0025/t/35_transaction_multiple.t
--- DBM-Deep-1.0025-orig/t/35_transaction_multiple.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/35_transaction_multiple.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -105,4 +105,4 @@
     cmp_bag( [ keys %$db3 ], [qw( foo bar mykey )], "DB3 keys correct" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/38_data_sector_size.t DBM-Deep-1.0025/t/38_data_sector_size.t
--- DBM-Deep-1.0025-orig/t/38_data_sector_size.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/38_data_sector_size.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use t::common qw( new_fh );
 
@@ -105,4 +105,4 @@
 cmp_ok( $sizes{128}, '>', $sizes{64}, "Filesize for 128 > filesize for 64" );
 cmp_ok( $sizes{64}, '>', $sizes{32}, "Filesize for 64 > filesize for 32" );
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/39_singletons.t DBM-Deep-1.0025/t/39_singletons.t
--- DBM-Deep-1.0025-orig/t/39_singletons.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/39_singletons.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -119,4 +119,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/40_freespace.t DBM-Deep-1.0025/t/40_freespace.t
--- DBM-Deep-1.0025-orig/t/40_freespace.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/40_freespace.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_fh );
 
@@ -82,4 +82,4 @@
     cmp_ok( $expected, '==', -s $filename, "No reindexing after deletion" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/41_transaction_multilevel.t DBM-Deep-1.0025/t/41_transaction_multilevel.t
--- DBM-Deep-1.0025-orig/t/41_transaction_multilevel.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/41_transaction_multilevel.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,5 +1,5 @@
 use strict;
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -96,4 +96,4 @@
     cmp_bag( [ keys %{$db2->{x}{yz}} ], [qw( bar )], "DB2->X->XY keys correct" );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/42_transaction_indexsector.t DBM-Deep-1.0025/t/42_transaction_indexsector.t
--- DBM-Deep-1.0025-orig/t/42_transaction_indexsector.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/42_transaction_indexsector.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_dbm );
 
@@ -86,4 +86,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/43_transaction_maximum.t DBM-Deep-1.0025/t/43_transaction_maximum.t
--- DBM-Deep-1.0025-orig/t/43_transaction_maximum.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/43_transaction_maximum.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use Test::Exception;
 use t::common qw( new_dbm );
@@ -49,4 +49,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/45_references.t DBM-Deep-1.0025/t/45_references.t
--- DBM-Deep-1.0025-orig/t/45_references.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/45_references.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -63,7 +63,7 @@
     is( $db1->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" );
 }
 
-done_testing;
+#done_testing;
 
 __END__
 $db2->begin_work;
diff -ruN DBM-Deep-1.0025-orig/t/46_blist_reindex.t DBM-Deep-1.0025/t/46_blist_reindex.t
--- DBM-Deep-1.0025-orig/t/46_blist_reindex.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/46_blist_reindex.t	2010-07-12 14:04:24.000000000 +0200
@@ -3,7 +3,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use t::common qw( new_dbm );
 
@@ -61,4 +61,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/47_odd_reference_behaviors.t DBM-Deep-1.0025/t/47_odd_reference_behaviors.t
--- DBM-Deep-1.0025-orig/t/47_odd_reference_behaviors.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/47_odd_reference_behaviors.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use Test::Deep;
 
@@ -26,7 +26,7 @@
         isa_ok($db->{bar}, 'Foo');
     }
 }
-done_testing;
+#done_testing;
 __END__
 # This is bug #29957, reported by HANENKAMP
 {
@@ -72,4 +72,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/48_autoexport_after_delete.t DBM-Deep-1.0025/t/48_autoexport_after_delete.t
--- DBM-Deep-1.0025-orig/t/48_autoexport_after_delete.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/48_autoexport_after_delete.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 
 use t::common qw( new_dbm );
@@ -54,4 +54,4 @@
     );
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/50_deletes.t DBM-Deep-1.0025/t/50_deletes.t
--- DBM-Deep-1.0025-orig/t/50_deletes.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/50_deletes.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use t::common qw( new_dbm );
 
@@ -25,4 +25,4 @@
     }
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/53_misc_transactions.t DBM-Deep-1.0025/t/53_misc_transactions.t
--- DBM-Deep-1.0025-orig/t/53_misc_transactions.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/53_misc_transactions.t	2010-07-12 14:04:24.000000000 +0200
@@ -5,7 +5,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
@@ -26,7 +26,7 @@
     ok(!$@, "No eval failures");
 }
 
-done_testing;
+#done_testing;
 
 sub randkey {
     our $i++;
diff -ruN DBM-Deep-1.0025-orig/t/54_output_punct_vars.t DBM-Deep-1.0025/t/54_output_punct_vars.t
--- DBM-Deep-1.0025-orig/t/54_output_punct_vars.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/54_output_punct_vars.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );
@@ -26,4 +26,4 @@
     $db->{baz};
 }, '$\ causes no problems';
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/55_recursion.t DBM-Deep-1.0025/t/55_recursion.t
--- DBM-Deep-1.0025-orig/t/55_recursion.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/55_recursion.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 use t::common qw( new_dbm );
 
@@ -22,4 +22,4 @@
     } 'deep recursion causes no errors';
 }
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/96_virtual_functions.t DBM-Deep-1.0025/t/96_virtual_functions.t
--- DBM-Deep-1.0025-orig/t/96_virtual_functions.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/96_virtual_functions.t	2010-07-12 14:04:24.000000000 +0200
@@ -3,7 +3,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Exception;
 
 use lib 't/lib';
@@ -166,4 +166,4 @@
     $db->first_key;
 } 'Finally have enough for first_key to work.';
 
-done_testing;
+#done_testing;
diff -ruN DBM-Deep-1.0025-orig/t/97_dump_file.t DBM-Deep-1.0025/t/97_dump_file.t
--- DBM-Deep-1.0025-orig/t/97_dump_file.t	2010-06-06 21:45:47.000000000 +0200
+++ DBM-Deep-1.0025/t/97_dump_file.t	2010-07-12 14:04:24.000000000 +0200
@@ -1,7 +1,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Deep;
 use t::common qw( new_fh );
 
@@ -32,4 +32,4 @@
 00000545: D  0064 foo
 __END_DUMP__
 
-done_testing;
+#done_testing;