http-webtest-general — Web page testing using HTTP-WebTest

Re: [Http-webtest-general] on_response question

[Ilya M. <il...@ip...>]

>>>>> "RB" == Remo Behn <fo...@we...> writes:

RB> On Tue, 01 Apr 2003 14:36:05 +0400
RB> Ilya Martynov <il...@ip...> wrote:

>> >>>>> "RB" == Remo Behn <fo...@we...> writes:

RB> [...]

RB> sorry, don't work, i am stupid ???
RB> i'm not understand the concept ;(

RB> i have attach my *.wt and an Data::Dumper output

RB> cu
RB> -- 
RB> RayMan <fo...@we...>

RB> ignore_case     = no

RB> mail            = no
RB> mail_addresses  = ( foobar@localhost )
RB> mail_server     = localhost

RB> method          = POST

RB> [ ... cut other tests ... ]

RB> test_name = 'login with as cyrus (EN)'
RB>     url             = http://localhost/app/login.pl
RB>     params          = (
RB>         uid         => cyrus
RB>         passwd      => cyrus
RB>         doit        => login
RB>         lang        => EN
RB>     )
RB>     #-- get sessionID
RB>     on_response = {
RB>         my $webtest = shift;
RB>             ($SID)  = $webtest->current_response->header('refresh');
RB>             $SID    =~ s/.*sessionID=([\d\w]+).*/$1/;
RB>         [];
RB>     }
RB> end_test

RB> test_name = 'logout cyrus (EN)'
RB>     url     = http://localhost/app/menu.pl?sessionID=$SID

You'll have to take put this parameters in double quotes or it will
not expand value of $SID

I.e.
        url     = "http://localhost/app/menu.pl?sessionID=$SID"

RB>     params  = (
RB>         tab         => logout
RB>         lang        => EN
RB>         sessionID   => $SID

Same problem here. Should be

            sessionID   => "$SID"

RB>     )
RB> end_test



-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] on_response question

[Remo B. <fo...@we...>]

On Tue, 01 Apr 2003 14:36:05 +0400
Ilya Martynov <il...@ip...> wrote:

> >>>>> "RB" == Remo Behn <fo...@we...> writes:

[...]

> $webtest->current_response->headers
> 
> Returns HTTP::Headers object which has other API then you are using.
> Instead of
> $webtest->current_response->headers->{refresh}
> you should write
> $webtest->current_response->headers->header('refresh');
> See perldoc HTTP::Headers for details.
> Moreover HTTP::Request object ($webtest->current_response) have some
> shortcuts to access headers. You can rewrite code above to
> $webtest->current_response->header('refresh');
> See perldoc HTTP::Message for details (this is a base class of
> HTTP::Request)

sorry, don't work, i am stupid ???
i'm not understand the concept ;(

i have attach my *.wt and an Data::Dumper output

cu
-- 
RayMan <fo...@we...>

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

[Ilya M. <il...@ip...>]

>>>>> "IM" == Ilya Martynov <il...@ip...> writes:

IM> url = "http://abc.com/$URL_PATH"

IM> should work

Or even just

url = "$URL_PATH"

if 'relative_urls' parameter (see perldoc HTTP::WebTest) is enabled.

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

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
>

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

[Amit K. <ak...@ho...>]

Ummm. It works...

(Sheepish grin)... I should have figured this out on my own.

Thanks a lot....
Amit

>From: Ilya Martynov <il...@ip...>
>To: "Amit Kaul" <ak...@ho...>
>CC: htt...@li...
>Subject: Re: [Http-webtest-general] Another feature request....
>Date: Tue, 01 Apr 2003 19:28:07 +0400
>
> >>>>> "IM" == Ilya Martynov <il...@ip...> writes:
>
>IM> url = "http://abc.com/$URL_PATH"
>
>IM> should work
>
>Or even just
>
>url = "$URL_PATH"
>
>if 'relative_urls' parameter (see perldoc HTTP::WebTest) is enabled.
>
>--
>Ilya Martynov,  il...@ip...
>CTO IPonWEB (UK) Ltd
>Quality Perl Programming and Unix Support
>UK managed @ offshore prices - http://www.iponweb.net
>Personal website - http://martynov.org


