r69667 - in /branches/upstream/libtest-warn-perl/current: Changes META.yml Warn.pm t/carped.t t/warnings_exist.t
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Fri Feb 25 17:21:42 UTC 2011
Author: periapt-guest
Date: Fri Feb 25 17:21:19 2011
New Revision: 69667
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69667
Log:
[svn-upgrade] new version libtest-warn-perl (0.23)
Modified:
branches/upstream/libtest-warn-perl/current/Changes
branches/upstream/libtest-warn-perl/current/META.yml
branches/upstream/libtest-warn-perl/current/Warn.pm
branches/upstream/libtest-warn-perl/current/t/carped.t
branches/upstream/libtest-warn-perl/current/t/warnings_exist.t
Modified: branches/upstream/libtest-warn-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-warn-perl/current/Changes?rev=69667&op=diff
==============================================================================
--- branches/upstream/libtest-warn-perl/current/Changes (original)
+++ branches/upstream/libtest-warn-perl/current/Changes Fri Feb 25 17:21:19 2011
@@ -1,4 +1,7 @@
Revision history for Perl extension Test::Warn.
+
+0.23 2011-02-24
+ - compatibility with Perl 5.14 (ANDK)
0.22 Sep 10 2010
- fixes in English
Modified: branches/upstream/libtest-warn-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-warn-perl/current/META.yml?rev=69667&op=diff
==============================================================================
--- branches/upstream/libtest-warn-perl/current/META.yml (original)
+++ branches/upstream/libtest-warn-perl/current/META.yml Fri Feb 25 17:21:19 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Test-Warn
-version: 0.22
+version: 0.23
abstract: Perl extension to test methods for warnings
author:
- Alexandr Ciornii <alexchorny at gmail.com>
Modified: branches/upstream/libtest-warn-perl/current/Warn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-warn-perl/current/Warn.pm?rev=69667&op=diff
==============================================================================
--- branches/upstream/libtest-warn-perl/current/Warn.pm (original)
+++ branches/upstream/libtest-warn-perl/current/Warn.pm Fri Feb 25 17:21:19 2011
@@ -229,7 +229,7 @@
Copyright 2002 by Janek Schleicher
-Copyright 2007-2009 by Alexandr Ciornii, L<http://chorny.net/>
+Copyright 2007-2011 by Alexandr Ciornii, L<http://chorny.net/>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
@@ -246,7 +246,7 @@
#use Array::Compare;
use Sub::Uplevel 0.12;
-our $VERSION = '0.22';
+our $VERSION = '0.23';
require Exporter;
Modified: branches/upstream/libtest-warn-perl/current/t/carped.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-warn-perl/current/t/carped.t?rev=69667&op=diff
==============================================================================
--- branches/upstream/libtest-warn-perl/current/t/carped.t (original)
+++ branches/upstream/libtest-warn-perl/current/t/carped.t Fri Feb 25 17:21:19 2011
@@ -27,8 +27,7 @@
test_test "Warnings and Carpings mixed, asked only for like warnings";
test_out "not ok 1";
-test_fail +10;
-test_diag
+my @test_diag = (
"found warning: Warning 1 at $tcarped line 13.",
"found carped warning: Carping 2 at $tcarped line 14",
"found carped warning: Carping 3 at $tcarped line 15",
@@ -36,7 +35,11 @@
"expected to find carped warning: (?-xism:1)",
"expected to find carped warning: (?-xism:2)",
"expected to find carped warning: (?-xism:3)",
-"expected to find carped warning: (?-xism:4)";
+"expected to find carped warning: (?-xism:4)",
+);
+if (qr/x/ =~ /\(\?\^/){ s/-xism/^/ for @test_diag }
+test_fail +2;
+test_diag @test_diag;
warnings_like {foo()} [{carped => [map {qr/$_/} (1 .. 4)]}];
test_test "Warnings and Carpings mixed, asked only for like carpings";
Modified: branches/upstream/libtest-warn-perl/current/t/warnings_exist.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-warn-perl/current/t/warnings_exist.t?rev=69667&op=diff
==============================================================================
--- branches/upstream/libtest-warn-perl/current/t/warnings_exist.t (original)
+++ branches/upstream/libtest-warn-perl/current/t/warnings_exist.t Fri Feb 25 17:21:19 2011
@@ -12,6 +12,8 @@
$output=~s/\n{2,}/\n/gs;
my @lines=split /[\n\r]+/,$output;
shift @lines if $lines[0]=~/^Using /; #extra line in perl 5.6.2
+shift @lines if $lines[0]=~/^TAP version /; #extra line in new TAP
+
#print $output;
my @expected=(
"warn_2 at $file line 12.",
@@ -28,7 +30,7 @@
'1..6'
);
foreach my $i (0..$#expected) {
- if ($expected[$i]=~/^\(\?\w*-\w*:/) {
+ if ($expected[$i]=~/^\(\?\^?\w*-?\w*:/) {
like($lines[$i],$expected[$i]);
} else {
is($lines[$i],$expected[$i]);
More information about the Pkg-perl-cvs-commits
mailing list