perl/perl-DBM-Deep
SHA256
8
0
Fork 0
forked from pool/perl-DBM-Deep
Code Pull Requests Activity
Files
f557624f8aaada524508273eade4ab94dd5f6fc0539526fd0bd95979ca40a9a5
perl-DBM-Deep/perl-DBM-Deep_Build_n_Test.patch

958 lines
20 KiB
Diff
Raw Blame History

--- 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;
View Git Blame Copy Permalink