_________________________________________________________________
The new MSN 8: smart spam protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail

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

[Ilya M. <il...@ip...>]

>>>>> "AK" == Amit Kaul <ak...@ho...> writes:

AK> Hi Ilya,
AK> Since you are so accomodating :-), I was wondering if there was a
AK> possibility of dynamically creating URL's to test.

AK> i.e. see second test

AK> test_name = GET First Page
AK>   url = http://abc.com/
AK>   on_response = {
AK>    my $webtest = shift;
AK>   ($URL_PATH) = $webtest->current_response->content =~ /\"URL=(\S+)"\)';
AK>    [];
AK>   }
AK> end_test

AK> test_name = GET Second URL
AK> url = http://abc.com/"$URL_PATH"
AK> end_test

url = "http://abc.com/$URL_PATH"

should work

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

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

[Amit K. <ak...@ho...>]

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

Re: [Http-webtest-general] on_response question

[Gerry F. <ga...@cs...>]

Illa,

Yup - you're right. I pretty much only write perl scripts for my tests,
not wtscript.  Thanks for the clarification.

Gerry

On Tue, 01 Apr 2003 16:53:16 +0400
Ilya Martynov <il...@ip...> wrote:

> >>>>> "IM" == Ilya Martynov <il...@ip...> writes:
> 
> IM> To be evaluated it should be written as
> 
> IM> sessionID   => "$SID"
> 
> IM> As for evaluation time it is always evaluted in runtime and
> IM> concerning HTTP::WebTest internals it is exactly equalent to
> 
> IM> sessionID   => sub { "$SID" }
> 
> Sorry,
> 
> I meant it is exactly equalent to
> 
> sessionID   => { "$SID" }
> 
> 
> Gerry, I think you confused wtscript format here with Perl code.
> Original poster had his test defined as wtscript.
> 
> -- 
> Ilya Martynov,  il...@ip...
> CTO IPonWEB (UK) Ltd
> Quality Perl Programming and Unix Support
> UK managed @ offshore prices - http://www.iponweb.net
> Personal website - http://martynov.org
> 
> 
> -------------------------------------------------------
> 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


-- 
Gerry Finkel            phone          (732)302-0222  ext. 6614
ga...@cs...         fax            (732)302-0799
			MQSS pager     (800) 759-8888 pin 1909963

As often happens, once we had a few songs finished that we liked, 
the newer ones started to get weirder. Daring grows out of 
confidence (or what the ancient Greeks called "hubris," I guess).

Neil Peart 

Re: [Http-webtest-general] on_response question

[Ilya M. <il...@ip...>]

>>>>> "IM" == Ilya Martynov <il...@ip...> writes:

IM> To be evaluated it should be written as

IM> sessionID   => "$SID"

IM> As for evaluation time it is always evaluted in runtime and concerning
IM> HTTP::WebTest internals it is exactly equalent to

IM> sessionID   => sub { "$SID" }

Sorry,

I meant it is exactly equalent to

sessionID   => { "$SID" }


Gerry, I think you confused wtscript format here with Perl code.
Original poster had his test defined as wtscript.

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] on_response question

[Ilya M. <il...@ip...>]

>>>>> "GF" == Gerry Finkel <ga...@cs...> writes:

GF> Illa,
GF> Being kinda new to this stuff, I have a follow up question. Isn't it
GF> also necessary for the second case to contain an anonymous function as
GF> well, so $SID is evaluated at runtime, rather than at load?

GF> e.g.

GF>  sessionID   => $SID

GF> should really be

GF>  sessionID   => sub { $SID }

Actually

sessionID   => $SID

is not evaluated at all. It is equalent to

sessionID   => '$SID'


