r43948 - in /branches/upstream/libwebservice-validator-html-w3c-perl/current: Changes META.yml lib/WebService/Validator/HTML/W3C.pm t/07no_xpath.t

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

Author: nhandler-guest
Date: Sat Sep 12 01:57:39 2009
New Revision: 43948

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43948
Log:
[svn-upgrade] Integrating new upstream version, libwebservice-validator-html-w3c-perl (0.26)

Modified:
    branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes
    branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml
    branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm
    branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t

Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes?rev=43948&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes Sat Sep 12 01:57:39 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: branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml?rev=43948&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml Sat Sep 12 01:57:39 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: branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm?rev=43948&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm Sat Sep 12 01:57:39 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: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t?rev=43948&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t Sat Sep 12 01:57:39 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');
+        }
+
     }
 }