--- libtest-warn-perl-0.21.orig/debian/control +++ libtest-warn-perl-0.21/debian/control @@ -0,0 +1,21 @@ +Source: libtest-warn-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Jay Bonci , + gregor herrmann , Damyan Ivanov +Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7) +Build-Depends-Indep: perl, libsub-uplevel-perl (>= 0.12), + libtest-simple-perl, libtree-dagnode-perl, libtest-pod-perl +Standards-Version: 3.8.3 +Homepage: http://search.cpan.org/dist/Test-Warn/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtest-warn-perl/ +Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtest-warn-perl/ + +Package: libtest-warn-perl +Architecture: all +Depends: ${misc:Depends}, ${perl:Depends}, libsub-uplevel-perl (>= 0.12), + libtest-simple-perl, libtree-dagnode-perl +Description: Test for warning-based code in perl + Test::Warn provides an easy way to test for code throwing warnings in perl. + It's similar in style to the Test::More family of utilities. --- libtest-warn-perl-0.21.orig/debian/compat +++ libtest-warn-perl-0.21/debian/compat @@ -0,0 +1 @@ +7 --- libtest-warn-perl-0.21.orig/debian/watch +++ libtest-warn-perl-0.21/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://search.cpan.org/dist/Test-Warn/ .+/Test-Warn-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ --- libtest-warn-perl-0.21.orig/debian/rules +++ libtest-warn-perl-0.21/debian/rules @@ -0,0 +1,4 @@ +#!/usr/bin/make -f + +%: + dh --with quilt $@ --- libtest-warn-perl-0.21.orig/debian/copyright +++ libtest-warn-perl-0.21/debian/copyright @@ -0,0 +1,17 @@ +This package was debianized by Jay Bonci on +Tue, 11 Nov 2003 15:07:52 -0500. + +It was downloaded from http://search.cpan.org/dist/Test-Warn + +Upstream Author: Janek Schleicher + +Copyright 2002 by Janek Schleicher +Copyright 2007-2009 by Alexandr Ciornii + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +Perl is distributed under your choice of the GNU General Public License or +the Artistic License. On Debian GNU/Linux systems, the complete text of the +GNU General Public License can be found in `/usr/share/common-licenses/GPL' +and the Artistic Licence in `/usr/share/common-licenses/Artistic'. --- libtest-warn-perl-0.21.orig/debian/README.source +++ libtest-warn-perl-0.21/debian/README.source @@ -0,0 +1,3 @@ +This package uses quilt to manage patches against the upstream source. + +/usr/share/doc/quilt/README.source has more informations. --- libtest-warn-perl-0.21.orig/debian/changelog +++ libtest-warn-perl-0.21/debian/changelog @@ -0,0 +1,84 @@ +libtest-warn-perl (0.21-1) unstable; urgency=low + + [ gregor herrmann ] + * debian/control: Changed: Switched Vcs-Browser field to ViewSVN + (source stanza). + * debian/control: Added: ${misc:Depends} to Depends: field. + + [ Salvatore Bonaccorso ] + * debian/control: Changed: Replace versioned (build-)dependency on + perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as + permitted by Debian Policy 3.8.3). + + [ Damyan Ivanov ] + * debian/watch: use the common CPAN pattern + * New upstream release + + adjust language.patch + + tests no longer fail. Closes: #545668 -- FTBFS + + drop libtest-exception-perl and libarray-compare-perl from (build-) + dependencies + + add new upstream copyright holder + * language.patch: note that the patch was forwarded + * use dh --with quilt 3-liner; bump debhelper and quilt build-dependency + * bump Standards-Version to 3.8.3 (no changes needed) + * add myself to Uploaders + + -- Damyan Ivanov Tue, 08 Sep 2009 18:02:27 +0300 + +libtest-warn-perl (0.11-1) unstable; urgency=low + + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). + * Set Maintainer to Debian Perl Group. + * Use dist-based URL in debian/watch. + * Refresh debian/rules, no functional changes. + * Split out changes against upstream code into a patch; add quilt framework. + + * New upstream release. + * Refresh language.patch. + * debian/copyright: copy copyright/license information verbatim from + upstream source, update pointer to common licenses on Debian systems. + * Set debhelper compatibility level to 5. + * Set Standards-Version to 3.8.0; add debian/REAMDE.source to document quilt + usage. + * debian/control: + - wrap long line in debian/control + - make (build) dependency on libsub-uplevel-perl versioned + - split build dependencies between Build-Depends and Build-Depends-Indep + - add /me to Uploaders + + -- gregor herrmann Thu, 10 Jul 2008 20:40:17 +0200 + +libtest-warn-perl (0.10-1) unstable; urgency=low + + * New upstream release + * Acknowledge NMU. Thanks Marc. (Closes: #356829) + * Fixes debian/watch file so uscan will actually work + * Partially took patch from Era Eriksson to clean up some manpage language. Thanks! (Closes: #322351) + * Updated debian-policy to version 3.7.2.2 (No other changes) + * Added libtest-pod-perl for Build-Depends so test won't skip + * Changed Build-Depends-Indep to Build-Depends to satisfy lintian + * Changed make clean check to satisfy lintian warning + + -- Jay Bonci Fri, 29 Jun 2007 08:04:42 -0400 + +libtest-warn-perl (0.08-2.1) unstable; urgency=low + + * Non-maintainer upload. + * debian/control: Test::Builder::Tester is now in libtest-simple-perl. + * Using the newer module fixes the FTBFS. (Closes: #356829) + + -- Marc 'HE' Brockschmidt Sun, 23 Apr 2006 16:17:44 +0200 + +libtest-warn-perl (0.08-2) unstable; urgency=low + + * Adds debian/watch so uscan will actually work + + -- Jay Bonci Mon, 11 Oct 2004 02:34:25 -0400 + +libtest-warn-perl (0.08-1) unstable; urgency=low + + * Initial Release. (Closes: #212632) + + -- Jay Bonci Tue, 11 Nov 2003 15:07:52 -0500 + --- libtest-warn-perl-0.21.orig/debian/patches/language.patch +++ libtest-warn-perl-0.21/debian/patches/language.patch @@ -0,0 +1,297 @@ +Author: Jay Bonci +Description: Patch from Era Eriksson to clean up some manpage language +Bug-Debian: #322351 +Forwarded: https://rt.cpan.org/Ticket/Display.html?id=49519 + +--- a/Warn.pm ++++ b/Warn.pm +@@ -9,13 +9,13 @@ Test::Warn - Perl extension to test meth + 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"; # 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"}; + warnings_like {foo()} [qr/undefined/,qr/undefined/,{carped => qr/no result/i}]; + + warning_like {foo(undef)} 'uninitialized'; +@@ -31,9 +31,9 @@ Test::Warn - Perl extension to test meth + + A good style of Perl programming calls for a lot of diverse regression tests. + +-This module provides a few convenience methods for testing warning based code. ++This module provides a few convenience methods for testing warning-based code. + +-If you are not already familiar with the Test::More manpage ++If you are not already familiar with the Test::More manpage, + now would be the time to go take a look. + + =head2 FUNCTIONS +@@ -42,29 +42,29 @@ now would be the time to go take a look. + + =item warning_is BLOCK STRING, TEST_NAME + +-Tests that BLOCK gives exactly the one specificated warning. +-The test fails if the BLOCK warns more then one times or doesn't warn. ++Tests that BLOCK gives exactly the one specified warning. ++The test fails if the BLOCK warns more than one time or doesn't warn. + If the string is undef, + then the tests succeeds if the BLOCK doesn't give any warning. +-Another way to say that there aren't any warnings in the block, +-is C. ++Another way to say that there aren't any warnings in the block ++is C. + +-If you want to test for a warning given by carp, +-You have to write something like: ++If you want to test for a warning given by carp ++you have to write something like: + C 'msg'}, "Test for a carped warning">. +-The test will fail, ++The test will fail + if a "normal" warning is found instead of a "carped" one. + + Note: C would print something like C. + This method ignores everything after the at. That means, to match this warning + you would have to call C. + If you need to test for a warning at an exactly line, +-try better something like C. ++try something like C. + + warning_is and warning_are are only aliases to the same method. + So you also could write + C or something similar. +-I decided to give two methods to have some better readable method names. ++I decided to give two methods to have some more readable method names. + + A true value is returned if the test succeeds, false otherwise. + +@@ -74,32 +74,32 @@ The test name is optional, but recommend + =item warnings_are BLOCK ARRAYREF, TEST_NAME + + Tests to see that BLOCK gives exactly the specificated warnings. +-The test fails if the BLOCK warns a different number than the size of the ARRAYREf +-would have expected. ++The test fails if the warnings from BLOCK are not exactly the ones in ARRAYREF. + If the ARRAYREF is equal to [], + then the test succeeds if the BLOCK doesn't give any warning. + + Please read also the notes to warning_is as these methods are only aliases. + +-If you want more than one tests for carped warnings look that way: ++If you want more than one test for carped warnings, try this: + C ['c1','c2'];> or + C ["Carp 1", "Carp 2"]}, "Warning 2"]>. +-Note that C<{carped => ...}> has always to be a hash ref. ++Note that C<{carped => ...}> always has to be a hash ref. + + =item warning_like BLOCK REGEXP, TEST_NAME + +-Tests that BLOCK gives exactly one warning and it can be matched to the given regexp. ++Tests that BLOCK gives exactly one warning and it can be matched by ++the given regexp. + If the string is undef, + then the tests succeeds iff the BLOCK doesn't give any warning. + +-The REGEXP is matched after the whole warn line, +-which consists in general of "WARNING at __FILE__ line __LINE__". +-So you can check for a warning in at File Foo.pm line 5 with ++The REGEXP is matched sagainst the whole warning line, ++which in general has the form "WARNING at __FILE__ line __LINE__". ++So you can check for a warning in the file Foo.pm on line 5 with + C. +-I don't know whether it's sensful to do such a test :-( +-However, you should be prepared as a matching with 'at', 'file', '\d' ++Perhaps it isn't sensible to perform such a test; ++however, you should be aware that matching on a sweeping regular expression + or similar will always pass. +-Think to the qr/^foo/ if you want to test for warning "foo something" in file foo.pl. ++Consider qr/^foo/ if you want to test for warning "foo something" in file foo.pl. + + You can also write the regexp in a string as "/.../" + instead of using the qr/.../ syntax. +@@ -107,7 +107,7 @@ Note that the slashes are important in t + as strings without slashes are reserved for warning categories + (to match warning categories as can be seen in the perllexwarn man page). + +-Similar to C, ++As with C, + you can test for warnings via C with: + C qr/bar called too early/i};> + +@@ -123,17 +123,19 @@ The test name is optional, but recommend + 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. +-Note, that they have the hierarchical structure from perl 5.8.0, +-wich has a little bit changed to 5.6.1 or earlier versions +-(You can access the internal used tree with C<$Test::Warn::Categorization::tree>, ++Note that they have the hierarchical structure from perl 5.8.0, ++u can access the internal hierarchy with ++C<$Test::Warn::Categorization::tree>, ++although it isn't recommended). ++ + although I wouldn't recommend it) + + Thanks to the grouping in a tree, +-it's simple possible to test for an 'io' warning, +-instead for testing for a 'closed|exec|layer|newline|pipe|unopened' warning. ++it's possible to test simply for an 'io' warning, ++instead of testing for a 'closed|exec|layer|newline|pipe|unopened' warning. + +-Note, that warnings occuring at compile time, +-can only be catched in an eval block. So ++Note that compile-time warnings ++can only be caught in an eval block. So + + warning_like {eval q/"$x"; $x;/} + [qw/void uninitialized/], +@@ -142,9 +144,8 @@ can only be catched in an eval block. So + will work, + while it wouldn't work without the eval. + +-Note, that it isn't possible yet, +-to test for own categories, +-created with warnings::register. ++Note also that it isn't yet possible ++to test for categories you created yourself with C. + + =item warnings_like BLOCK ARRAYREF, TEST_NAME + +@@ -164,7 +165,7 @@ and for warning categories, too: + {carped => qr/bar warning/i}, + 'io' + ], +- "I hope, you'll never have to write a test for so many warnings :-)"; ++ "I hope you'll never have to write a test for so many warnings :-)"; + + =item warnings_exist BLOCK STRING|ARRAYREF, TEST_NAME + +@@ -190,27 +191,28 @@ C by default. + =head1 BUGS + + Please note that warnings with newlines inside are making a lot of trouble. +-The only sensible way to handle them is to use are the C or +-C methods. Background for these problems is that there is no +-really secure way to distinguish between warnings with newlines and a tracing ++The only sensible way to handle them is to use the C or ++C methods. ++The background for these problems is that there is no ++really secure way to distinguish between warnings with newlines and a triling + stacktrace. + +-If a method has it's own warn handler, ++If a method has its own warn handler, + overwriting C<$SIG{__WARN__}>, + my test warning methods won't get these warnings. + +-The C method isn't extremely tested. +-Please use this calling style with higher attention and +-tell me if you find a bug. ++The C method isn't fully tested. ++Please pay attention if you use this this calling style, ++and report any bugs you find. + + =head1 TODO + + Improve this documentation. + + The code has some parts doubled - especially in the test scripts. +-This is really awkward and has to be changed. ++This is really awkward and must be changed. + +-Please feel free to suggest me any improvements. ++Please feel free to suggest improvements. + + =head1 SEE ALSO + +@@ -407,7 +409,7 @@ sub _diag_found_warning { + $Tester->diag( "found warning: $_" ); + } + } +- $Tester->diag( "didn't found a warning" ) unless @_; ++ $Tester->diag( "didn't find a warning" ) unless @_; + } + + sub _diag_exp_warning { +--- a/t/warning_is.t ++++ b/t/warning_is.t +@@ -77,7 +77,7 @@ sub _found_warn_msg { + __FILE__, + "line", + WARN_LINE . ".") ) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + sub _exp_warn_msg { +@@ -94,7 +94,7 @@ sub _found_carp_msg { + __FILE__, + "line", + CARP_LINE) ) # Note the difference, that carp msg +- : "didn't found a warning"; # aren't finished by '.' ++ : "didn't find a warning"; # aren't finished by '.' + } + + sub _exp_carp_msg { +--- a/t/warning_like.t ++++ b/t/warning_like.t +@@ -80,7 +80,7 @@ sub _found_warn_msg { + __FILE__, + "line", + WARN_LINE . ".") ) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + sub _exp_warn_msg { +@@ -97,7 +97,7 @@ sub _found_carp_msg { + __FILE__, + "line", + CARP_LINE) ) # Note the difference, that carp msg +- : "didn't found a warning"; # aren't finished by '.' ++ : "didn't find a warning"; # aren't finished by '.' + } + + sub _exp_carp_msg { +--- a/t/warnings_are.t ++++ b/t/warnings_are.t +@@ -81,12 +81,12 @@ sub test_warnings_are { + + sub _found_warn_msg { + @_ ? map({"found warning: $_ at ". __FILE__ . " line " . WARN_LINE . "." } @_) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + sub _found_carp_msg { + @_ ? map({"found carped warning: $_ at ". __FILE__ . " line " . CARP_LINE} @_) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + +--- a/t/warnings_like.t ++++ b/t/warnings_like.t +@@ -84,12 +84,12 @@ sub test_warnings_like { + + sub _found_warn_msg { + @_ ? map({"found warning: $_ at ". __FILE__ . " line " . WARN_LINE . "." } @_) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + sub _found_carp_msg { + @_ ? map({"found carped warning: $_ at ". __FILE__ . " line " . CARP_LINE} @_) +- : "didn't found a warning"; ++ : "didn't find a warning"; + } + + --- libtest-warn-perl-0.21.orig/debian/patches/series +++ libtest-warn-perl-0.21/debian/patches/series @@ -0,0 +1 @@ +language.patch