File perl-DBM-Deep_Build_n_Test.patch of Package perl-DBM-Deep

--- DBM-Deep-2.0004/Build.PL
+++ DBM-Deep-2.0004/Build.PL
@@ -1,4 +1,4 @@
-use Module::Build 0.28; # for prepare_metadata
+use Module::Build; # for prepare_metadata
 
 use strict;
 use warnings FATAL => 'all';
@@ -46,7 +46,7 @@
         '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',
     },
     create_makefile_pl => 'traditional',
--- DBM-Deep-2.0004/META.yml
+++ DBM-Deep-2.0004/META.yml
@@ -7,11 +7,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
--- DBM-Deep-2.0004/Makefile.PL
+++ DBM-Deep-2.0004/Makefile.PL
@@ -14,7 +14,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',
--- DBM-Deep-2.0004/t/01_basic.t
+++ DBM-Deep-2.0004/t/01_basic.t
@@ -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;
--- DBM-Deep-2.0004/t/02_hash.t
+++ DBM-Deep-2.0004/t/02_hash.t
@@ -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 );
@@ -193,4 +193,4 @@
     }
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/03_bighash.t
+++ DBM-Deep-2.0004/t/03_bighash.t
@@ -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};
@@ -53,4 +53,4 @@
     cmp_ok( scalar(keys %$db), '==', 0, "Number of keys after clear() is correct" );
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/04_array.t
+++ DBM-Deep-2.0004/t/04_array.t
@@ -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;
--- DBM-Deep-2.0004/t/05_bigarray.t
+++ DBM-Deep-2.0004/t/05_bigarray.t
@@ -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;
--- DBM-Deep-2.0004/t/06_error.t
+++ DBM-Deep-2.0004/t/06_error.t
@@ -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 );
@@ -155,4 +155,4 @@
      "Error when starting transaction in database with only 1 txn";
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/07_locking.t
+++ DBM-Deep-2.0004/t/07_locking.t
@@ -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;
--- DBM-Deep-2.0004/t/08_deephash.t
+++ DBM-Deep-2.0004/t/08_deephash.t
@@ -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;
--- DBM-Deep-2.0004/t/09_deeparray.t
+++ DBM-Deep-2.0004/t/09_deeparray.t
@@ -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;
--- DBM-Deep-2.0004/t/10_largekeys.t
+++ DBM-Deep-2.0004/t/10_largekeys.t
@@ -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;
--- DBM-Deep-2.0004/t/11_optimize.t
+++ DBM-Deep-2.0004/t/11_optimize.t
@@ -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;
--- DBM-Deep-2.0004/t/12_clone.t
+++ DBM-Deep-2.0004/t/12_clone.t
@@ -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;
--- DBM-Deep-2.0004/t/13_setpack.t
+++ DBM-Deep-2.0004/t/13_setpack.t
@@ -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;
--- DBM-Deep-2.0004/t/14_filter.t
+++ DBM-Deep-2.0004/t/14_filter.t
@@ -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;
--- DBM-Deep-2.0004/t/15_digest.t
+++ DBM-Deep-2.0004/t/15_digest.t
@@ -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;
--- DBM-Deep-2.0004/t/16_circular.t
+++ DBM-Deep-2.0004/t/16_circular.t
@@ -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;
--- DBM-Deep-2.0004/t/17_import.t
+++ DBM-Deep-2.0004/t/17_import.t
@@ -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__
 
--- DBM-Deep-2.0004/t/18_export.t
+++ DBM-Deep-2.0004/t/18_export.t
@@ -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;
--- DBM-Deep-2.0004/t/19_crossref.t
+++ DBM-Deep-2.0004/t/19_crossref.t
@@ -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]; }
--- DBM-Deep-2.0004/t/20_tie.t
+++ DBM-Deep-2.0004/t/20_tie.t
@@ -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;
--- DBM-Deep-2.0004/t/21_tie_access.t
+++ DBM-Deep-2.0004/t/21_tie_access.t
@@ -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;
--- DBM-Deep-2.0004/t/22_internal_copy.t
+++ DBM-Deep-2.0004/t/22_internal_copy.t
@@ -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;
--- DBM-Deep-2.0004/t/23_misc.t
+++ DBM-Deep-2.0004/t/23_misc.t
@@ -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;
--- DBM-Deep-2.0004/t/24_autobless.t
+++ DBM-Deep-2.0004/t/24_autobless.t
@@ -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;
--- DBM-Deep-2.0004/t/25_tie_return_value.t
+++ DBM-Deep-2.0004/t/25_tie_return_value.t
@@ -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;
--- DBM-Deep-2.0004/t/26_scalar_ref.t
+++ DBM-Deep-2.0004/t/26_scalar_ref.t
@@ -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;
--- DBM-Deep-2.0004/t/28_index_sector.t
+++ DBM-Deep-2.0004/t/28_index_sector.t
@@ -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 );
 