To be evaluated it should be written as

sessionID   => "$SID"

As for evaluation time it is always evaluted in runtime and concerning
HTTP::WebTest internals it is exactly equalent to

sessionID   => sub { "$SID" }


-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] on_response question

[Gerry F. <ga...@cs...>]

Illa,


Being kinda new to this stuff, I have a follow up question. Isn't it
also necessary for the second case to contain an anonymous function as
well, so $SID is evaluated at runtime, rather than at load?

e.g.

 sessionID   => $SID

should really be

 sessionID   => sub { $SID }


Gerry


On Tue, 01 Apr 2003 14:36:05 +0400
Ilya Martynov <il...@ip...> wrote:

> >>>>> "RB" == Remo Behn <fo...@we...> writes:
> 
> RB> hi @all
> 
> RB> sorry for my possibly stupid question
> 
> RB> i have the follow test case
> 
> RB> ---------
> RB> test_name = 'login with as admin (EN)'
> RB>     url             = http://localhost/app/login.pl
> RB>     click_button    = Login
> RB>     params          = (
> RB>         uid         => admin
> RB>         passwd      => foobar
> RB>         doit        => login
> RB>         lang        => EN
> RB>     )
> RB>     #-- get sessionID
> RB>     on_response = {
> RB>         my $webtest = shift;
> RB>             ($SID)  =
> RB>             $webtest->current_response()->headers->{refresh};$SID 
> RB>               =~ s/.*sessionID=([\d\w]+).*/$1/;
> RB>         [];
> RB>     }
> RB> end_test
> 
> RB> [..snip..]
> 
> RB> why that does not do ? 
> RB> $SID isn't set ;(((
> 
> RB> [..snip..]
> 
> $webtest->current_response->headers
> 
> Returns HTTP::Headers object which has other API then you are using.
> 
> Instead of
> 
> $webtest->current_response->headers->{refresh}
> 
> you should write
> 
> $webtest->current_response->headers->header('refresh');
> 
> See perldoc HTTP::Headers for details.
> 
> Moreover HTTP::Request object ($webtest->current_response) have some
> shortcuts to access headers. You can rewrite code above to
> 
> $webtest->current_response->header('refresh');
> 
> See perldoc HTTP::Message for details (this is a base class of
> HTTP::Request)
> 
> 
> -- 
> Ilya Martynov,  il...@ip...
> CTO IPonWEB (UK) Ltd
> Quality Perl Programming and Unix Support
> UK managed @ offshore prices - http://www.iponweb.net
> Personal website - http://martynov.org
> 
> 
> -------------------------------------------------------
> 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


-- 
Gerry Finkel            phone          (732)302-0222  ext. 6614
ga...@cs...         fax            (732)302-0799
			MQSS pager     (800) 759-8888 pin 1909963

As often happens, once we had a few songs finished that we liked, 
the newer ones started to get weirder. Daring grows out of 
confidence (or what the ancient Greeks called "hubris," I guess).

Neil Peart 

Re: [Http-webtest-general] Re: Small bug in ReportPlugin.pm

[Ilya M. <il...@ip...>]

>>>>> "AK" == Amit Kaul <ak...@ho...> writes:

AK> Hi Ilya,
AK> Thanks for the pointer. You were absolutely right. I changed

AK> mail_addresses = ( us...@do... us...@do... )

AK> and it worked perfectly.

AK> Also, I know I can do this but did you consider having the subject
AK> Line as a parameter that could be set in the wtscript file and which
AK> could be passed to ReportPlugin.pm.

I don't see any reason why not. I'll add it.

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] on_response question

[Ilya M. <il...@ip...>]

>>>>> "RB" == Remo Behn <fo...@we...> writes:

RB> hi @all

RB> sorry for my possibly stupid question

RB> i have the follow test case

