The uploaded file
HTTP-WebTest-Plugin-TagAttTest-1.00.tar.gz
has entered CPAN as
file: =
$CPAN/authors/id/E/EF/EFANCHE/HTTP-WebTest-Plugin-TagAttTest-1.00.tar.gz
size: 5312 bytes
md5: 940013aada679fdc09757f119d70686e
NAME
HTTP::WebTest ::Plugin::TagAttTest - WebTest plugin providing a =
higher level tag and attribute search interface.
DESCRIPTION
see also =
http://search.cpan.org/search?query=3DHTTP%3A%3AWebTest&mode=3Dall
This module is a plugin extending the functionality of the WebTest =
module to allow tests of the form:
my $webpage=3D'http://www.ethercube.net';
my @result;
@result =3D (@result, {test_name =3D> "title junk",
url =3D> $webpage,
tag_forbid =3D> [{ tag=3D>"title", tag_text=3D>"junk"}]});
@result =3D (@result, {test_name =3D> "title test page",
url =3D> $webpage,
tag_require =3D> [{tag=3D> "title", text=3D>"test page"}]});
@result =3D (@result, {test_name =3D> "type att with xml in value",
url =3D> $webpage,
tag_forbid =3D> [{attr=3D>"type", attr_text=3D>"xml" }]});
@result =3D (@result, {test_name =3D> "type class with body in value",
url =3D> $webpage,
tag_require =3D> [{attr=3D>"class", attr_text=3D>"body" }]});
@result =3D (@result, {test_name =3D> "class att",
url =3D> $webpage,
tag_require =3D> [{attr=3D>"class"}]}) ;
@result =3D (@result, {test_name =3D> "script tag",
url =3D>$webpage,
tag_forbid =3D> [{tag=3D> "script"}]});
@result =3D (@result, {test_name =3D> "script tag with attribute =
language=3Djavascript",
url =3D> $webpage,
tag_forbid =3D> =
[{tag=3D>"script",attr=3D>"language",attr_text=3D>"javascript"}]}) ;
my $tests=3D\@result;
my $params =3D {=20
plugins =3D> =
["::FileRequest","HTTP::WebTest::Plugin::TagAttTest"]
};
my $webtest=3D HTTP::WebTest->new;
#4
check_webtest(webtest =3D>$webtest, tests=3D> $tests,opts=3D>$params, =
check_file=3D>'t/test.out/1.out');
#$webtest->run_tests( $tests,$params);
Ed Fancher
Ethercube Solutions
http://www.ethercube.net
PHP, Perl, MySQL, Javascript solutions. |
