|
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=HTTP%3A%3AWebTest&mode=all This module is a plugin extending the functionality of the WebTest module to allow tests of the form: my $webpage='http://www.ethercube.net'; my @result; @result = (@result, {test_name => "title
junk",
url => $webpage, tag_forbid => [{ tag=>"title", tag_text=>"junk"}]}); @result = (@result, {test_name => "title test page", url => $webpage, tag_require => [{tag=> "title", text=>"test page"}]}); @result = (@result, {test_name => "type att with xml in value", url => $webpage, tag_forbid => [{attr=>"type", attr_text=>"xml" }]}); @result = (@result, {test_name => "type class with body in value", url => $webpage, tag_require => [{attr=>"class", attr_text=>"body" }]}); @result = (@result, {test_name => "class att", url => $webpage, tag_require => [{attr=>"class"}]}) ; @result = (@result, {test_name => "script tag", url =>$webpage, tag_forbid => [{tag=> "script"}]}); @result = (@result, {test_name => "script tag with attribute language=_javascript_", url => $webpage, tag_forbid => [{tag=>"script",attr=>"language",attr_text=>"_javascript_"}]}) ; my [EMAIL PROTECTED]; my $params = { plugins => ["::FileRequest","HTTP::WebTest::Plugin::TagAttTest"] }; my $webtest= HTTP::WebTest->new; #4 check_webtest(webtest =>$webtest, tests=> $tests,opts=>$params, check_file=>'t/test.out/1.out'); #$webtest->run_tests( $tests,$params); |
