r69669 - in /trunk/libtest-warn-perl: Changes META.yml Warn.pm debian/changelog debian/copyright t/carped.t t/warnings_exist.t

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Fri Feb 25 17:27:26 2011
New Revision: 69669

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69669
Log:
* New upstream release
* Updated copyright

Modified:
    trunk/libtest-warn-perl/Changes
    trunk/libtest-warn-perl/META.yml
    trunk/libtest-warn-perl/Warn.pm
    trunk/libtest-warn-perl/debian/changelog
    trunk/libtest-warn-perl/debian/copyright
    trunk/libtest-warn-perl/t/carped.t
    trunk/libtest-warn-perl/t/warnings_exist.t

Modified: trunk/libtest-warn-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/Changes?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/Changes (original)
+++ trunk/libtest-warn-perl/Changes Fri Feb 25 17:27:26 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: trunk/libtest-warn-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/META.yml?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/META.yml (original)
+++ trunk/libtest-warn-perl/META.yml Fri Feb 25 17:27:26 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: trunk/libtest-warn-perl/Warn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/Warn.pm?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/Warn.pm (original)
+++ trunk/libtest-warn-perl/Warn.pm Fri Feb 25 17:27:26 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: trunk/libtest-warn-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/debian/changelog?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/debian/changelog (original)
+++ trunk/libtest-warn-perl/debian/changelog Fri Feb 25 17:27:26 2011
@@ -1,3 +1,10 @@
+libtest-warn-perl (0.23-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Updated copyright
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Fri, 25 Feb 2011 17:25:05 +0000
+
 libtest-warn-perl (0.22-1) unstable; urgency=low
 
   [ Nicholas Bamber ]

Modified: trunk/libtest-warn-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/debian/copyright?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/debian/copyright (original)
+++ trunk/libtest-warn-perl/debian/copyright Fri Feb 25 17:27:26 2011
@@ -6,7 +6,7 @@
 Files: *
 Copyright:
  2002, Janek Schleicher <bigk at kamelfreund.de>
- 2007-2009, Alexandr Ciornii <alexchorny at gmail.com>
+ 2007-2011, Alexandr Ciornii <alexchorny at gmail.com>
 License: Artistic or GPL-1+
 
 Files: debian/*
@@ -14,7 +14,7 @@
  2006, Marc 'HE' Brockschmidt <he at debian.org>
  2008, gregor herrmann <gregoa at debian.org>
  2009, Damyan Ivanov <dmn at debian.org>
- 2010, Nicholas Bamber <nicholas at periapt.co.uk>
+ 2010-2011, Nicholas Bamber <nicholas at periapt.co.uk>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/libtest-warn-perl/t/carped.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/t/carped.t?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/carped.t (original)
+++ trunk/libtest-warn-perl/t/carped.t Fri Feb 25 17:27:26 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: trunk/libtest-warn-perl/t/warnings_exist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/t/warnings_exist.t?rev=69669&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/warnings_exist.t (original)
+++ trunk/libtest-warn-perl/t/warnings_exist.t Fri Feb 25 17:27:26 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]);