RB> ---------
RB> test_name = 'login with as admin (EN)'
RB>     url             = http://localhost/app/login.pl
RB>     click_button    = Login
RB>     params          = (
RB>         uid         => admin
RB>         passwd      => foobar
RB>         doit        => login
RB>         lang        => EN
RB>     )
RB>     #-- get sessionID
RB>     on_response = {
RB>         my $webtest = shift;
RB>             ($SID)  = $webtest->current_response()->headers->{refresh};
RB>             $SID    =~ s/.*sessionID=([\d\w]+).*/$1/;
RB>         [];
RB>     }
RB> end_test

RB> [..snip..]

RB> why that does not do ? 
RB> $SID isn't set ;(((

RB> [..snip..]

$webtest->current_response->headers

Returns HTTP::Headers object which has other API then you are using.

Instead of

$webtest->current_response->headers->{refresh}

you should write

$webtest->current_response->headers->header('refresh');

See perldoc HTTP::Headers for details.

Moreover HTTP::Request object ($webtest->current_response) have some
shortcuts to access headers. You can rewrite code above to

$webtest->current_response->header('refresh');

See perldoc HTTP::Message for details (this is a base class of
HTTP::Request)


-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

[Http-webtest-general] Re: Small bug in ReportPlugin.pm

[Amit K. <ak...@ho...>]

Hi Ilya,

Thanks for the pointer. You were absolutely right. I changed

mail_addresses = ( us...@do... us...@do... )

and it worked perfectly.

Also, I know I can do this but did you consider having the subject Line as a 
parameter that could be set in the wtscript file and which could be passed 
to ReportPlugin.pm.

Regards,
A


>From: Ilya Martynov <il...@ma...>
>To: "Amit Kaul" <ak...@ho...>
>CC: htt...@li...
>Subject: Re: Small bug in ReportPlugin.pm
>Date: Sat, 29 Mar 2003 18:29:43 +0300
>
> >>>>> On Fri, 28 Mar 2003 17:18:07 -0500, "Amit Kaul" 
><ak...@ho...> said:
>
>AK> Hi Ilya,
>AK> Thanks for the quick reply to my email. I am sorry but I just tested
>AK> the new version (i.e version 2.02) and I still get the error.
>
>AK> For some reason when you do
>
>AK> $self->_smtp_cmd($smtp, 'to', @$mail_addresses);
>
>AK> it does not pass an array to NET::SMTP, which is why I had done the
>AK> assignment of it to a temp variable and then split it to push it onto
>AK> an array @to.
>
> >> my $temp = join / /, @$mail_addresses;
> >> my @to = split /\s+/, $temp; # push elements into @to array
>
>AK> I was wondering what exactly is @$mail_addresses. Is it an array? Or
>AK> an hash.
>
>$mail_addresses is an array ref. I've tested the new code and it
>should work.
>
>My guess that you write wtscript like
>
>mail_addresses = ( us...@do... us...@do... )
>
>what is wrong as is string 'us...@do... us...@do...' is
>treated as single parameter.
>
>It should be written as
>
>mail_addresses = ( us...@do...
>                    us...@do... )
>
>
>
>--
>Ilya Martynov,  il...@ip...
>CTO IPonWEB (UK) Ltd
>Quality Perl Programming and Unix Support
>UK managed @ offshore prices - http://www.iponweb.net
>Personal website - http://martynov.org
>


_________________________________________________________________
Add photos to your e-mail with MSN 8. Get 2 months FREE*.  
http://join.msn.com/?page=features/featuredemail

[Http-webtest-general] on_response question

[Remo B. <fo...@we...>]

hi @all

sorry for my possibly stupid question

i have the follow test case

---------
test_name = 'login with as admin (EN)'
    url             = http://localhost/app/login.pl
    click_button    = Login
    params          = (
        uid         => admin
        passwd      => foobar
        doit        => login
        lang        => EN
    )
    #-- get sessionID
    on_response = {
        my $webtest = shift;
            ($SID)  = $webtest->current_response()->headers->{refresh};
            $SID    =~ s/.*sessionID=([\d\w]+).*/$1/;
        [];
    }
