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 - l...@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 - co...@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 <schw...@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+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
