r23002 - in /trunk/libtest-warn-perl/debian: changelog patches/language.patch
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jul 10 18:24:53 UTC 2008
Author: gregoa
Date: Thu Jul 10 18:24:52 2008
New Revision: 23002
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23002
Log:
Refresh language.patch.
Modified:
trunk/libtest-warn-perl/debian/changelog
trunk/libtest-warn-perl/debian/patches/language.patch
Modified: trunk/libtest-warn-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/debian/changelog?rev=23002&op=diff
==============================================================================
--- trunk/libtest-warn-perl/debian/changelog (original)
+++ trunk/libtest-warn-perl/debian/changelog Thu Jul 10 18:24:52 2008
@@ -9,6 +9,7 @@
* Split out changes against upstream code into a patch; add quilt framework.
* New upstream release.
+ * Refresh language.patch.
-- gregor herrmann <gregor+debian at comodo.priv.at> Sat, 01 Dec 2007 18:55:22 +0100
Modified: trunk/libtest-warn-perl/debian/patches/language.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-warn-perl/debian/patches/language.patch?rev=23002&op=diff
==============================================================================
--- trunk/libtest-warn-perl/debian/patches/language.patch (original)
+++ trunk/libtest-warn-perl/debian/patches/language.patch Thu Jul 10 18:24:52 2008
@@ -4,24 +4,24 @@
--- a/Warn.pm
+++ b/Warn.pm
-@@ -9,13 +9,13 @@ Test::Warn - Perl extension to test meth
+@@ -9,13 +9,13 @@
warning_is {foo(-dri => "/")} "Unknown Parameter 'dri'", "dri != dir gives warning";
warnings_are {bar(1,1)} ["Width very small", "Height very small"];
-
+
- warning_is {add(2,2)} undef, "No warning to calc 2+2"; # or
- warnings_are {add(2,2)} [], "No warning to calc 2+2"; # what reads better :-)
+ warning_is {add(2,2)} undef, "No warning for calc 2+2"; # or
-+ warnings_are {add(2,2)} [], "No warning for calc 2+2"; # reads better :-)
-
- warning_like {foo(-dri => "/"} qr/unknown param/i, "an unknown parameter test";
++ warnings_are {add(2,2)} [], "No warning for calc 2+2"; # what reads better :-)
+
+ warning_like {foo(-dri => "/")} qr/unknown param/i, "an unknown parameter test";
warnings_like {bar(1,1)} [qr/width.*small/i, qr/height.*small/i];
-
-- warning_is {foo()} {carped => 'didn't found the right parameters'};
-+ warning_is {foo()} {carped => 'didn't find the right parameters'};
+
+- warning_is {foo()} {carped => "didn't found the right parameters"};
++ warning_is {foo()} {carped => "didn't find the right parameters"};
warnings_like {foo()} [qr/undefined/,qr/undefined/,{carped => qr/no result/i}];
-
+
warning_like {foo(undef)} 'uninitialized';
-@@ -27,9 +27,9 @@ Test::Warn - Perl extension to test meth
+@@ -27,9 +27,9 @@
=head1 DESCRIPTION
@@ -33,7 +33,7 @@
now would be the time to go take a look.
=head2 FUNCTIONS
-@@ -38,29 +38,29 @@ now would be the time to go take a look.
+@@ -38,29 +38,29 @@
=item warning_is BLOCK STRING, TEST_NAME
@@ -72,7 +72,7 @@
A true value is returned if the test succeeds, false otherwise.
-@@ -70,32 +70,33 @@ The test name is optional, but recommend
+@@ -70,32 +70,33 @@
=item warnings_are BLOCK ARRAYREF, TEST_NAME
Tests to see that BLOCK gives exactly the specificated warnings.
@@ -117,7 +117,7 @@
You can also write the regexp in a string as "/.../"
instead of using the qr/.../ syntax.
-@@ -103,7 +104,7 @@ Note that the slashes are important in t
+@@ -103,7 +104,7 @@
as strings without slashes are reserved for warning categories
(to match warning categories as can be seen in the perllexwarn man page).
@@ -126,7 +126,7 @@
you can test for warnings via C<carp> with:
C<warning_like {bar()} {carped => qr/bar called too early/i};>
-@@ -119,17 +120,18 @@ The test name is optional, but recommend
+@@ -119,17 +120,18 @@
Tests whether a BLOCK gives exactly one warning of the passed category.
The categories are grouped in a tree,
like it is expressed in perllexwarn.
@@ -153,7 +153,7 @@
warning_like {eval q/"$x"; $x;/}
[qw/void uninitialized/],
-@@ -138,9 +140,8 @@ can only be catched in an eval block. So
+@@ -138,9 +140,8 @@
will work,
while it wouldn't work without the eval.
@@ -165,7 +165,7 @@
=item warnings_like BLOCK ARRAYREF, TEST_NAME
-@@ -160,7 +161,7 @@ and for warning categories, too:
+@@ -160,7 +161,7 @@
{carped => qr/bar warning/i},
'io'
],
@@ -174,7 +174,7 @@
=back
-@@ -174,27 +175,28 @@ C<warnings_like> by default.
+@@ -174,27 +175,28 @@
=head1 BUGS
Please note that warnings with newlines inside are making a lot of trouble.
@@ -212,7 +212,7 @@
=head1 SEE ALSO
-@@ -359,7 +361,7 @@ sub _diag_found_warning {
+@@ -359,7 +361,7 @@
$Tester->diag( "found warning: $_" );
}
}
@@ -223,7 +223,7 @@
sub _diag_exp_warning {
--- a/t/warning_is.t
+++ b/t/warning_is.t
-@@ -77,7 +77,7 @@ sub _found_warn_msg {
+@@ -77,7 +77,7 @@
__FILE__,
"line",
WARN_LINE . ".") )
@@ -232,7 +232,7 @@
}
sub _exp_warn_msg {
-@@ -94,7 +94,7 @@ sub _found_carp_msg {
+@@ -94,7 +94,7 @@
__FILE__,
"line",
CARP_LINE) ) # Note the difference, that carp msg
@@ -243,7 +243,7 @@
sub _exp_carp_msg {
--- a/t/warning_like.t
+++ b/t/warning_like.t
-@@ -79,7 +79,7 @@ sub _found_warn_msg {
+@@ -79,7 +79,7 @@
__FILE__,
"line",
WARN_LINE . ".") )
@@ -252,7 +252,7 @@
}
sub _exp_warn_msg {
-@@ -96,7 +96,7 @@ sub _found_carp_msg {
+@@ -96,7 +96,7 @@
__FILE__,
"line",
CARP_LINE) ) # Note the difference, that carp msg
@@ -263,7 +263,7 @@
sub _exp_carp_msg {
--- a/t/warnings_are.t
+++ b/t/warnings_are.t
-@@ -81,12 +81,12 @@ sub test_warnings_are {
+@@ -81,12 +81,12 @@
sub _found_warn_msg {
@_ ? map({"found warning: $_ at ". __FILE__ . " line " . WARN_LINE . "." } @_)
@@ -280,7 +280,7 @@
--- a/t/warnings_like.t
+++ b/t/warnings_like.t
-@@ -83,12 +83,12 @@ sub test_warnings_like {
+@@ -83,12 +83,12 @@
sub _found_warn_msg {
@_ ? map({"found warning: $_ at ". __FILE__ . " line " . WARN_LINE . "." } @_)
More information about the Pkg-perl-cvs-commits
mailing list