end_test

test_name = 'logout admin (EN)'
    url     = http://localhost/app/menu.pl
    params  = (
        tab         => logout
        lang        => EN
        sessionID   => $SID
    )
end_test
---------

why that does not do ? 
$SID isn't set ;(((

note:

  - yes, i read all pod documents and the cookbook
  - yes, the regex for sessionID works
      my $SID = '0; URL=/app/menu.pl?sessionID=2eff4f3df913d371508aa03f2a390a77';
      $SID    =~ s/.*sessionID=([\d\w]+).*/$1/;
      print "$SID\n";
      $> 2eff4f3df913d371508aa03f2a390a77
  - yes, i use the latest version of module from cpan
  - yes, i use perl 5.8

;)))


thx for help
  


cu
-- 
RayMan <fo...@we...>

[Http-webtest-general] Re: Small bug in ReportPlugin.pm

[Ilya M. <il...@ma...>]

>>>>> On Fri, 28 Mar 2003 17:18:07 -0500, "Amit Kaul" <ak...@ho...> said:

AK> Hi Ilya,
AK> Thanks for the quick reply to my email. I am sorry but I just tested
AK> the new version (i.e version 2.02) and I still get the error.

AK> For some reason when you do

AK> $self->_smtp_cmd($smtp, 'to', @$mail_addresses);

AK> it does not pass an array to NET::SMTP, which is why I had done the
AK> assignment of it to a temp variable and then split it to push it onto
AK> an array @to.

>> my $temp = join / /, @$mail_addresses;
>> my @to = split /\s+/, $temp; # push elements into @to array

AK> I was wondering what exactly is @$mail_addresses. Is it an array? Or
AK> an hash.

$mail_addresses is an array ref. I've tested the new code and it
should work.

My guess that you write wtscript like

mail_addresses = ( us...@do... us...@do... )

what is wrong as is string 'us...@do... us...@do...' is
treated as single parameter.

It should be written as

mail_addresses = ( us...@do...
                   us...@do... )



-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

[Http-webtest-general] Re: Small bug in ReportPlugin.pm

[Amit K. <ak...@ho...>]

Hi Ilya,

Thanks for the quick reply to my email. I am sorry but I just tested the new 
version (i.e version 2.02) and I still get the error.

For some reason when you do

$self->_smtp_cmd($smtp, 'to', @$mail_addresses);

it does not pass an array to NET::SMTP, which is why I had done the 
assignment of it to a temp variable and then split it to push it onto an 
array @to.

>       my $temp = join / /, @$mail_addresses;
>   my @to = split /\s+/, $temp; # push elements into @to array

I was wondering what exactly is @$mail_addresses. Is it an array? Or an 
hash.

Regards,
Amit


>From: Ilya Martynov <il...@ma...>
>To: "Amit Kaul" <ak...@ho...>
>CC: htt...@li...
>Subject: Re: Small bug in ReportPlugin.pm
>Date: Sat, 22 Mar 2003 15:22:15 +0300
>
> >>>>> On Fri, 21 Mar 2003 17:15:02 -0500, "Amit Kaul" 
><ak...@ho...> said:
>
>AK> Hi All,
>AK> First of all, wanted to thank the developers of Webtest. This is a
>AK> great module and I am really using it to the fullest :-). Kudos to you.
>
>AK> However, I was trying to setup multiple mail_addresses in a wtscript
>AK> and for some reason it was giving me an error.
>
>AK> ie. mail_addresses = ( ab...@ao... xy...@ao... )
>AK> would come back with the following error.
>
> >>> RCPT To:<ab...@ao....xy...@ao...>
>AK> <<< 553 malformed address: <ab...@ao....xy...@ao...>
>AK> 550 <ab...@ao....xy...@ao...>... User unknown
>
>AK> I looked into it and this is what I came up with to fix it. Could you
>AK> please commment?
>
>Thanks for the bug report and for the patch.  It is fixed in CVS now.
>
>AK> [..snip..]
>
>--
>Ilya Martynov,  il...@ip...
>CTO IPonWEB (UK) Ltd
>Quality Perl Programming and Unix Support
>UK managed @ offshore prices - http://www.iponweb.net
>Personal website - http://martynov.org
>


