r10375 - in /trunk/libtest-warn-perl: Warn.pm debian/ debian/changelog debian/compat debian/control debian/copyright debian/rules debian/watch t/warning_is.t t/warning_like.t t/warnings_are.t t/warnings_like.t

vdanjean at users.alioth.debian.org vdanjean at users.alioth.debian.org
Sat Dec 1 12:20:40 UTC 2007


Author: vdanjean
Date: Sat Dec  1 12:20:40 2007
New Revision: 10375

URL: http://svn.debian.org/wsvn/?sc=1&rev=10375
Log:
[svn-inject] Applying Debian modifications to trunk

Added:
    trunk/libtest-warn-perl/debian/
    trunk/libtest-warn-perl/debian/changelog
    trunk/libtest-warn-perl/debian/compat
    trunk/libtest-warn-perl/debian/control
    trunk/libtest-warn-perl/debian/copyright
    trunk/libtest-warn-perl/debian/rules   (with props)
    trunk/libtest-warn-perl/debian/watch
Modified:
    trunk/libtest-warn-perl/Warn.pm
    trunk/libtest-warn-perl/t/warning_is.t
    trunk/libtest-warn-perl/t/warning_like.t
    trunk/libtest-warn-perl/t/warnings_are.t
    trunk/libtest-warn-perl/t/warnings_like.t

Modified: trunk/libtest-warn-perl/Warn.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/Warn.pm?rev=10375&op=diff
==============================================================================
--- trunk/libtest-warn-perl/Warn.pm (original)
+++ trunk/libtest-warn-perl/Warn.pm Sat Dec  1 12:20:40 2007
@@ -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_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';
@@ -27,9 +27,9 @@
 
 =head1 DESCRIPTION
 
-This module provides a few convenience methods for testing warning based code.
-
-If you are not already familiar with the Test::More manpage 
+This module provides a few convenience methods for testing warning-based code.
+
+If you are not already familiar with the Test::More manpage,
 now would be the time to go take a look.
 
 =head2 FUNCTIONS
@@ -38,29 +38,29 @@
 
 =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 give exactly the one specified warning.
+The test fails if the BLOCK warns more then one time or doesn't warn.
 If the string is undef, 
 then the tests succeeds iff the BLOCK doesn't give any warning.
