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
@@ -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[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. Checks if C<$got eq $expected>. This is the
string version.
+C<undef> only ever matches another C<undef>.
+
=item B
$Test->is_num($got, $expected, $name);
@@ -930,6 +934,8 @@
Like Test::More's C. 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