_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online  
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963

[Http-webtest-general] Re: Recorder

[Ilya M. <il...@ma...>]

>>>>> On Wed, 26 Mar 2003 10:13:45 -0800 (PST), "Dr. Tolga Yalcinkaya" <tya...@ya...> said:

TY> Ilya,
TY> Wow... This is very exciting!                     
                                                      
TY> Thank you very much for the detailed information. 
                                                      
TY> I am curious though, how you are planning to handle
TY> HTTPS traffic...  Any thoughts?                   
                                                      
I didn't think about it yet.                          
                                                      
But since you asked: traditional proxy cannot intercept SSL-protected
HTTP traffic.  Only SSL tunnel end-points can see decrypted HTTP
traffic what means Recorder must be one of them to be able to record
HTTPS.  One possible solution is embed recorder to the server (like
for example Apache::Recorder does).

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] Recorder

[Dr. T. Y. <tya...@ya...>]

Ilya,

Wow... This is very exciting!

Thank you very much for the detailed information.

I am curious though, how you are planning to handle
HTTPS traffic...  Any thoughts?

Tolga


--- Ilya Martynov <il...@ip...> wrote:
> >>>>> "TY" == Tolga Yalcinkaya
> <tya...@ya...> writes:
> 
> TY> Hi Ilya,
> TY> I noticed that in the CVS repository, there is a
> TY> package called "Recorder."  Can you tell us a
> little
> TY> bit about the package, the architecture, and
> when it
> TY> would be available.
> 
> This is a web proxy which can
> 
> 1) record all HTTP requests/responses passed through
> it
> 2) show them via web interface
> 3) autogenerate a skeleton of wtscript file
> 
> It is not unfinished but already usable.  If you
> want to play with it
> get it from CVS, install with perl Makefile.PL; make
> install and run
> installed rec-proxy script (it is even have some
> docs so man rec-proxy
> after installation will work). Then configure your
> browser to use
> http://localhost:8000 as a http proxy. If configured
> http://ANYDOAIN/webtest/list will show the web
> interface of Recorder
> where you can turn on/off recording, see recorded
> requests/responses
> and generate a wtscript file.
> 
> As for architecture the proxy itself is based on POE
> and its web
> interface implemented in MVC style using
> Template::Toolkit and
> CGI.pm. It is quite modular so it should be possible
> to add in the
> future alternative frontends (I personally very
> interested in XUL
> based frontend).
> 
> On avialability I cannot make exact predictions.
> Currently I work on
> this project in my unpaid free time and as usual it
> is quite limited
> resource :(. My todo list for the first release is
> rather short
> though:
> 
> 1) add configurable filters to recorder so it will
> be possible to
>    exclude certaint requests/responses from recorded
> sequence (usually
>    you are not very interested in pics and css files
> for example)
> 
> 2) allow to edit recorded sequence (delete
> requests/responses)
> 
> 3) make wtscript generator more intelligent
> (currently it only
>    generates test blocks with 'url', 'method',
> 'params' test params
>    and does support HTTP auth, cookies and many
> other features
>    supported by HTTP::WebTest itself)
> 
> 4) more pretty UI
> 
> 5) in general make it useable enough so I can record
> functional tests
>    for web interface of Recorder itself.
> 
> 
> 
> -- 
> Ilya Martynov,  il...@ip...
> CTO IPonWEB (UK) Ltd
> Quality Perl Programming and Unix Support
> UK managed @ offshore prices -
> http://www.iponweb.net
> Personal website - http://martynov.org



__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com

Re: [Http-webtest-general] Recorder

[Ilya M. <il...@ip...>]