-Another way to say that there aren't ary warnings in the block,
-is C<warnings_are {foo()} [], "no warnings in">.
-
-If you want to test for a warning given by carp,
-You have to write something like:
+Another way to say that there aren't any warnings in the block
+is C<warnings_are {foo()} [], "no warnings">.
+
+If you want to test for a warning given by carp
+you have to write something like:
 C<warning_is {carp "msg"} {carped =E<gt> '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<warn "foo"> would print something like C<foo at -e line 1>. 
 This method ignores everything after the at. That means, to match this warning
 you would have to call C<warning_is {warn "foo"} "foo", "Foo succeeded">.
-If you need to test for a warning at an exactly line,
-try better something like C<warning_like {warn "foo"} qr/at XYZ.dat line 5/>.
+If you need to test for a warning at an exactly line, 
+try something like C<warning_like {warn "foo"} qr/at XYZ.dat line 5/>.
 
 warning_is and warning_are are only aliases to the same method.
 So you also could write
 C<warning_is {foo()} [], "no warning"> or something similar.
-I decided me 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.
 
@@ -70,32 +70,33 @@
 =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 iff 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<warnings_are {carp "c1"; carp "c2"} {carped => ['c1','c2'];> or
 C<warnings_are {foo()} ["Warning 1", {carped => ["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 against the whole warning message,
+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<warning_like {bar()} qr/at Foo.pm line 5/, "Testname">.
-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
+such as 'at', 'file', '\d'
 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.
@@ -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).
 
-Similar to C<warning_is>,
+As with C<warning_is>,
 you can test for warnings via C<carp> with:
 C<warning_like {bar()} {carped => qr/bar called too early/i};>
 
@@ -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.
-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>, 
-allthough I wouldn't recommend it)
+Note that they have the hierarchical structure from perl 5.8.0,
+which is slightly different from how it was organized up through perl 5.6.1.
+(You can access the internal hierarchy with
+C<$Test::Warn::Categorization::tree>, 
+although it isn't recommended).
 
 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.
-
-Note, that warnings occuring at compile time,
-can only be catched in an eval block. So
+it's possible to test simply for an 'io' warning,
+instead of testing for a 'closed|exec|layer|newline|pipe|unopened' warning.
+
+Note that compile-time warnings
+can only be caught in an eval block. So
 
   warning_like {eval q/"$x"; $x;/} 
                [qw/void uninitialized/], 
@@ -138,9 +140,8 @@
 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<warnings::register>.
 
 =item warnings_like BLOCK ARRAYREF, TEST_NAME
 
@@ -160,7 +161,7 @@
                  {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 :-)";
 
 =back
 
@@ -174,27 +175,28 @@
 =head1 BUGS
 
 Please note that warnings with newlines inside are making a lot of trouble.
-The only sensful way to handle them is to use are the C<warning_like> or
-C<warnings_like> 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<warning_like> or
+C<warnings_like> methods.
+The background for these problems is that there is no
+really secure way to distinguish between warnings with newlines and a trailing
 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<warning_like BLOCK CATEGORY, TEST_NAME> method isn't extremely tested.
-Please use this calling style with higher attention and
-tell me if you find a bug.
+The C<warning_like BLOCK CATEGORY, TEST_NAME> 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.
-
-Please feel free to suggest me any improvements.
+This is really awkward and must be changed.
+
+Please feel free to suggest improvements.
 
 =head1 SEE ALSO
 
@@ -359,7 +361,7 @@
             $Tester->diag( "found warning: $_" );
         }
     }
-    $Tester->diag( "didn't found a warning" ) unless @_;
+    $Tester->diag( "didn't find a warning" ) unless @_;
 }
 
 sub _diag_exp_warning {

Added: trunk/libtest-warn-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/changelog?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/changelog (added)
+++ trunk/libtest-warn-perl/debian/changelog Sat Dec  1 12:20:40 2007
@@ -1,0 +1,33 @@
+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 <jaybonci at debian.org>  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 <he at debian.org>  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 <jaybonci at debian.org>  Mon, 11 Oct 2004 02:34:25 -0400
+
+libtest-warn-perl (0.08-1) unstable; urgency=low
+
+  * Initial Release. (Closes: #212632)
+
+ -- Jay Bonci <jaybonci at debian.org>  Tue, 11 Nov 2003 15:07:52 -0500
+

Added: trunk/libtest-warn-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/compat?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/compat (added)
+++ trunk/libtest-warn-perl/debian/compat Sat Dec  1 12:20:40 2007
@@ -1,0 +1,1 @@
+4

Added: trunk/libtest-warn-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/control?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/control (added)
+++ trunk/libtest-warn-perl/debian/control Sat Dec  1 12:20:40 2007
@@ -1,0 +1,13 @@
+Source: libtest-warn-perl
+Section: perl
+Priority: optional
+Maintainer: Jay Bonci <jaybonci at debian.org>
+Build-Depends: debhelper (>= 4.1), perl (>= 5.6.0-16), libsub-uplevel-perl, libtest-exception-perl, libarray-compare-perl, libtest-simple-perl, libtree-dagnode-perl, libtest-pod-perl
+Standards-Version: 3.7.2.2
+
+Package: libtest-warn-perl
+Architecture: all
+Depends: ${perl:Depends}, libsub-uplevel-perl, libtest-exception-perl, libarray-compare-perl, 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. 

Added: trunk/libtest-warn-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/copyright?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/copyright (added)
+++ trunk/libtest-warn-perl/debian/copyright Sat Dec  1 12:20:40 2007
@@ -1,0 +1,24 @@
+This package was debianized by Jay Bonci <jaybonci at debian.org> on
+Tue, 11 Nov 2003 15:07:52 -0500.
+
+It was downloaded from http://search.cpan.org/dist/Test-Warn
+
+Upstream Author: Janek Schleicher <bigj at kamelfreund.de>
+
+Copyright:
+        This program is free software; you can redistribute it and/or modify
+        it under the terms of either:
+
+        a) the GNU General Public License as published by the Free
+        Software Foundation; either version 1, or (at your option) any
+        later version, or
+
+        b) the "Artistic License"
+
+        See:
+
+        /usr/share/common-licenses/Artistic
+        /usr/share/common-licenses/GPL
+
+        For more information regarding these licensing options
+

Added: trunk/libtest-warn-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/rules?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/rules (added)
+++ trunk/libtest-warn-perl/debian/rules Sat Dec  1 12:20:40 2007
@@ -1,0 +1,53 @@
+#!/usr/bin/make -f
+# Sample debian/rules that uses debhelper.
+# GNU copyright 1997 to 1999 by Joey Hess.
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+# This is the debhelper compatibility version to use.
+# export DH_COMPAT=4
+
+PACKAGE=`pwd | sed -e "s/.*\/\\(.*\\)-.*/\\1/"`
+
+
+build:
+	dh_testdir
+	# Add here commands to compile the package.
+	perl Makefile.PL verbose INSTALLDIRS=vendor
+clean:
+	dh_testdir
+	dh_testroot
+
+	[ ! -f Makefile ] || $(MAKE) clean
+	rm -f Makefile.old
+	dh_clean
+
+install:
+	dh_testdir
+	dh_testroot
+	dh_clean -k
+	dh_installdirs
+
+	$(MAKE) PREFIX=$(CURDIR)/debian/$(PACKAGE)/usr OPTIMIZE="-O2 -g -Wall" test install
+	-find $(CURDIR)/debian -type d | xargs rmdir -p --ignore-fail-on-non-empty
+
+binary-arch:;
+binary-indep: build install
+	dh_testdir
+	dh_testroot
+	dh_installdocs
+	dh_installman
+	dh_installchangelogs Changes
+	dh_link
+	dh_strip
+	dh_compress
+	dh_fixperms
+	dh_installdeb
+	dh_perl
+	dh_gencontrol
+	dh_md5sums
+	dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary install configure

Propchange: trunk/libtest-warn-perl/debian/rules
------------------------------------------------------------------------------
    svn:executable = *

Added: trunk/libtest-warn-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/debian/watch?rev=10375&op=file
==============================================================================
--- trunk/libtest-warn-perl/debian/watch (added)
+++ trunk/libtest-warn-perl/debian/watch Sat Dec  1 12:20:40 2007
@@ -1,0 +1,3 @@
+version=2
+http://www.cpan.org/modules/by-module/Test/Test-Warn-([0-9].*)\.tar.gz \
+ debian uupdate

Modified: trunk/libtest-warn-perl/t/warning_is.t
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/t/warning_is.t?rev=10375&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/warning_is.t (original)
+++ trunk/libtest-warn-perl/t/warning_is.t Sat Dec  1 12:20:40 2007
@@ -77,7 +77,7 @@
                          __FILE__,
                          "line",
                          WARN_LINE . ".") )
