r70625 - in /trunk/libauthen-sasl-cyrus-perl/debian: changelog patches/series patches/test-warnings

[rra at users.alioth.debian.org]

Author: rra
Date: Sun Mar  6 05:49:33 2011
New Revision: 70625

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70625
Log:
* Modify the test suite to report failures with warn rather than print,
  so the error message will be visible outside the test framework.

Added:
    trunk/libauthen-sasl-cyrus-perl/debian/patches/test-warnings
Modified:
    trunk/libauthen-sasl-cyrus-perl/debian/changelog
    trunk/libauthen-sasl-cyrus-perl/debian/patches/series

Modified: trunk/libauthen-sasl-cyrus-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-cyrus-perl/debian/changelog?rev=70625&op=diff
==============================================================================
--- trunk/libauthen-sasl-cyrus-perl/debian/changelog (original)
+++ trunk/libauthen-sasl-cyrus-perl/debian/changelog Sun Mar  6 05:49:33 2011
@@ -2,6 +2,8 @@
 
   * Modify some type declarations in the XS code to ensure that data types
     match the size that Perl expects on 64-bit platforms.
+  * Modify the test suite to report failures with warn rather than print,
+    so the error message will be visible outside the test framework.
 
  -- Russ Allbery <rra at debian.org>  Sat, 05 Mar 2011 21:38:17 -0800
 

Modified: trunk/libauthen-sasl-cyrus-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-cyrus-perl/debian/patches/series?rev=70625&op=diff
==============================================================================
--- trunk/libauthen-sasl-cyrus-perl/debian/patches/series (original)
+++ trunk/libauthen-sasl-cyrus-perl/debian/patches/series Sun Mar  6 05:49:33 2011
@@ -4,3 +4,4 @@
 generate-man-pages
 fix-pod-errors
 strlen-size
+test-warnings

Added: trunk/libauthen-sasl-cyrus-perl/debian/patches/test-warnings
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-cyrus-perl/debian/patches/test-warnings?rev=70625&op=file
==============================================================================
--- trunk/libauthen-sasl-cyrus-perl/debian/patches/test-warnings (added)
+++ trunk/libauthen-sasl-cyrus-perl/debian/patches/test-warnings Sun Mar  6 05:49:33 2011
@@ -1,0 +1,26 @@
+Author: Russ Allbery <rra at debian.org>
+Description: Use warn to report test error messages
+
+Use warn rather than print to report error messages from client or server
+negotiation.  print is swallowed by the test harness.
+
+--- libauthen-sasl-cyrus-perl.orig/t/plain.t
++++ libauthen-sasl-cyrus-perl/t/plain.t
+@@ -50,7 +50,7 @@
+ 		print "Server: Test successful Negotiation succeeded.\n";
+ 	} else {
+ 		ok(0);
+-		print "Server: Negotiation failed.\n",$conn->error(),"\n";
++		warn "Server: Negotiation failed.\n",$conn->error(),"\n";
+ 	}
+ 
+ 	close FROM_CLIENT;
+@@ -82,7 +82,7 @@
+ 	if ($conn->code == 0) {
+ 		print "Client: Negotiation succeeded.\n";
+ 	} else { 
+-		print "Client: Negotiation failed.\n",$conn->error,"\n";
++		warn "Client: Negotiation failed.\n",$conn->error,"\n";
+ 	}
+ 	
+ 	close FROM_PARENT;