>>>>> "TY" == Tolga Yalcinkaya <tya...@ya...> writes:

TY> Hi Ilya,
TY> I noticed that in the CVS repository, there is a
TY> package called "Recorder."  Can you tell us a little
TY> bit about the package, the architecture, and when it
TY> would be available.

This is a web proxy which can

1) record all HTTP requests/responses passed through it
2) show them via web interface
3) autogenerate a skeleton of wtscript file

It is not unfinished but already usable.  If you want to play with it
get it from CVS, install with perl Makefile.PL; make install and run
installed rec-proxy script (it is even have some docs so man rec-proxy
after installation will work). Then configure your browser to use
http://localhost:8000 as a http proxy. If configured
http://ANYDOAIN/webtest/list will show the web interface of Recorder
where you can turn on/off recording, see recorded requests/responses
and generate a wtscript file.

As for architecture the proxy itself is based on POE and its web
interface implemented in MVC style using Template::Toolkit and
CGI.pm. It is quite modular so it should be possible to add in the
future alternative frontends (I personally very interested in XUL
based frontend).

On avialability I cannot make exact predictions. Currently I work on
this project in my unpaid free time and as usual it is quite limited
resource :(. My todo list for the first release is rather short
though:

1) add configurable filters to recorder so it will be possible to
   exclude certaint requests/responses from recorded sequence (usually
   you are not very interested in pics and css files for example)

2) allow to edit recorded sequence (delete requests/responses)

3) make wtscript generator more intelligent (currently it only
   generates test blocks with 'url', 'method', 'params' test params
   and does support HTTP auth, cookies and many other features
   supported by HTTP::WebTest itself)

4) more pretty UI

5) in general make it useable enough so I can record functional tests
   for web interface of Recorder itself.



-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

[Http-webtest-general] Recorder

[Dr. T. Y. <tya...@ya...>]

Hi Ilya,

I noticed that in the CVS repository, there is a
package called "Recorder."  Can you tell us a little
bit about the package, the architecture, and when it
would be available.

Thanks.

Tolga

__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com

[Http-webtest-general] Re: [ANNOUNCE] HTTP-WebTest 2.02

[Ilya M. <il...@ma...>]

The URL

    http://martynov.org/tgz/HTTP-WebTest-2.02.tar.gz

has entered CPAN as

  file: $CPAN/authors/id/I/IL/ILYAM/HTTP-WebTest-2.02.tar.gz
  size: 87462 bytes
   md5: 20478775a4bafb6c5cad2ca1fcd4e9ea


NAME
    HTTP::WebTest - Testing static and dynamic web content

DESCRIPTION

    This module runs tests on remote URLs containing
    Perl/JSP/HTML/JavaScript/etc. and generates a detailed test report. This
    module can be used "as-is" or its functionality can be extended using
    plugins. Plugins can define test types and provide additional report
    capabilities. This module comes with a set of default plugins but can be
    easily extended with third party plugins.



CHANGES SINCE LAST STABLE VERSION 2.01:

BUG FIXES:

* Fixed bug when test reports were not send when multiple email
addresses were specified as test report recipients (test parameter
'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.

* New versions of LWP add Client-Peer header in all responses what
breaks one of tests in the self-testing suite.  This test was supposed
to be fixed by the previous release but apparently it wasn't.


-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

[Http-webtest-general] Re: Small bug in ReportPlugin.pm

[Ilya M. <il...@ma...>]

>>>>> On Fri, 21 Mar 2003 17:15:02 -0500, "Amit Kaul" <ak...@ho...> said:

AK> Hi All,
AK> First of all, wanted to thank the developers of Webtest. This is a
AK> great module and I am really using it to the fullest :-). Kudos to you.

AK> However, I was trying to setup multiple mail_addresses in a wtscript
AK> and for some reason it was giving me an error.

AK> ie. mail_addresses = ( ab...@ao... xy...@ao... )
AK> would come back with the following error.

