[Http-webtest-general] [ANNOUNCE] HTTP-WebTest-Plugin-TagAttTest-1.00

[Ed F. <ed....@la...>]

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.