r43950 - in /trunk/libwebservice-validator-html-w3c-perl: Changes META.yml debian/changelog lib/WebService/Validator/HTML/W3C.pm t/07no_xpath.t

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

Author: nhandler-guest
Date: Sat Sep 12 02:00:35 2009
New Revision: 43950

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43950
Log:
Update to 0.26-1

Modified:
    trunk/libwebservice-validator-html-w3c-perl/Changes
    trunk/libwebservice-validator-html-w3c-perl/META.yml
    trunk/libwebservice-validator-html-w3c-perl/debian/changelog
    trunk/libwebservice-validator-html-w3c-perl/lib/WebService/Validator/HTML/W3C.pm
    trunk/libwebservice-validator-html-w3c-perl/t/07no_xpath.t

Modified: trunk/libwebservice-validator-html-w3c-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwebservice-validator-html-w3c-perl/Changes?rev=43950&op=diff
==============================================================================
--- trunk/libwebservice-validator-html-w3c-perl/Changes (original)
+++ trunk/libwebservice-validator-html-w3c-perl/Changes Sat Sep 12 02:00:35 2009
@@ -1,3 +1,6 @@
+0.26 Monday 7th September 2009
+ - Suppress and test warning in no XML::XPath installed RT #47960
+
 0.25 Thursday 23rd August 2009
  - change proxy port in test to stop clash with default squid port
  - update columns in detailed output tests run under TST_AUTHOR to match validator change RT #47960

Modified: trunk/libwebservice-validator-html-w3c-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwebservice-validator-html-w3c-perl/META.yml?rev=43950&op=diff
==============================================================================
--- trunk/libwebservice-validator-html-w3c-perl/META.yml (original)
+++ trunk/libwebservice-validator-html-w3c-perl/META.yml Sat Sep 12 02:00:35 2009
@@ -1,6 +1,6 @@
 ---
 name: WebService-Validator-HTML-W3C
-version: 0.25
+version: 0.26
 author:
   - 'Struan Donald E<lt>struan at cpan.orgE<gt>'
 abstract: Access the W3Cs online HTML validator
@@ -15,7 +15,7 @@
 provides:
   WebService::Validator::HTML::W3C:
     file: lib/WebService/Validator/HTML/W3C.pm
-    version: 0.25
+    version: 0.26
   WebService::Validator::HTML::W3C::Error:
     file: lib/WebService/Validator/HTML/W3C/Error.pm
   WebService::Validator::HTML::W3C::Warning:

Modified: trunk/libwebservice-validator-html-w3c-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwebservice-validator-html-w3c-perl/debian/changelog?rev=43950&op=diff
==============================================================================
--- trunk/libwebservice-validator-html-w3c-perl/debian/changelog (original)
+++ trunk/libwebservice-validator-html-w3c-perl/debian/changelog Sat Sep 12 02:00:35 2009
@@ -1,3 +1,9 @@
+libwebservice-validator-html-w3c-perl (0.26-1) UNRELEASED; urgency=low
+
+  * (NOT RELEASED YET) New upstream release
+
+ -- Live session user <ubuntu at ubuntu>  Sat, 12 Sep 2009 01:58:36 +0000
+
 libwebservice-validator-html-w3c-perl (0.25-1) UNRELEASED; urgency=low
 
   [ Brian Cassidy ]

Modified: trunk/libwebservice-validator-html-w3c-perl/lib/WebService/Validator/HTML/W3C.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwebservice-validator-html-w3c-perl/lib/WebService/Validator/HTML/W3C.pm?rev=43950&op=diff
==============================================================================
--- trunk/libwebservice-validator-html-w3c-perl/lib/WebService/Validator/HTML/W3C.pm (original)
+++ trunk/libwebservice-validator-html-w3c-perl/lib/WebService/Validator/HTML/W3C.pm Sat Sep 12 02:00:35 2009
@@ -16,7 +16,7 @@
 
 use vars qw( $VERSION $VALIDATOR_URI $HTTP_TIMEOUT );
 
-$VERSION       = 0.25;
+$VERSION       = 0.26;
 $VALIDATOR_URI = 'http://validator.w3.org/check';
 $HTTP_TIMEOUT  = 30;
 

Modified: trunk/libwebservice-validator-html-w3c-perl/t/07no_xpath.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwebservice-validator-html-w3c-perl/t/07no_xpath.t?rev=43950&op=diff
==============================================================================
--- trunk/libwebservice-validator-html-w3c-perl/t/07no_xpath.t (original)
+++ trunk/libwebservice-validator-html-w3c-perl/t/07no_xpath.t Sat Sep 12 02:00:35 2009
@@ -3,11 +3,14 @@
 use Test::More;
 
 BEGIN {
-	my $num_tests = 2;
+
+	my $num_tests = 3;
 	
 	if ( $ENV{ 'TEST_AUTHOR' } ) {
-		$num_tests = 3;
+		$num_tests = 4;
 	} 
+
+    # XML::XPath must be installed in order to get detailed errors
 	
 	plan tests => $num_tests;
 	
@@ -68,6 +71,14 @@
 			);
 		}
                    
-        ok(!$v->errors(), 'no errors returned if no XML::XPath');
+        {
+            my $warning = '';
+            local $SIG{__WARN__} = sub { $warning = shift; $warning =~ s/ at .*\n$//; };
+            $v->errors();
+            is $warning, "XML::XPath must be installed in order to get detailed errors", "missing XML::XPath error";
+
+            ok(!$v->errors(), 'no errors returned if no XML::XPath');
+        }
+
     }
 }