http-webtest-commits Mailing List for HTTP-WebTest (Page 24)
Brought to you by:
m_ilya,
richardanderson
You can subscribe to this list here.
2002 |
Jan
(38) |
Feb
(83) |
Mar
(10) |
Apr
(28) |
May
(42) |
Jun
(61) |
Jul
(43) |
Aug
(42) |
Sep
(14) |
Oct
(27) |
Nov
(16) |
Dec
(81) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2003 |
Jan
(81) |
Feb
(29) |
Mar
(32) |
Apr
(42) |
May
(3) |
Jun
|
Jul
(11) |
Aug
|
Sep
(33) |
Oct
(6) |
Nov
(4) |
Dec
|
2004 |
Jan
|
Feb
|
Mar
(10) |
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Ilya M. <m_...@us...> - 2002-05-11 18:47:52
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv18404/t/test.out Added Files: content-type Log Message: Added test for Content-Type header value in POST requests --- NEW FILE: content-type --- Failed Succeeded Test Name 0 2 *** no name *** URL: http://http.web.test/show-headers STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT Content-Type: application/x-www-form-urlencoded SUCCEED Total web tests failed: 0 succeeded: 2 |
From: Ilya M. <m_...@us...> - 2002-05-11 18:47:18
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv18269/lib/HTTP/WebTest/Plugin Modified Files: SetRequest.pm Log Message: Send correct Content_Type for POST requests Index: SetRequest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/SetRequest.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SetRequest.pm 12 Feb 2002 13:09:18 -0000 1.6 --- SetRequest.pm 11 May 2002 18:47:09 -0000 1.7 *************** *** 143,146 **** --- 143,149 ---- if($method =~ /^POST$/i) { $request->method('POST'); + # ensure correct default value for content-type header + $request->header(Content_Type => + 'application/x-www-form-urlencoded'); } else { $request->method('GET'); |
From: Ilya M. <m_...@us...> - 2002-05-03 13:30:46
|
Update of /cvsroot/http-webtest/HTTP-WebTest/bin In directory usw-pr-cvs1:/tmp/cvs-serv7117/bin Modified Files: wt.PL Log Message: Be more compatible with GNU utils in args string parsing Index: wt.PL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/bin/wt.PL,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** wt.PL 28 Jan 2002 10:43:45 -0000 1.2 --- wt.PL 3 May 2002 13:30:34 -0000 1.3 *************** *** 103,107 **** use Pod::Usage; ! use Getopt::Long; use HTTP::WebTest 1.96; --- 103,107 ---- use Pod::Usage; ! use Getopt::Long qw(:config gnu_getopt); use HTTP::WebTest 1.96; |
From: Ilya M. <m_...@us...> - 2002-04-28 21:28:18
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv11197/lib/HTTP/WebTest/Plugin Modified Files: Click.pm Log Message: Added 'click_button' parameter implementation Index: Click.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Click.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Click.pm 24 Mar 2002 11:02:26 -0000 1.2 --- Click.pm 27 Apr 2002 21:17:50 -0000 1.3 *************** *** 58,73 **** # get various params we handle ! my $button = $self->test_param('click_button'); ! my $link = $self->test_param('click_link'); ! if(defined $link) { my $link = $self->find_link(response => $response, ! pattern => $link); $request->uri($link) if defined $link; ! } elsif(defined $button) { ! my $base = $self->find_base($request); ! # find form and button name ! my($form, $name) = $self->find_form(); } } --- 58,76 ---- # get various params we handle ! my $click_button = $self->test_param('click_button'); ! my $click_link = $self->test_param('click_link'); ! if(defined $click_link) { ! # find matching link my $link = $self->find_link(response => $response, ! pattern => $click_link); $request->uri($link) if defined $link; ! } elsif(defined $click_button) { ! # find action which corresponds to requested submit button ! my $action = $self->find_form(response => $response, ! pattern => $click_button); ! ! $request->uri($action) if defined $action; } } *************** *** 80,84 **** my $content = $response->content; ! # look for base tag inside head tag my $parser = HTML::TokeParser->new(\$content); my $token = $parser->get_tag('head'); --- 83,87 ---- my $content = $response->content; ! # look for base tag inside of head tag my $parser = HTML::TokeParser->new(\$content); my $token = $parser->get_tag('head'); *************** *** 119,126 **** # we haven't found anything ! return undef unless defined $link; # return link return URI->new_abs($link, $base); } --- 122,176 ---- # we haven't found anything ! return unless defined $link; # return link return URI->new_abs($link, $base); + } + + sub find_form { + my $self = shift; + my %param = @_; + + my $response = $param{response}; + my $pattern = $param{pattern}; + + my $base = $self->find_base($response); + my $content = $response->content; + + # look for form + my $parser = HTML::TokeParser->new(\$content); + my $uri = undef; + FORM: + while(my $token = $parser->get_tag('form')) { + # get action from form tag param + my $action = $token->[1]{action} || $base; + + # find matching submit button or end of form + while(my $token = $parser->get_tag('input', '/form')) { + my $tag = $token->[0]; + + if($tag eq '/form') { + # end of form: let's look for another form + next FORM; + } + + # check if right input control is found + my $type = $token->[1]{type} || 'text'; + my $name = $token->[1]{name} || ''; + my $value = $token->[1]{value} || ''; + next if $type !~ /^submit$/i; + next if $name !~ /$pattern/i and $value !~ /$pattern/i; + + # stop searching + $uri = $action; + last FORM; + } + } + + # we haven't found anything + return unless defined $uri; + + # return method and link + return URI->new_abs($uri, $base); } |
From: Ilya M. <m_...@us...> - 2002-04-28 21:18:21
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv21823 Modified Files: MANIFEST Log Message: Updated Index: MANIFEST =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** MANIFEST 8 Apr 2002 07:34:15 -0000 1.8 --- MANIFEST 27 Apr 2002 22:02:09 -0000 1.9 *************** *** 17,20 **** --- 17,21 ---- lib/HTTP/WebTest/Plugin.pm lib/HTTP/WebTest/Plugin/Apache.pm + lib/HTTP/WebTest/Plugin/Click.pm lib/HTTP/WebTest/Plugin/ContentSizeTest.pm lib/HTTP/WebTest/Plugin/Cookies.pm *************** *** 44,47 **** --- 45,49 ---- t/08-plugins.t t/09-hooks.t + t/10-click.t t/HTTP/WebTest/Plugin/Counter.pm t/HelloWorld.pm *************** *** 77,80 **** --- 79,89 ---- t/test.out/borked7.err t/test.out/borked8.err + t/test.out/click_button1 + t/test.out/click_button2 + t/test.out/click_button3 + t/test.out/click_button4 + t/test.out/click_link1 + t/test.out/click_link2 + t/test.out/click_link3 t/test.out/cookie1 t/test.out/cookie2 *************** *** 116,119 **** --- 125,130 ---- t/test2.html.in t/test2.txt + t/test3.html t/test3.txt + t/test4.html t/utils.pl |
From: Ilya M. <m_...@us...> - 2002-04-28 21:16:39
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv31431/t/test.out Modified Files: click_link2 Log Message: Minor test fixes Index: click_link2 =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/click_link2,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** click_link2 24 Mar 2002 11:01:04 -0000 1.1 --- click_link2 27 Apr 2002 20:20:37 -0000 1.2 *************** *** 1 **** ! HTTP::WebTest: request uri is not set at lib/HTTP/WebTest/API.pm line NN. --- 1 ---- ! HTTP::WebTest: request uri is not set at path-to-API.pm line NN. |
From: Ilya M. <m_...@us...> - 2002-04-28 21:16:37
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv31431/t Modified Files: 10-click.t Log Message: Minor test fixes Index: 10-click.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/10-click.t,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** 10-click.t 24 Mar 2002 11:00:27 -0000 1.2 --- 10-click.t 27 Apr 2002 20:20:37 -0000 1.3 *************** *** 16,20 **** use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 1 } # init tests --- 16,20 ---- use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 2 } # init tests *************** *** 105,109 **** my $text = $@; my $out_filter = sub { ! $_[0] =~ s/line \d+/line NN/; }; canonical_output(output_ref => \$text, --- 105,109 ---- my $text = $@; my $out_filter = sub { ! $_[0] =~ s/at .*?API.pm line \d+/at path-to-API.pm line NN/; }; canonical_output(output_ref => \$text, |
From: Ilya M. <m_...@us...> - 2002-04-28 20:41:43
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv2633/t/test.out Added Files: click_link3 Log Message: Added tests for missing link --- NEW FILE: click_link3 --- HTTP::WebTest: request uri is not set at path-to-API.pm line NN. |
From: Ilya M. <m_...@us...> - 2002-04-28 20:20:05
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv21683/t Modified Files: 10-click.t Added Files: test4.html Log Message: Updated test --- NEW FILE: test4.html --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Test File 4</title> </head> <body> <form action="/show-request"> <input type="submit" name="Button"> </form> </body> </html> Index: 10-click.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/10-click.t,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** 10-click.t 27 Apr 2002 21:17:20 -0000 1.5 --- 10-click.t 27 Apr 2002 22:01:47 -0000 1.6 *************** *** 16,20 **** use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 6 } # init tests --- 16,20 ---- use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 7 } # init tests *************** *** 131,134 **** --- 131,164 ---- } + # 7: submit form and pass some parameters + { + my $tests = [ { url => abs_url($URL, '/test4.html'), + text_require => [ '<title>Test File 4</title>' ] }, + # click button to submit form to /test1.txt + { click_button => 'Button', + method => 'get', + params => [ param1 => 'value1' ], + text_require => [ 'Method: <GET>', + 'Query: <param1=value1>', + 'Content: <>' ], + }, + { url => abs_url($URL, '/test4.html'), + text_require => [ '<title>Test File 4</title>' ] }, + { click_button => 'Button', + method => 'post', + params => [ param1 => 'value1' ], + text_require => [ 'Method: <POST>', + 'Query: <>', + 'Content: <param1=value1>' ], + } + ]; + + check_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + opts => $OPTS, + check_file => 't/test.out/click_button4'); + } + # try to stop server even we have been crashed END { stop_webserver($PID) if defined $PID } *************** *** 147,150 **** --- 177,193 ---- } elsif($path =~ m|^/test\d+.\w+$|) { $connect->send_file_response('t' . $path); + } elsif($path eq '/show-request') { + my $content = ''; + $content .= 'Method: <' . $request->method . ">\n"; + $content .= 'Query: <' . ($request->url->query || '') . ">\n"; + $content .= 'Content: <' . $request->content . ">\n"; + + # create response object + my $response = new HTTP::Response(RC_OK); + $response->header(Content_Type => 'text/plain'); + $response->content($content); + + # send it to browser + $connect->send_response($response); } else { $connect->send_error(RC_NOT_FOUND); |
From: Ilya M. <m_...@us...> - 2002-04-28 20:10:32
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv21918/lib/HTTP/WebTest Modified Files: Cookbook.pod Log Message: Added docs about Click plugin Index: Cookbook.pod =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Cookbook.pod,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Cookbook.pod 16 Feb 2002 00:40:41 -0000 1.8 --- Cookbook.pod 27 Apr 2002 22:02:51 -0000 1.9 *************** *** 58,62 **** =head2 Check Login Form ! This wtscripts tests login form on http://fsck.com/rt2/: test_name = Login page --- 58,62 ---- =head2 Check Login Form ! This wtscript tests login form on http://fsck.com/rt2/: test_name = Login page *************** *** 82,85 **** --- 82,131 ---- end_test + =head2 Using link and button names instead of URLs in tests + + This wtscript tests couple of static pages on my website. It is + similar to example in section L<Check Static Website> but it uses test + parameter C<click_link> to specify link to be followed on next test + request instead of hardcoded URI: + + # load HTTP::WebTest::Plugin::Click module which provides test + # parameter 'click_link' + plugins = ( ::Click ) + + test_name = First page + url = http://martynov.org/ + text_require = ( Ilya Martynov's Web Site ) + end_test + + test_name = Mail-CheckUser page + click_link = Mail-CheckUser + text_require = ( Mail-CheckUser + Download ) + regex_require = ( Mail-CheckUser-[\d\.]+\.tar\.gz ) + end_test + + This wtscript tests login form on http://fsck.com/rt2/. It is simular + to example in section L<Check Login Form> but avoids using hardcoded + URL for page where form is submitted to by using test parameter + C<click_button>: + + # load HTTP::WebTest::Plugin::Click module which provides test + # parameter 'click_button' + plugins = ( ::Click ) + + test_name = Login page + url = http://fsck.com/rt2/ + text_require = ( Login + Username: + Password:) + end_test + + test_name = Submit correct username & password + click_button = Login + params = ( user => guest + pass => guest ) + regex_require = ( Signed in as.*?guest.*?\. ) + end_test + =head1 ADVANCED *************** *** 101,109 **** It is possible to define new checks without writting new plugin ! module. Here fragment of wtscript file which checks if a new record have been inserted into a database as result of test request. # load HTTP::WebTest::Plugin::Hooks module which provides test ! # parameter on_response plugins = ( ::Hooks ) --- 147,155 ---- It is possible to define new checks without writting new plugin ! module. Here fragment of wtscript file which checks if a new record have been inserted into a database as result of test request. # load HTTP::WebTest::Plugin::Hooks module which provides test ! # parameter 'on_response' plugins = ( ::Hooks ) *************** *** 132,141 **** Sometimes it is needed to feed the results of a previous test into the ! next test. For example, C<Add Record> creates a database record, emits ! HTML containing the new record id, and C<Delete Record> deletes the ! database record using the record id generated in C<Add Record>. It is possible to use L<HTTP::WebTest|HTTP::WebTest> to write such ! tests. Here incomplete example of wtscript which implements it. # load HTTP::WebTest::Plugin::Hooks module which provides test --- 178,187 ---- Sometimes it is needed to feed the results of a previous test into the ! next test. For example, C<Add Record> creates a database record, ! emits HTML containing the new record id, and C<Delete Record> deletes ! the database record using the record id generated in C<Add Record>. It is possible to use L<HTTP::WebTest|HTTP::WebTest> to write such ! tests. Here incomplete example of wtscript which implements it. # load HTTP::WebTest::Plugin::Hooks module which provides test |
From: Ilya M. <m_...@us...> - 2002-04-28 19:45:39
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv2633/t Modified Files: 10-click.t Log Message: Added tests for missing link Index: 10-click.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/10-click.t,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** 10-click.t 27 Apr 2002 20:20:37 -0000 1.3 --- 10-click.t 27 Apr 2002 20:37:48 -0000 1.4 *************** *** 16,20 **** use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 2 } # init tests --- 16,20 ---- use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 3 } # init tests *************** *** 61,64 **** --- 61,82 ---- opts => $OPTS, check_file => 't/test.out/click_link2'); + } + + # 3: test missing link + { + generate_testfile(file => 't/test2.html', server_url => $URL); + + my $tests = [ { url => abs_url($URL, '/test1.html'), + text_require => [ '<title>Test File 1</title>' ] }, + # missing link + { click_link => 'No such link', + text_require => [ '<title>Test File 1</title>' ] } + ]; + + catch_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + opts => $OPTS, + check_file => 't/test.out/click_link3'); } |
From: Ilya M. <m_...@us...> - 2002-04-28 19:45:34
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv11084/t Modified Files: test3.txt test2.html.in 10-click.t Added Files: test3.html Log Message: Added tests for click_button --- NEW FILE: test3.html --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Test File 3</title> </head> <body> <form action="/test1.txt"> <input type="submit" name="Button1"> <input name="NonButton"> </form> <form action="/test2.txt"> <input type="submit" value="Button2"> </form> </body> </html> Index: test3.txt =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test3.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** test3.txt 21 Feb 2002 01:43:35 -0000 1.1 --- test3.txt 27 Apr 2002 21:17:20 -0000 1.2 *************** *** 9,12 **** --- 9,16 ---- <a href="test2.html">Test 2</a> + <form action="/test1.txt"> + <input type="submit" name="Button1"> + </form> + </body> </html> Index: test2.html.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test2.html.in,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** test2.html.in 21 Feb 2002 01:43:35 -0000 1.1 --- test2.html.in 27 Apr 2002 21:17:20 -0000 1.2 *************** *** 6,12 **** </head> - <a href="alttest1.txt">Text File</a> - <body> </body> </html> --- 6,11 ---- </head> <body> + <a href="alttest1.txt">Text File</a> </body> </html> Index: 10-click.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/10-click.t,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** 10-click.t 27 Apr 2002 20:37:48 -0000 1.4 --- 10-click.t 27 Apr 2002 21:17:20 -0000 1.5 *************** *** 16,20 **** use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 3 } # init tests --- 16,20 ---- use vars qw($HOSTNAME $PORT $URL $TEST); ! BEGIN { plan tests => 6 } # init tests *************** *** 65,70 **** # 3: test missing link { - generate_testfile(file => 't/test2.html', server_url => $URL); - my $tests = [ { url => abs_url($URL, '/test1.html'), text_require => [ '<title>Test File 1</title>' ] }, --- 65,68 ---- *************** *** 81,84 **** --- 79,134 ---- } + # 4: test clicking submit buttons in forms + { + my $tests = [ { url => abs_url($URL, '/test3.html'), + text_require => [ '<title>Test File 3</title>' ] }, + # click button to submit form to /test1.txt + { click_button => 'Button1', + text_require => [ 'abcde' ] }, + { url => abs_url($URL, '/test3.html'), + text_require => [ '<title>Test File 3</title>' ] }, + # click another button to submit form to /test2.txt + { click_button => 'Button2', + text_require => [ 'begin 644' ] } + ]; + + check_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + opts => $OPTS, + check_file => 't/test.out/click_button1'); + } + + # 5: clicking submit buttons in non HTML pages should not work + { + my $tests = [ { url => abs_url($URL, '/test3.txt'), + text_require => [ '<a href="test2.html">Test 2</a>' ] }, + { click_button => 'Button1', + text_forbid => [ 'abcde' ] }, + ]; + + catch_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + opts => $OPTS, + check_file => 't/test.out/click_button2'); + } + + # 6: clicking non-existing button + { + my $tests = [ { url => abs_url($URL, '/test3.html'), + text_require => [ '<title>Test File 3</title>' ] }, + # try to specify non-submit input control + { click_button => 'NonButton', + text_require => [ 'abcde' ] }, + ]; + + catch_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + opts => $OPTS, + check_file => 't/test.out/click_button3'); + } + # try to stop server even we have been crashed END { stop_webserver($PID) if defined $PID } *************** *** 95,104 **** if($path =~ m(/test1.txt|/dir/alttest1.txt)) { $connect->send_file_response('t/test1.txt'); ! } elsif($path eq '/test3.txt') { ! $connect->send_file_response('t/test3.txt'); ! } elsif($path eq '/test1.html' ) { ! $connect->send_file_response('t/test1.html'); ! } elsif($path eq '/test2.html' ) { ! $connect->send_file_response('t/test2.html'); } else { $connect->send_error(RC_NOT_FOUND); --- 145,150 ---- if($path =~ m(/test1.txt|/dir/alttest1.txt)) { $connect->send_file_response('t/test1.txt'); ! } elsif($path =~ m|^/test\d+.\w+$|) { ! $connect->send_file_response('t' . $path); } else { $connect->send_error(RC_NOT_FOUND); |
From: Ilya M. <m_...@us...> - 2002-04-28 19:44:57
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv21683/t/test.out Added Files: click_button4 Log Message: Updated test --- NEW FILE: click_button4 --- Failed Succeeded Test Name 0 2 *** no name *** 0 4 *** no name *** 0 2 *** no name *** 0 4 *** no name *** URL: http://http.web.test/test4.html STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT <title>Test File 4</title> SUCCEED URL: http://http.web.test/show-request?param1=value1 STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT Method: <GET> SUCCEED Query: <param1=value1> SUCCEED Content: <> SUCCEED URL: http://http.web.test/test4.html STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT <title>Test File 4</title> SUCCEED URL: http://http.web.test/show-request STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT Method: <POST> SUCCEED Query: <> SUCCEED Content: <param1=value1> SUCCEED Total web tests failed: 0 succeeded: 12 |
From: Ilya M. <m_...@us...> - 2002-04-28 19:39:20
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv11084/t/test.out Added Files: click_button3 click_button2 click_button1 Log Message: Added tests for click_button --- NEW FILE: click_button3 --- HTTP::WebTest: request uri is not set at path-to-API.pm line NN. --- NEW FILE: click_button2 --- HTTP::WebTest: request uri is not set at path-to-API.pm line NN. --- NEW FILE: click_button1 --- Failed Succeeded Test Name 0 2 *** no name *** 0 2 *** no name *** 0 2 *** no name *** 0 2 *** no name *** URL: http://http.web.test/test3.html STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT <title>Test File 3</title> SUCCEED URL: http://http.web.test/test1.txt STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT abcde SUCCEED URL: http://http.web.test/test3.html STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT <title>Test File 3</title> SUCCEED URL: http://http.web.test/test2.txt STATUS CODE CHECK 200 OK SUCCEED REQUIRED TEXT begin 644 SUCCEED Total web tests failed: 0 succeeded: 8 |
From: Ilya M. <m_...@us...> - 2002-04-28 19:39:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv21610/lib/HTTP/WebTest/Plugin Modified Files: Click.pm Log Message: Fix bug with params being not sent when 'click_button' is used Index: Click.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Click.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Click.pm 27 Apr 2002 21:17:50 -0000 1.3 --- Click.pm 27 Apr 2002 22:01:26 -0000 1.4 *************** *** 66,70 **** pattern => $click_link); ! $request->uri($link) if defined $link; } elsif(defined $click_button) { # find action which corresponds to requested submit button --- 66,71 ---- pattern => $click_link); ! $self->new_request_uri(request => $request, uri => $link) ! if defined $link; } elsif(defined $click_button) { # find action which corresponds to requested submit button *************** *** 72,76 **** pattern => $click_button); ! $request->uri($action) if defined $action; } } --- 73,100 ---- pattern => $click_button); ! $self->new_request_uri(request => $request, uri => $action) ! if defined $action; ! } ! } ! ! # sets new request URI preserving query parameters if necessary ! sub new_request_uri { ! my $self = shift; ! my %param = @_; ! ! my $request = $param{request}; ! my $uri = $param{uri}; ! ! my $old_query = undef; ! if($request->method eq 'GET') { ! $old_query = $request->uri->query; ! } ! # set request uri ! $request->uri($uri); ! # restore query parameters ! if(defined $old_query) { ! my $new_query = $request->uri->query; ! $new_query = defined $new_query ? "$new_query&$old_query" : $old_query; ! $request->uri->query($new_query); } } |
From: Ilya M. <m_...@us...> - 2002-04-28 19:38:49
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv22096 Modified Files: TODO Log Message: *** empty log message *** Index: TODO =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/TODO,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** TODO 17 Feb 2002 10:48:51 -0000 1.9 --- TODO 27 Apr 2002 22:03:43 -0000 1.10 *************** *** 3,6 **** --- 3,8 ---- My current TODO: + * add docs to Click plugin + * test broken tests diagnostics *************** *** 22,27 **** * plugin for page validation with HTML::Validator - - * simple navigation using link names and button names (with HTML::Form ?) * Generator of both Perl and wtscript code from test objects --- 24,27 ---- |
From: Ilya M. <m_...@us...> - 2002-04-08 21:52:02
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv10650 Modified Files: README Makefile.PL Log Message: Really update Richard's email address Index: README =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/README,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** README 8 Apr 2002 06:30:27 -0000 1.3 --- README 8 Apr 2002 21:51:58 -0000 1.4 *************** *** 98,103 **** AUTHORS ! Richard Anderson <Ric...@ri...> have wrote ! "HTTP::WebTest 1.xx". Ilya Martynov <il...@ma...> made rewrite of "HTTP::WebTest". New --- 98,103 ---- AUTHORS ! Richard Anderson <ri...@ri...> have wrote "HTTP::WebTest ! 1.xx". Ilya Martynov <il...@ma...> made rewrite of "HTTP::WebTest". New Index: Makefile.PL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Makefile.PL,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Makefile.PL 8 Apr 2002 06:30:27 -0000 1.4 --- Makefile.PL 8 Apr 2002 21:51:58 -0000 1.5 *************** *** 16,20 **** my $REALCLEAN = '.config'; # list of authors ! my $AUTHOR = 'Richard Anderson <Ric...@ri...>, ' . 'Ilya Martynov <il...@ma...>'; --- 16,20 ---- my $REALCLEAN = '.config'; # list of authors ! my $AUTHOR = 'Richard Anderson <ri...@ri...>, ' . 'Ilya Martynov <il...@ma...>'; |
From: Ilya M. <m_...@us...> - 2002-04-08 21:52:01
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory usw-pr-cvs1:/tmp/cvs-serv10650/lib/HTTP Modified Files: WebTest.pm.in WebTest.pm Log Message: Really update Richard's email address Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** WebTest.pm.in 8 Apr 2002 07:35:39 -0000 1.8 --- WebTest.pm.in 8 Apr 2002 21:51:57 -0000 1.9 *************** *** 538,542 **** =head1 AUTHORS ! Richard Anderson <Ric...@ri...> have wrote C<HTTP::WebTest 1.xx>. --- 538,542 ---- =head1 AUTHORS ! Richard Anderson <ri...@ri...> have wrote C<HTTP::WebTest 1.xx>. Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** WebTest.pm 8 Apr 2002 07:35:40 -0000 1.10 --- WebTest.pm 8 Apr 2002 21:51:57 -0000 1.11 *************** *** 1258,1262 **** =head1 AUTHORS ! Richard Anderson <Ric...@ri...> have wrote C<HTTP::WebTest 1.xx>. --- 1258,1262 ---- =head1 AUTHORS ! Richard Anderson <ri...@ri...> have wrote C<HTTP::WebTest 1.xx>. |
From: Ilya M. <m_...@us...> - 2002-04-08 17:21:33
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv6029 Modified Files: README Makefile.PL Log Message: Update Richard Anderson's email address Index: README =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/README,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** README 24 Jan 2002 14:52:40 -0000 1.2 --- README 8 Apr 2002 06:30:27 -0000 1.3 *************** *** 98,102 **** AUTHORS ! Richard Anderson <Ric...@un...> have wrote "HTTP::WebTest 1.xx". --- 98,102 ---- AUTHORS ! Richard Anderson <Ric...@ri...> have wrote "HTTP::WebTest 1.xx". Index: Makefile.PL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Makefile.PL,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Makefile.PL 17 Feb 2002 14:19:25 -0000 1.3 --- Makefile.PL 8 Apr 2002 06:30:27 -0000 1.4 *************** *** 16,20 **** my $REALCLEAN = '.config'; # list of authors ! my $AUTHOR = 'Richard Anderson <Ric...@un...>, ' . 'Ilya Martynov <il...@ma...>'; --- 16,20 ---- my $REALCLEAN = '.config'; # list of authors ! my $AUTHOR = 'Richard Anderson <Ric...@ri...>, ' . 'Ilya Martynov <il...@ma...>'; |
From: Ilya M. <m_...@us...> - 2002-04-08 17:06:34
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv10851/lib/HTTP/WebTest/Plugin Modified Files: HarnessReport.pm Log Message: Fixed bug with reporting 'ok' for failed tests Index: HarnessReport.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/HarnessReport.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HarnessReport.pm 15 Feb 2002 13:12:55 -0000 1.3 --- HarnessReport.pm 8 Apr 2002 06:50:26 -0000 1.4 *************** *** 79,83 **** my $comment = $subresult->comment; my $ok = $subresult->ok ? 'SUCCEED' : 'FAIL'; ! $all_ok &&= $ok; $self->print("# $comment: $ok\n"); --- 79,83 ---- my $comment = $subresult->comment; my $ok = $subresult->ok ? 'SUCCEED' : 'FAIL'; ! $all_ok &&= $subresult->ok; $self->print("# $comment: $ok\n"); |
From: Ilya M. <m_...@us...> - 2002-04-08 16:45:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv15100 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Changes 8 Apr 2002 06:52:59 -0000 1.19 --- Changes 8 Apr 2002 07:05:23 -0000 1.20 *************** *** 18,21 **** --- 18,24 ---- for patch. + * Updated email address of Richard Anderson mentioned in POD docs and + in Makefile.PL. + 1.99_04 Sun Feb 17 2002 |
From: Ilya M. <m_...@us...> - 2002-04-08 16:43:34
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv15366 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Changes 8 Apr 2002 07:05:23 -0000 1.20 --- Changes 8 Apr 2002 07:06:33 -0000 1.21 *************** *** 18,23 **** for patch. ! * Updated email address of Richard Anderson mentioned in POD docs and ! in Makefile.PL. 1.99_04 Sun Feb 17 2002 --- 18,23 ---- for patch. ! * Updated email address of Richard Anderson in POD docs and in ! Makefile.PL. 1.99_04 Sun Feb 17 2002 |
From: Ilya M. <m_...@us...> - 2002-04-08 16:39:42
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv11587 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Changes 25 Mar 2002 19:52:29 -0000 1.18 --- Changes 8 Apr 2002 06:52:59 -0000 1.19 *************** *** 14,17 **** --- 14,21 ---- parameter 'mail_addresses'. Thanks to Duncan Cameron for patch. + * Fixed bug in HTTP::WebTest::Plugin::HarnessReport. This report + plugin printed 'ok' even for failed tests. Thanks to Martin Langhoff + for patch. + 1.99_04 Sun Feb 17 2002 |
From: Ilya M. <m_...@us...> - 2002-04-08 16:39:19
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory usw-pr-cvs1:/tmp/cvs-serv6029/lib/HTTP Modified Files: WebTest.pm.in WebTest.pm Log Message: Update Richard Anderson's email address Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** WebTest.pm.in 22 Mar 2002 07:43:15 -0000 1.6 --- WebTest.pm.in 8 Apr 2002 06:30:27 -0000 1.7 *************** *** 538,542 **** =head1 AUTHORS ! Richard Anderson <Ric...@un...> have wrote C<HTTP::WebTest 1.xx>. --- 538,542 ---- =head1 AUTHORS ! Richard Anderson <Ric...@ri...> have wrote C<HTTP::WebTest 1.xx>. Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** WebTest.pm 7 Apr 2002 16:02:27 -0000 1.8 --- WebTest.pm 8 Apr 2002 06:30:27 -0000 1.9 *************** *** 4,7 **** --- 4,8 ---- # lib/HTTP/WebTest.pm.in # lib/HTTP/WebTest/Plugin/Apache.pm + # lib/HTTP/WebTest/Plugin/Click.pm # lib/HTTP/WebTest/Plugin/ContentSizeTest.pm # lib/HTTP/WebTest/Plugin/Cookies.pm *************** *** 605,608 **** --- 606,614 ---- for web page access authorization. + =head2 click_button + + =head2 click_link + + =head2 cookie *************** *** 1252,1256 **** =head1 AUTHORS ! Richard Anderson <Ric...@un...> have wrote C<HTTP::WebTest 1.xx>. --- 1258,1262 ---- =head1 AUTHORS ! Richard Anderson <Ric...@ri...> have wrote C<HTTP::WebTest 1.xx>. |
From: Ilya M. <m_...@us...> - 2002-04-08 16:38:32
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv23299 Modified Files: Changes Log Message: Prepare for release Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Changes 8 Apr 2002 07:06:33 -0000 1.21 --- Changes 8 Apr 2002 07:36:48 -0000 1.22 *************** *** 7,11 **** Revision history for Perl module HTTP::WebTest. ! Current Version BUG FIXES: --- 7,11 ---- Revision history for Perl module HTTP::WebTest. ! 1.99_05 Mon Apr 8 2002 BUG FIXES: |