-        : "didn't found a warning";
+        : "didn't find a warning";
 }
 
 sub _exp_warn_msg {
@@ -94,7 +94,7 @@
                          __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 {

Modified: trunk/libtest-warn-perl/t/warning_like.t
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/t/warning_like.t?rev=10375&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/warning_like.t (original)
+++ trunk/libtest-warn-perl/t/warning_like.t Sat Dec  1 12:20:40 2007
@@ -79,7 +79,7 @@
                          __FILE__,
                          "line",
                          WARN_LINE . ".") )
-        : "didn't found a warning";
+        : "didn't find a warning";
 }
 
 sub _exp_warn_msg {
@@ -96,7 +96,7 @@
                          __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 {

Modified: trunk/libtest-warn-perl/t/warnings_are.t
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/t/warnings_are.t?rev=10375&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/warnings_are.t (original)
+++ trunk/libtest-warn-perl/t/warnings_are.t Sat Dec  1 12:20:40 2007
@@ -81,12 +81,12 @@
 
 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";
 }
 
 

Modified: trunk/libtest-warn-perl/t/warnings_like.t
URL: http://svn.debian.org/wsvn/trunk/libtest-warn-perl/t/warnings_like.t?rev=10375&op=diff
==============================================================================
--- trunk/libtest-warn-perl/t/warnings_like.t (original)
+++ trunk/libtest-warn-perl/t/warnings_like.t Sat Dec  1 12:20:40 2007
@@ -83,12 +83,12 @@
 
 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";
 }
 
 




More information about the Pkg-perl-cvs-commits mailing list