perl/modules/W3C/LogValidator/t module-basic.t,NONE,1.1 module-css.t,NONE,1.1 module-survey.t,NONE,1.1

Update of /sources/public/perl/modules/W3C/LogValidator/t
In directory hutz:/tmp/cvs-serv25818

Added Files:
	module-basic.t module-css.t module-survey.t 
Log Message:
new module tests

--- NEW FILE: module-basic.t ---
#! /usr/bin/perl -w


use strict;
print "1..4\n";
use  W3C::LogValidator::Basic;
print "ok 1\n";

my %config = ("verbose" => 2);
my $validator = W3C::LogValidator::Basic->new(\%config);
print "ok 2\n";


$validator->uris('http://www.w3.org/Overview.html', 'http://www.yahoo.com/index.html');
print "ok 3\n";

my %result= $validator->process_list;
if (not %result) {print "not"}
print "ok 4\n";

--- NEW FILE: module-survey.t ---
#! /usr/bin/perl -w


use strict;
print "1..4\n";
use  W3C::LogValidator::SurveyEngine;
print "ok 1\n";

my %config = ("verbose" => 3);
my $validator = W3C::LogValidator::SurveyEngine->new(\%config);
print "ok 2\n";


$validator->uris('http://www.w3.org/Overview.html', 'http://yoda.zoy.org/');
print "ok 3\n";

my %result= $validator->process_list;
if (not %result) {print "not"}
print "ok 4\n";

--- NEW FILE: module-css.t ---
#! /usr/bin/perl -w


use strict;
print "1..4\n";
use  W3C::LogValidator::CSSValidator;
print "ok 1\n";

my %config = ("verbose" => 3);
my $validator = W3C::LogValidator::CSSValidator->new(\%config);
print "ok 2\n";


$validator->uris('http://www.w3.org/StyleSheets/home.css', 'http://yoda.zoy.org/mt-static/styles.css');
print "ok 3\n";

my %result= $validator->process_list;
if (not %result) {print "not"}
print "ok 4\n";

Received on Friday, 13 August 2004 05:59:30 UTC