r40826 - in /branches/upstream/libwebservice-validator-html-w3c-perl/current: ./ lib/WebService/Validator/HTML/ lib/WebService/Validator/HTML/W3C/ t/
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Mon Jul 27 12:53:13 UTC 2009
Author: bricas-guest
Date: Mon Jul 27 12:53:03 2009
New Revision: 40826
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40826
Log:
[svn-upgrade] Integrating new upstream version, libwebservice-validator-html-w3c-perl (0.25)
Added:
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/15alt_interface.t
Modified:
branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes
branches/upstream/libwebservice-validator-html-w3c-perl/current/MANIFEST
branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml
branches/upstream/libwebservice-validator-html-w3c-perl/current/README
branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C.pm
branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C/Error.pm
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/01load.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/02validate.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/03invalid.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/04bad_validator.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/05options.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/06detailed.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/07no_xpath.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/08no_detailed.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/11detailed_soap.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/12proxy.t
branches/upstream/libwebservice-validator-html-w3c-perl/current/t/99_pod.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=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/Changes Mon Jul 27 12:53:03 2009
@@ -1,5 +1,10 @@
+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
+
0.24 Monday 25th August 2008
- fix 06detailed.t which was failing when not run under TEST_AUTHOR :(
+
0.23 Sunday 24th August 2008
- add in msgid and explanation methods to Error object partly courtesy of Matt Ryder <mattryder at iinet.net.au>
- update author tests in line with changes to validator output
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/MANIFEST?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/MANIFEST (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/MANIFEST Mon Jul 27 12:53:03 2009
@@ -22,6 +22,7 @@
t/12proxy.t
t/13soap_wrong_format.t
t/14warnings.t
+t/15alt_interface.t
t/99_pod.t
t/99_podcover.t
t/invalid.html
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=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/META.yml Mon Jul 27 12:53:03 2009
@@ -1,6 +1,6 @@
---
name: WebService-Validator-HTML-W3C
-version: 0.24
+version: 0.25
author:
- 'Struan Donald E<lt>struan at cpan.orgE<gt>'
abstract: Access the W3Cs online HTML validator
@@ -15,12 +15,12 @@
provides:
WebService::Validator::HTML::W3C:
file: lib/WebService/Validator/HTML/W3C.pm
- version: 0.24
+ version: 0.25
WebService::Validator::HTML::W3C::Error:
file: lib/WebService/Validator/HTML/W3C/Error.pm
WebService::Validator::HTML::W3C::Warning:
file: lib/WebService/Validator/HTML/W3C/Warning.pm
-generated_by: Module::Build version 0.280801
+generated_by: Module::Build version 0.32
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/README?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/README (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/README Mon Jul 27 12:53:03 2009
@@ -43,4 +43,4 @@
For everything else see the POD.
-$Id: README 635 2006-12-02 14:06:12Z struan $
+$Id$
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=40826&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 Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: W3C.pm 742 2008-08-25 07:23:56Z struan $
+# $Id$
package WebService::Validator::HTML::W3C;
@@ -16,7 +16,7 @@
use vars qw( $VERSION $VALIDATOR_URI $HTTP_TIMEOUT );
-$VERSION = 0.24;
+$VERSION = 0.25;
$VALIDATOR_URI = 'http://validator.w3.org/check';
$HTTP_TIMEOUT = 30;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C/Error.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C/Error.pm?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C/Error.pm (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/lib/WebService/Validator/HTML/W3C/Error.pm Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: Error.pm 734 2008-08-16 16:56:05Z struan $
+# $Id$
package WebService::Validator::HTML::W3C::Error;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/01load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/01load.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/01load.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/01load.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 01load.t 3 2003-11-11 22:49:11Z struan $
+# $Id: 01load.t,v 1.1 2003/11/11 22:49:12 struan Exp $
use Test::More tests => 3;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/02validate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/02validate.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/02validate.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/02validate.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 02validate.t 697 2007-08-05 20:22:35Z struan $
+# $Id$
use Test::More;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/03invalid.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/03invalid.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/03invalid.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/03invalid.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 03invalid.t 697 2007-08-05 20:22:35Z struan $
+# $Id$
use Test::More tests => 3;
use WebService::Validator::HTML::W3C;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/04bad_validator.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/04bad_validator.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/04bad_validator.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/04bad_validator.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 04bad_validator.t 697 2007-08-05 20:22:35Z struan $
+# $Id$
use Test::More tests => 12;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/05options.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/05options.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/05options.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/05options.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 05options.t 643 2007-01-03 23:13:39Z struan $
+# $Id$
use Test::More tests => 6;
use WebService::Validator::HTML::W3C;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/06detailed.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/06detailed.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/06detailed.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/06detailed.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 06detailed.t 741 2008-08-25 07:22:09Z struan $
+# $Id$
use Test::More;
use WebService::Validator::HTML::W3C;
@@ -52,7 +52,7 @@
<m:error>
<m:line>11</m:line>
- <m:col>6</m:col>
+ <m:col>7</m:col>
<m:message>end tag for "div" omitted, but OMITTAG NO was specified</m:message>
<m:messageid>70</m:messageid>
<m:explanation> <![CDATA[
@@ -164,7 +164,7 @@
my $err = $v->errors->[0];
isa_ok($err, 'WebService::Validator::HTML::W3C::Error');
is($err->line, 11, 'Correct line number');
- is($err->col, 6, 'Correct column');
+ is($err->col, 7, 'Correct column');
like($err->msg, qr/end tag for "div" omitted, but OMITTAG NO was specified/,
'Correct message');
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=40826&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 Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 07no_xpath.t 700 2007-08-07 20:52:52Z struan $
+# $Id$
use Test::More;
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/08no_detailed.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/08no_detailed.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/08no_detailed.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/08no_detailed.t Mon Jul 27 12:53:03 2009
@@ -34,7 +34,7 @@
warning_is { $err = $v->errors->[0]; } "You should set detailed when initalising if you intend to use the errors method", "set detailed warning";
isa_ok($err, 'WebService::Validator::HTML::W3C::Error');
is($err->line, 11, 'Correct line number');
- is($err->col, 6, 'Correct column');
+ is($err->col, 7, 'Correct column');
like($err->msg, qr/end tag for "div" omitted, but OMITTAG NO was specified/,
'Correct message');
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/11detailed_soap.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/11detailed_soap.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/11detailed_soap.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/11detailed_soap.t Mon Jul 27 12:53:03 2009
@@ -49,7 +49,7 @@
<m:errorlist>
<m:error>
<m:line>11</m:line>
- <m:col>6</m:col>
+ <m:col>7</m:col>
<m:message>end tag for "div" omitted, but OMITTAG NO was specified</m:message>
<m:messageid>70</m:messageid>
<m:explanation> <![CDATA[
@@ -86,7 +86,7 @@
my $err = $v->errors->[0];
isa_ok($err, 'WebService::Validator::HTML::W3C::Error');
is($err->line, 11, 'Correct line number');
- is($err->col, 6, 'Correct column');
+ is($err->col, 7, 'Correct column');
is($err->msgid, 70, 'Correct messageid' );
like($err->msg, qr/end tag for "div" omitted, but OMITTAG NO was specified/,
'Correct message');
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/12proxy.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/12proxy.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/12proxy.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/12proxy.t Mon Jul 27 12:53:03 2009
@@ -13,7 +13,7 @@
$test->use_numbers(0);
$test->no_ending(1);
- my $p = HTTP::Proxy->new( port => 3128, max_connections => 1 );
+ my $p = HTTP::Proxy->new( port => 3228, max_connections => 1 );
$p->init;
my $pid = fork;
Added: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/15alt_interface.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/15alt_interface.t?rev=40826&op=file
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/15alt_interface.t (added)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/15alt_interface.t Mon Jul 27 12:53:03 2009
@@ -1,0 +1,82 @@
+# $Id$
+
+use Test::More tests => 7;
+use WebService::Validator::HTML::W3C;
+use HTTP::Response;
+
+my $v = WebService::Validator::HTML::W3C->new( );
+
+ok ($v, 'object created');
+
+if ( $ENV{ 'TEST_AUTHOR' } ) {
+ my $r = $v->validate( uri => 'http://exo.org.uk/code/www-w3c-validator/invalid.html' );
+
+ unless ($r) {
+ if ($v->validator_error eq "Could not contact validator")
+ {
+ skip "failed to contact validator", 2;
+ }
+ }
+} else {
+ my $resp = HTTP::Response->parse( <<END
+200 OK
+Connection: close
+Date: Sun, 05 Aug 2007 14:38:36 GMT
+Server: Apache/2.2.3 (Debian)
+Content-Language: en
+Content-Type: text/html; charset=utf-8
+Client-Date: Sun, 05 Aug 2007 14:36:53 GMT
+Client-Peer: 133.27.228.132:80
+Client-Response-Num: 1
+X-W3C-Validator-Errors: 4
+X-W3C-Validator-Recursion: 1
+X-W3C-Validator-Status: Invalid
+END
+ );
+
+ $v->_response( $resp );
+ $v->_parse_validator_response();
+}
+
+ok (!$v->is_valid, 'page is not valid');
+is ($v->errorcount, 4, 'correct number of errors');
+
+SKIP: {
+ skip "TEST_AUTHOR environment variable not defined", 4 unless $ENV{ 'TEST_AUTHOR' };
+
+ my $valid = qq{<?xml version="1.0" encoding="UTF-8"?>
+ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">
+ <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+ <head>
+ <title></title>
+ </head>
+ <body>
+
+ </body>
+ </html>
+ };
+
+ my $r = $v->validate( string => $valid );
+
+ unless ($r) {
+ if ($v->validator_error eq "Could not contact validator")
+ {
+ skip "failed to contact validator", 2;
+ }
+ }
+
+ ok($r, 'validated valid scalar');
+ ok($v->is_valid(), 'valid scalar is valid');
+
+ $r = $v->validate( file => 't/valid.html' );
+
+ unless ($r) {
+ if ($v->validator_error eq "Could not contact validator")
+ {
+ skip "failed to contact validator", 2;
+ }
+ }
+
+ ok($r, 'validated valid file');
+ ok($v->is_valid(), 'valid file is valid');
+}
Modified: branches/upstream/libwebservice-validator-html-w3c-perl/current/t/99_pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-validator-html-w3c-perl/current/t/99_pod.t?rev=40826&op=diff
==============================================================================
--- branches/upstream/libwebservice-validator-html-w3c-perl/current/t/99_pod.t (original)
+++ branches/upstream/libwebservice-validator-html-w3c-perl/current/t/99_pod.t Mon Jul 27 12:53:03 2009
@@ -1,4 +1,4 @@
-# $Id: 99_pod.t 39 2004-01-13 22:34:37Z struan $
+# $Id: 99_pod.t,v 1.1 2004/01/13 22:34:37 struan Exp $
use Test::More;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
More information about the Pkg-perl-cvs-commits
mailing list