@@ -33,4 +33,4 @@
     cmp_ok( scalar(keys %$db), '==', 18, "Number of keys after autovivify is correct" );
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/29_largedata.t
+++ DBM-Deep-2.0004/t/29_largedata.t
@@ -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;
--- DBM-Deep-2.0004/t/30_already_tied.t
+++ DBM-Deep-2.0004/t/30_already_tied.t
@@ -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;
--- DBM-Deep-2.0004/t/31_references.t
+++ DBM-Deep-2.0004/t/31_references.t
@@ -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;
--- DBM-Deep-2.0004/t/32_dash_ell.t
+++ DBM-Deep-2.0004/t/32_dash_ell.t
@@ -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;
--- DBM-Deep-2.0004/t/33_transactions.t
+++ DBM-Deep-2.0004/t/33_transactions.t
@@ -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;
--- DBM-Deep-2.0004/t/34_transaction_arrays.t
+++ DBM-Deep-2.0004/t/34_transaction_arrays.t
@@ -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;
--- DBM-Deep-2.0004/t/35_transaction_multiple.t
+++ DBM-Deep-2.0004/t/35_transaction_multiple.t
@@ -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;
--- DBM-Deep-2.0004/t/38_data_sector_size.t
+++ DBM-Deep-2.0004/t/38_data_sector_size.t
@@ -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;
--- DBM-Deep-2.0004/t/39_singletons.t
+++ DBM-Deep-2.0004/t/39_singletons.t
@@ -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 new_fh );
 
@@ -249,4 +249,4 @@
   'global destruction frees externally referenced hashes';
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/40_freespace.t
+++ DBM-Deep-2.0004/t/40_freespace.t
@@ -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;
--- DBM-Deep-2.0004/t/41_transaction_multilevel.t
+++ DBM-Deep-2.0004/t/41_transaction_multilevel.t
@@ -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;
--- DBM-Deep-2.0004/t/42_transaction_indexsector.t
+++ DBM-Deep-2.0004/t/42_transaction_indexsector.t
@@ -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;
--- DBM-Deep-2.0004/t/43_transaction_maximum.t
+++ DBM-Deep-2.0004/t/43_transaction_maximum.t
@@ -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 );
@@ -52,4 +52,4 @@
     }
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/45_references.t
+++ DBM-Deep-2.0004/t/45_references.t
@@ -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;
--- DBM-Deep-2.0004/t/46_blist_reindex.t
+++ DBM-Deep-2.0004/t/46_blist_reindex.t
@@ -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;
--- DBM-Deep-2.0004/t/47_odd_reference_behaviors.t
+++ DBM-Deep-2.0004/t/47_odd_reference_behaviors.t
@@ -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;
--- DBM-Deep-2.0004/t/48_autoexport_after_delete.t
+++ DBM-Deep-2.0004/t/48_autoexport_after_delete.t
@@ -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;
--- DBM-Deep-2.0004/t/50_deletes.t
+++ DBM-Deep-2.0004/t/50_deletes.t
@@ -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 );
 
@@ -32,4 +32,4 @@
 
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/53_misc_transactions.t
+++ DBM-Deep-2.0004/t/53_misc_transactions.t
@@ -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++;
--- DBM-Deep-2.0004/t/54_output_punct_vars.t
+++ DBM-Deep-2.0004/t/54_output_punct_vars.t
@@ -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;
--- DBM-Deep-2.0004/t/55_recursion.t
+++ DBM-Deep-2.0004/t/55_recursion.t
@@ -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;
--- DBM-Deep-2.0004/t/56_unicode.t
+++ DBM-Deep-2.0004/t/56_unicode.t
@@ -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 utf8;
@@ -41,4 +41,4 @@
 
 }
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/57_old_db.t
+++ DBM-Deep-2.0004/t/57_old_db.t
@@ -2,7 +2,7 @@
 use warnings FATAL => 'all';
 
 use File::Spec::Functions 'catfile';
-use Test::More;
+use Test::More qw(no_plan);
 use t::common qw( new_fh );
 
 use DBM::Deep;
@@ -17,4 +17,4 @@
 is new DBM::Deep file => $filename, fh=>$fh =>->db_version, '2',
  'db_version on new db';
 
-done_testing;
+#done_testing;
--- DBM-Deep-2.0004/t/96_virtual_functions.t
+++ DBM-Deep-2.0004/t/96_virtual_functions.t
@@ -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;
--- DBM-Deep-2.0004/t/97_dump_file.t
+++ DBM-Deep-2.0004/t/97_dump_file.t
@@ -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 );
 use utf8;
@@ -50,4 +50,4 @@
 00000673: U  0064 ḟoo
 __END_DUMP__
 
-done_testing;
+#done_testing;