Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.1:Update
perl-DBM-Deep
perl-DBM-Deep_Build_n_Test.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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;
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor