Re: [Http-webtest-general] Another feature request....

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

Hi,
    I do something similar, but in Perl. In this case I have a file of the
form


NN All
type Tag/attribute attributeValue/TagValue
tag dfn
tag acronym
tag h1
att class body
att style
att style overflow:none


I loop through each line extracting tag's and attributes. Certainly you
could do something similar changing $webpage each time. I don't normally use
wt_script so I'm not that familiar with it.

sub  build_tests($ $)
{
 my ($webpage, $testlocation) = @_;
 open(TESTFILE, "<" .$testlocation)        || die "can't open datafile: $!";
 print "Test file " . <TESTFILE>;
 print "Test file Format" . <TESTFILE>;
 my @result;
 while(<TESTFILE>)
 {
  my @line = split;
  if ($line[0] eq 'tag')
  {
   @result = (@result, {test_name => $line[1] . ' tag',
         url   => $webpage,
         regex_forbid => [ "<\\s*".$line[1]."[^>]*>" ]});
  }
  if ($line[0] eq 'att' && $line[2])
  {
   @result = (@result, {test_name => $line[1] ."=".$line[2]. ' att',
         url   => $webpage,
         regex_forbid => [ $line[1]."\\s*=\\s*[\'\"]?[^\'\"]*".$line[2] ]});
  }
  elsif ($line[0] eq 'att') # only att
  {
   @result = (@result, {test_name => $line[1] . ' att',
         url   => $webpage,
         regex_forbid => [ $line[1]]}) ;
  }
 }
 return \@result;

}
Ed Fancher
Ethercube Solutions
http://www.ethercube.net
PHP, Perl, MySQL, Javascript solutions.
----- Original Message -----
From: "Amit Kaul" <ak...@ho...>
To: <htt...@li...>
Sent: Tuesday, April 01, 2003 11:16 AM
Subject: [Http-webtest-general] Another feature request....


> Hi Ilya,
>
> Since you are so accomodating :-), I was wondering if there was a
> possibility of dynamically creating URL's to test.
>
> i.e. see second test
>
> test_name = GET First Page
>   url = http://abc.com/
>   on_response = {
>    my $webtest = shift;
>   ($URL_PATH) = $webtest->current_response->content =~ /\"URL=(\S+)"\)';
>    [];
>   }
> end_test
>
> test_name = GET Second URL
> url = http://abc.com/"$URL_PATH"
> end_test
>
> Thanks,
> Amit
>
>
> _________________________________________________________________
> Tired of spam? Get advanced junk mail protection with MSN 8.
> http://join.msn.com/?page=features/junkmail
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: ValueWeb:
> Dedicated Hosting for just $79/mo with 500 GB of bandwidth!
> No other company gives more support or power for your dedicated server
> http://click.atdmt.com/AFF/go/sdnxxaff00300020aff/direct/01/
> _______________________________________________
> Http-webtest-general mailing list
> Htt...@li...
> https://lists.sourceforge.net/lists/listinfo/http-webtest-general
>