>>> RCPT To:<ab...@ao....xy...@ao...>
AK> <<< 553 malformed address: <ab...@ao....xy...@ao...>
AK> 550 <ab...@ao....xy...@ao...>... User unknown

AK> I looked into it and this is what I came up with to fix it. Could you
AK> please commment?

Thanks for the bug report and for the patch.  It is fixed in CVS now.

AK> [..snip..]

-- 
Ilya Martynov,  il...@ip...
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

Re: [Http-webtest-general] Small bug in ReportPlugin.pm

[Duncan C. <dca...@bc...>]

On 2003-03-21 Amit Kaul wrote:
>Hi All,
>
>First of all, wanted to thank the developers of Webtest. This is a great 
>module and I am really using it to the fullest :-). Kudos to you.
>
>However, I was trying to setup multiple mail_addresses in a wtscript and for 
>some reason it was giving me an error.
>
>ie. mail_addresses = ( ab...@ao... xy...@ao... )
>would come back with the following error.
>
>>>RCPT To:<ab...@ao....xy...@ao...>
><<< 553 malformed address: <ab...@ao....xy...@ao...>
>550 <ab...@ao....xy...@ao...>... User unknown
>
>I looked into it and this is what I came up with to fix it. Could you please 
>commment?
>
>Thanks,
>Amit
>
>Basically the $to should be @to in ReportPlugin.pm. This is because 
>NET::SMTP.pm wants an array of recipients.
>
>akaul_9:/lib/HTTP/WebTest>diff old.ReportPlugin.pm ReportPlugin.pm
>238c238,239
><     my $to = join ', ', @$mail_addresses;
>---
>>       my $temp = join / /, @$mail_addresses;
>>   my @to = split /\s+/, $temp; # push elements into @to array
>240c241
><     $self->_smtp_cmd($smtp, 'to', $to);
>---
>>     $self->_smtp_cmd($smtp, 'to', @to);
>243c244
><     $self->_smtp_cmd($smtp, 'datasend', "To: $to\n");
>---
>>     $self->_smtp_cmd($smtp, 'datasend', "To: @to\n");
>
Without actually testing anything, isn't it simply

    $self->_smtp_cmd($smtp, 'to', $to);

becomes 

    $self->_smtp_cmd($smtp, 'to', @$mail_addresses);

Regards,
Duncan

[Http-webtest-general] Small bug in ReportPlugin.pm

[Amit K. <ak...@ho...>]

Hi All,

First of all, wanted to thank the developers of Webtest. This is a great 
module and I am really using it to the fullest :-). Kudos to you.

However, I was trying to setup multiple mail_addresses in a wtscript and for 
some reason it was giving me an error.

ie. mail_addresses = ( ab...@ao... xy...@ao... )
would come back with the following error.

>>RCPT To:<ab...@ao....xy...@ao...>
<<< 553 malformed address: <ab...@ao....xy...@ao...>
550 <ab...@ao....xy...@ao...>... User unknown

I looked into it and this is what I came up with to fix it. Could you please 
commment?

Thanks,
Amit

Basically the $to should be @to in ReportPlugin.pm. This is because 
NET::SMTP.pm wants an array of recipients.

akaul_9:/lib/HTTP/WebTest>diff old.ReportPlugin.pm ReportPlugin.pm
238c238,239
<     my $to = join ', ', @$mail_addresses;
---
>       my $temp = join / /, @$mail_addresses;
>   my @to = split /\s+/, $temp; # push elements into @to array
240c241
<     $self->_smtp_cmd($smtp, 'to', $to);
---
>     $self->_smtp_cmd($smtp, 'to', @to);
243c244
<     $self->_smtp_cmd($smtp, 'datasend', "To: $to\n");
---
>     $self->_smtp_cmd($smtp, 'datasend', "To: @to\n");

_________________________________________________________________
Add photos to your messages with MSN 8. Get 2 months FREE*.  
http://join.msn.com/?page=features/featuredemail