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