Hello community, here is the log from the commit of package perl-Test-Simple for openSUSE:Factory checked in at Thu Mar 31 15:10:47 CEST 2011. -------- --- perl-Test-Simple/perl-Test-Simple.changes 2010-11-16 10:54:09.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Test-Simple/perl-Test-Simple.changes 2011-02-23 09:44:40.000000000 +0100 @@ -1,0 +2,17 @@ +Wed Feb 23 08:28:21 UTC 2011 - lars@linux-schulserver.de + +- update to 0.98: + + subtest() should not fail if $? is non-zero. + + The behavior of is() and undef has been documented. + + Adapted the tests for the new Perl 5.14 regex stringification. + + The filehandles used by default will now inherit any filehandle + disciplines from STDOUT and STDERR IF AND ONLY IF they were applied + before Test::Builder is loaded. +- also package the examples in docdir + +------------------------------------------------------------------- +Tue Nov 30 14:20:28 UTC 2010 - coolo@novell.com + +- buildrequire perl-devel on fedora + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- Test-Simple-0.96.tar.bz2 New: ---- Test-Simple-0.98.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Simple.spec ++++++ --- /var/tmp/diff_new_pack.1f1IJd/_old 2011-03-31 15:10:05.000000000 +0200 +++ /var/tmp/diff_new_pack.1f1IJd/_new 2011-03-31 15:10:05.000000000 +0200 @@ -1,7 +1,7 @@ # -# spec file for package perl-Test-Simple (Version 0.96) +# spec file for package perl-Test-Simple # -# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -22,7 +22,7 @@ Name: perl-Test-Simple %define cpan_name Test-Simple Summary: Basic utilities for writing tests -Version: 0.96 +Version: 0.98 Release: 1 License: GPL+ or Artistic Group: Development/Libraries/Perl @@ -31,16 +31,17 @@ Source: %{cpan_name}-%{version}.tar.bz2 BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build +%{perl_requires} BuildRequires: perl -%if 0%{?suse_version} < 1120 -BuildRequires: perl-macros +%if 0%{?fedora} +BuildRequires: perl-devel %endif +BuildRequires: perl-macros %if %{with pod} BuildRequires: perl(Test::Pod) >= 1.00 BuildRequires: perl(Test::Pod::Coverage) >= 1.08 %endif BuildRequires: perl(Test::Harness) >= 2.03 -Requires: perl = %{perl_version} Requires: perl(Test::Harness) >= 2.03 %description @@ -65,11 +66,7 @@ %install %perl_make_install -# do not perl_process_packlist (noarch) -# remove .packlist file -%{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch -# remove perllocal.pod file -%{__rm} -rf $RPM_BUILD_ROOT%perl_archlib +%perl_process_packlist %perl_gen_filelist %clean @@ -77,6 +74,6 @@ %files -f %{name}.files %defattr(-,root,root,-) -%doc Changes README TODO +%doc Changes README TODO examples %changelog ++++++ Test-Simple-0.96.tar.bz2 -> Test-Simple-0.98.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/Changes new/Test-Simple-0.98/Changes --- old/Test-Simple-0.96/Changes 2010-08-11 06:18:18.000000000 +0200 +++ new/Test-Simple-0.98/Changes 2011-02-23 04:38:15.000000000 +0100 @@ -1,3 +1,27 @@ +0.98 Wed, 23 Feb 2011 14:38:02 +1100 + Bug Fixes + * subtest() should not fail if $? is non-zero. (Aaron Crane) + + Docs + * The behavior of is() and undef has been documented. (Pedro Melo) + + +0.97_01 Fri Aug 27 22:50:30 PDT 2010 + Test Fixes + * Adapted the tests for the new Perl 5.14 regex stringification. + (Karl Williamson) [github 44] + + Doc Fixes + * Document how to test "use Foo ()". (Todd Rinaldo) [github 41] + + Feature Changes + * subtest() no longer has a prototype. It was just getting in the way. + [rt.cpan.org 54239] + * The filehandles used by default will now inherit any filehandle + disciplines from STDOUT and STDERR IF AND ONLY IF they were applied + before Test::Builder is loaded. More later. [rt.cpan.org 46542] + + 0.96 Tue Aug 10 21:13:04 PDT 2010 Bug Fixes * You can call done_testing() again after reset() [googlecode 59] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/MANIFEST new/Test-Simple-0.98/MANIFEST --- old/Test-Simple-0.96/MANIFEST 2010-08-11 06:25:18.000000000 +0200 +++ new/Test-Simple-0.98/MANIFEST 2011-02-23 04:42:41.000000000 +0100 @@ -128,6 +128,7 @@ t/subtest/predicate.t t/subtest/singleton.t t/subtest/todo.t +t/subtest/wstat.t t/tbm_doesnt_set_exported_to.t t/Tester/tbt_01basic.t t/Tester/tbt_02fhrestore.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/MANIFEST.SKIP new/Test-Simple-0.98/MANIFEST.SKIP --- old/Test-Simple-0.96/MANIFEST.SKIP 2010-08-11 05:44:54.000000000 +0200 +++ new/Test-Simple-0.98/MANIFEST.SKIP 2011-02-23 04:40:11.000000000 +0100 @@ -1,5 +1,5 @@ -#!start included /usr/local/perl/5.10.0/lib/5.10.0/ExtUtils/MANIFEST.SKIP +#!start included /Users/schwern/perl5/perlbrew/perls/perl-v5.12.2/lib/5.12.2/ExtUtils/MANIFEST.SKIP # Avoid version control files. \bRCS\b \bCVS\b @@ -9,6 +9,12 @@ \B\.git\b \B\.gitignore\b \b_darcs\b +\B\.cvsignore$ + +# Avoid VMS specific MakeMaker generated files +\bDescrip.MMS$ +\bDESCRIP.MMS$ +\bdescrip.mms$ # Avoid Makemaker generated and utility files. \bMANIFEST\.bak @@ -22,6 +28,10 @@ # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ +\bBuild.bat$ +\bBuild.COM$ +\bBUILD.COM$ +\bbuild.com$ # Avoid temp and backup files. ~$ @@ -29,10 +39,23 @@ \#$ \b\.# \.bak$ +\.tmp$ +\.# +\.rej$ + +# Avoid OS-specific files/dirs +# Mac OSX metadata +\B\.DS_Store +# Mac OSX SMB mount metadata files +\B\._ -# Avoid Devel::Cover files. +# Avoid Devel::Cover and Devel::CoverX::Covered files. \bcover_db\b -#!end included /usr/local/perl/5.10.0/lib/5.10.0/ExtUtils/MANIFEST.SKIP +\bcovered\b + +# Avoid MYMETA files +^MYMETA\. +#!end included /Users/schwern/perl5/perlbrew/perls/perl-v5.12.2/lib/5.12.2/ExtUtils/MANIFEST.SKIP # Avoid this one test that doesn't work yet @@ -48,4 +71,4 @@ ^cover_db/ # Don't include our dist director -^Test-Simple- \ No newline at end of file +^Test-Simple- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/META.yml new/Test-Simple-0.98/META.yml --- old/Test-Simple-0.96/META.yml 2010-08-11 06:25:18.000000000 +0200 +++ new/Test-Simple-0.98/META.yml 2011-02-23 04:42:41.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Test-Simple -version: 0.96 +version: 0.98 abstract: Basic utilities for writing tests. author: - Michael G Schwern <schwern@pobox.com> @@ -23,7 +23,7 @@ directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.56 +generated_by: ExtUtils::MakeMaker version 6.57_06 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/Builder/Module.pm new/Test-Simple-0.98/lib/Test/Builder/Module.pm --- old/Test-Simple-0.96/lib/Test/Builder/Module.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/Builder/Module.pm 2011-02-23 04:38:29.000000000 +0100 @@ -7,7 +7,7 @@ require Exporter; our @ISA = qw(Exporter); -our $VERSION = '0.96'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) @@ -58,7 +58,7 @@ All arguments passed to import() are passed onto C<< Your::Module->builder->plan() >> with the exception of -C<import =>[qw(things to import)]>. +C<< import =>[qw(things to import)] >>. use Your::Module import => [qw(this that)], tests => 23; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/Builder/Tester/Color.pm new/Test-Simple-0.98/lib/Test/Builder/Tester/Color.pm --- old/Test-Simple-0.96/lib/Test/Builder/Tester/Color.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/Builder/Tester/Color.pm 2011-02-23 04:38:29.000000000 +0100 @@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = "1.20"; +our $VERSION = "1.22"; require Test::Builder::Tester; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/Builder/Tester.pm new/Test-Simple-0.98/lib/Test/Builder/Tester.pm --- old/Test-Simple-0.96/lib/Test/Builder/Tester.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/Builder/Tester.pm 2011-02-23 04:38:29.000000000 +0100 @@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = "1.20"; +our $VERSION = "1.22"; use Test::Builder; use Symbol; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/Builder.pm new/Test-Simple-0.98/lib/Test/Builder.pm --- old/Test-Simple-0.96/lib/Test/Builder.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/Builder.pm 2011-02-23 04:38:29.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '0.96'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) BEGIN { @@ -312,6 +312,8 @@ if( $self->{Child_Name} ) { $self->croak("Can't call finalize() with child ($self->{Child_Name}) active"); } + + local $? = 0; # don't fail if $subtests happened to set $? nonzero $self->_ending; # XXX This will only be necessary for TAP envelopes (we think) @@ -923,6 +925,8 @@ Like Test::More's C<is()>. Checks if C<$got eq $expected>. This is the string version. +C<undef> only ever matches another C<undef>. + =item B<is_num> $Test->is_num($got, $expected, $name); @@ -930,6 +934,8 @@ Like Test::More's C<is()>. Checks if C<$got == $expected>. This is the numeric version. +C<undef> only ever matches another C<undef>. + =cut sub is_eq { @@ -1880,8 +1886,8 @@ open( $Testout, ">&STDOUT" ) or die "Can't dup STDOUT: $!"; open( $Testerr, ">&STDERR" ) or die "Can't dup STDERR: $!"; - # $self->_copy_io_layers( \*STDOUT, $Testout ); - # $self->_copy_io_layers( \*STDERR, $Testerr ); + $self->_copy_io_layers( \*STDOUT, $Testout ); + $self->_copy_io_layers( \*STDERR, $Testerr ); $self->{Opened_Testhandles} = 1; @@ -1896,13 +1902,21 @@ require PerlIO; my @src_layers = PerlIO::get_layers($src); - binmode $dst, join " ", map ":$_", @src_layers if @src_layers; + _apply_layers($dst, @src_layers) if @src_layers; } ); return; } +sub _apply_layers { + my ($fh, @layers) = @_; + my %seen; + my @unique = grep { $_ ne 'unix' and !$seen{$_}++ } @layers; + binmode($fh, join(":", "", "raw", @unique)); +} + + =item reset_outputs $tb->reset_outputs; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/More.pm new/Test-Simple-0.98/lib/Test/More.pm --- old/Test-Simple-0.96/lib/Test/More.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/More.pm 2011-02-23 04:38:29.000000000 +0100 @@ -17,7 +17,7 @@ return warn @_, " at $file line $line\n"; } -our $VERSION = '0.96'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Builder::Module; @@ -317,6 +317,11 @@ ok( ultimate_answer() eq 42, "Meaning of Life" ); ok( $foo ne '', "Got some foo" ); +C<undef> will only ever match C<undef>. So you can test a value +agains C<undef> like this: + + is($not_defined, undef, "undefined as expected"); + (Mnemonic: "This is that." "This isn't that.") So why use these? They produce better diagnostics on failure. ok() @@ -735,7 +740,7 @@ =cut -sub subtest($&) { +sub subtest { my ($name, $subtests) = @_; my $tb = Test::More->builder; @@ -819,6 +824,11 @@ BEGIN { use_ok('Some::Module') } BEGIN { ...some code that depends on the use... } +If you want the equivalent of C<use Foo ()>, use a module but not +import anything, use C<require_ok>. + + BEGIN { require_ok "Foo" } + =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/lib/Test/Simple.pm new/Test-Simple-0.98/lib/Test/Simple.pm --- old/Test-Simple-0.96/lib/Test/Simple.pm 2010-08-11 06:16:25.000000000 +0200 +++ new/Test-Simple-0.98/lib/Test/Simple.pm 2011-02-23 04:38:29.000000000 +0100 @@ -4,7 +4,7 @@ use strict; -our $VERSION = '0.96'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Builder::Module; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/t/fail-like.t new/Test-Simple-0.98/t/fail-like.t --- old/Test-Simple-0.96/t/fail-like.t 2010-05-20 23:01:12.000000000 +0200 +++ new/Test-Simple-0.98/t/fail-like.t 2011-02-23 04:35:25.000000000 +0100 @@ -44,25 +44,28 @@ not ok 1 - is foo like that OUT + # Accept both old and new-style stringification + my $modifiers = (qr/foobar/ =~ /\Q(?^/) ? '\\^' : '-xism'; + my $err_re = <<ERR; # Failed test 'is foo like that' # at .* line 1\. # 'foo' -# doesn't match '\\(\\?-xism:that\\)' +# doesn't match '\\(\\?$modifiers:that\\)' ERR $TB->like($err->read, qr/^$err_re$/, 'failing errors'); } { - # line 59 + # line 62 like("foo", "not a regex"); $TB->is_eq($out->read, <<OUT); not ok 2 OUT $TB->is_eq($err->read, <<OUT); -# Failed test at $0 line 59. +# Failed test at $0 line 62. # 'not a regex' doesn't look much like a regex to me. OUT diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/t/is_deeply_fail.t new/Test-Simple-0.98/t/is_deeply_fail.t --- old/Test-Simple-0.96/t/is_deeply_fail.t 2010-06-17 05:38:28.000000000 +0200 +++ new/Test-Simple-0.98/t/is_deeply_fail.t 2011-02-23 04:35:25.000000000 +0100 @@ -373,15 +373,18 @@ # rt.cpan.org 53469 { -#line 377 + + # Accept both old and new-style stringification + my $modifiers = (qr/foobar/ =~ /\Q(?^/) ? '^' : '-xism'; +#line 380 ok !is_deeply( qr/a/, qr/b/, "different regexes" ); is( $out, "not ok 29 - different regexes\n" ); is( $err, <<ERR, ' right diagnostic' ); # Failed test 'different regexes' -# at $0 line 377. +# at $0 line 380. # Structures begin differing at: -# \$got = (?-xism:a) -# \$expected = (?-xism:b) +# \$got = (?$modifiers:a) +# \$expected = (?$modifiers:b) ERR } @@ -415,4 +418,4 @@ is( $out, "not ok 40 - {x => 0} != {x => undef}\n" ); ok !is_deeply( {x => ''}, {x => undef}, "{x => ''} != {x => undef}" ); is( $out, "not ok 41 - {x => ''} != {x => undef}\n" ); -} +} \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/t/subtest/plan.t new/Test-Simple-0.98/t/subtest/plan.t --- old/Test-Simple-0.96/t/subtest/plan.t 2010-06-17 05:38:28.000000000 +0200 +++ new/Test-Simple-0.98/t/subtest/plan.t 2011-02-23 04:35:25.000000000 +0100 @@ -22,7 +22,7 @@ { ok defined &subtest, 'subtest() should be exported to our namespace'; - is prototype('subtest'), '$&', '... with the appropriate prototype'; + is prototype('subtest'), undef, '... has no prototype'; subtest 'subtest with plan', sub { plan tests => 2; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/t/subtest/wstat.t new/Test-Simple-0.98/t/subtest/wstat.t --- old/Test-Simple-0.96/t/subtest/wstat.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Simple-0.98/t/subtest/wstat.t 2011-02-23 04:35:25.000000000 +0100 @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w + +# Test that setting $? doesn't affect subtest success + +use strict; +use Test::More; + +subtest foo => sub { + plan tests => 1; + $? = 1; + pass('bar'); +}; + +is $?, 1, "exit code keeps on from a subtest"; + +subtest foo2 => sub { + plan tests => 1; + pass('bar2'); + $? = 1; +}; + +is $?, 1, "exit code keeps on from a subtest"; + +done_testing(4); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-0.96/t/utf8.t new/Test-Simple-0.98/t/utf8.t --- old/Test-Simple-0.96/t/utf8.t 2010-05-20 23:01:12.000000000 +0200 +++ new/Test-Simple-0.98/t/utf8.t 2010-12-21 05:33:39.000000000 +0100 @@ -10,15 +10,14 @@ use strict; use warnings; -use Test::More skip_all => 'Not yet implemented'; - my $have_perlio; BEGIN { # All together so Test::More sees the open discipline $have_perlio = eval q[ - use PerlIO; - use open ':std', ':locale'; - use Test::More; + require PerlIO; + binmode *STDOUT, ":encoding(utf8)"; + binmode *STDERR, ":encoding(utf8)"; + require Test::More; 1; ]; } @@ -53,10 +52,9 @@ } } -SKIP: { - skip( "Can't test in general because their locale is unknown", 2 ) - unless $ENV{AUTHOR_TESTING}; +# Test utf8 is ok. +{ my $uni = "\x{11e}"; my @warnings; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org