File perl-DBM-Deep_Build_n_Test.patch of Package perl-DBM-Deep
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;
