http-webtest-commits Mailing List for HTTP-WebTest (Page 3)
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...> - 2003-09-05 19:51:02
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv19880 Modified Files: WebTest.pm.in Log Message: Bump version Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** WebTest.pm.in 26 Apr 2003 15:14:49 -0000 1.33 --- WebTest.pm.in 5 Sep 2003 19:50:58 -0000 1.34 *************** *** 5,9 **** package HTTP::WebTest; ! $VERSION = '2.03'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API --- 5,9 ---- package HTTP::WebTest; ! $VERSION = '2.04'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API |
From: Ilya M. <m_...@us...> - 2003-09-05 19:35:52
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv17833 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.81 retrieving revision 1.82 diff -C2 -d -r1.81 -r1.82 *** Changes 14 Jul 2003 19:20:43 -0000 1.81 --- Changes 5 Sep 2003 19:35:49 -0000 1.82 *************** *** 3,6 **** --- 3,14 ---- Revision history for Perl module HTTP::WebTest. + UNRELEASED VERSION + + BUG FIXES: + + * ReportPlugin.pm had a bug that it sended out email report even if + mail parameter was set to "errors" and all tests passed. Thanks to + Naoki Shima for a patch. + 2.03 Mon Jul 14 2003 |
From: Ilya M. <m_...@us...> - 2003-09-05 19:33:44
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory sc8-pr-cvs1:/tmp/cvs-serv17392 Modified Files: 05a-email-report.t Log Message: Fix a bug in tests for email reports with mail option set to errors Index: 05a-email-report.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05a-email-report.t,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 05a-email-report.t 26 Apr 2003 15:11:06 -0000 1.1 --- 05a-email-report.t 5 Sep 2003 19:33:40 -0000 1.2 *************** *** 47,51 **** $GLOBAL_PARAMS{mail} = 'errors'; ! $WEBTEST->set_series(have_succeed => 0, 1); ok(!$REPORT_PLUGIN->_email_report_is_expected(), "'mail' param is 'errors' - only send email report if failed tests"); --- 47,51 ---- $GLOBAL_PARAMS{mail} = 'errors'; ! $WEBTEST->set_series(have_succeed => 1, 0); ok(!$REPORT_PLUGIN->_email_report_is_expected(), "'mail' param is 'errors' - only send email report if failed tests"); |
From: Ilya M. <m_...@us...> - 2003-09-05 19:32:30
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv17224 Modified Files: ReportPlugin.pm Log Message: ReportPlugin.pm has a bug that it sends out email report even if mail parameter is set to "errors" and all test passes. Index: ReportPlugin.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/ReportPlugin.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** ReportPlugin.pm 26 Apr 2003 15:13:26 -0000 1.9 --- ReportPlugin.pm 5 Sep 2003 19:32:18 -0000 1.10 *************** *** 277,281 **** return unless defined $mail; return unless $mail eq 'all' or $mail eq 'errors'; ! return if $mail eq 'errors' and !$self->webtest->have_succeed; return 1; --- 277,281 ---- return unless defined $mail; return unless $mail eq 'all' or $mail eq 'errors'; ! return if $mail eq 'errors' and $self->webtest->have_succeed; return 1; |
From: Ilya M. <m_...@us...> - 2003-07-14 19:20:48
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv12480 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.80 retrieving revision 1.81 diff -C2 -d -r1.80 -r1.81 *** Changes 14 Jul 2003 08:28:07 -0000 1.80 --- Changes 14 Jul 2003 19:20:43 -0000 1.81 *************** *** 3,7 **** Revision history for Perl module HTTP::WebTest. ! UNRELEASED VERSION ENHANCEMENTS: --- 3,7 ---- Revision history for Perl module HTTP::WebTest. ! 2.03 Mon Jul 14 2003 ENHANCEMENTS: |
From: Ilya M. <m_...@us...> - 2003-07-14 08:28:13
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv15485 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.79 retrieving revision 1.80 diff -C2 -d -r1.79 -r1.80 *** Changes 26 Apr 2003 15:14:25 -0000 1.79 --- Changes 14 Jul 2003 08:28:07 -0000 1.80 *************** *** 11,14 **** --- 11,23 ---- test report emails. Based on patch by Amit Kaul. + BUG FIXES: + + * HTTP::WebTest used to mangle test URLs like + 'http://website.com?http://website2.com?var=val' by URL escaping + everything after the first question mark. Now it does modify test URL + unless it is doing GET request and test parameter 'params' is + specified in a test specification. Thanks to Brian Webb for a + bugreport. + 2.02 Mon Mar 24 2003 |
From: Ilya M. <m_...@us...> - 2003-07-14 08:21:55
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv14213 Modified Files: MANIFEST Log Message: Updated Index: MANIFEST =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** MANIFEST 3 Jul 2003 11:10:05 -0000 1.32 --- MANIFEST 14 Jul 2003 08:21:52 -0000 1.33 *************** *** 127,130 **** --- 127,131 ---- t/test.out/time t/test.out/timeout + t/test.out/url t/test.out/user_agent t/test.out/write_params |
From: Ilya M. <m_...@us...> - 2003-07-14 08:21:22
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory sc8-pr-cvs1:/tmp/cvs-serv14032/t Modified Files: 12-request.t 02-generic.t Log Message: Do not parse request uri unless we are given 'params' parameter Index: 12-request.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/12-request.t,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** 12-request.t 26 Apr 2003 15:12:14 -0000 1.5 --- 12-request.t 14 Jul 2003 08:21:07 -0000 1.6 *************** *** 23,28 **** for my $uri (qw(http://test1 http://a.a.a http://www.a.b)) { $REQUEST->base_uri($uri); ! ok($REQUEST->base_uri eq $uri); ! ok($REQUEST->uri eq $uri); } } --- 23,28 ---- for my $uri (qw(http://test1 http://a.a.a http://www.a.b)) { $REQUEST->base_uri($uri); ! is($REQUEST->base_uri, $uri); ! is($REQUEST->uri, $uri); } } *************** *** 33,37 **** my $uri = $REQUEST->uri; ok($uri->isa('URI')); ! ok($uri->host eq 'test2'); } --- 33,37 ---- my $uri = $REQUEST->uri; ok($uri->isa('URI')); ! is($uri->host, 'test2'); } *************** *** 41,45 **** my $uri = $REQUEST->url; ok($uri->isa('URI')); ! ok($uri->host eq 'test3'); } --- 41,45 ---- my $uri = $REQUEST->url; ok($uri->isa('URI')); ! is($uri->host, 'test3'); } *************** *** 47,57 **** { # default value ! ok(join(' ', @{$REQUEST->params}) eq ''); $REQUEST->params([a => 'b']); ! ok(join(' ', @{$REQUEST->params}) eq 'a b'); $REQUEST->params([d => 'xy', 1 => 2]); ! ok(join(' ', @{$REQUEST->params}) eq 'd xy 1 2'); } --- 47,57 ---- { # default value ! is(join(' ', @{$REQUEST->params}), ''); $REQUEST->params([a => 'b']); ! is(join(' ', @{$REQUEST->params}), 'a b'); $REQUEST->params([d => 'xy', 1 => 2]); ! is(join(' ', @{$REQUEST->params}), 'd xy 1 2'); } *************** *** 60,68 **** $REQUEST->base_uri('http://a'); $REQUEST->uri('http://b'); ! ok($REQUEST->uri eq 'http://b'); $REQUEST->uri('http://c?x=y'); ! ok($REQUEST->uri eq 'http://c'); ! ok(join(' ', @{$REQUEST->params}) eq 'x y'); } --- 60,68 ---- $REQUEST->base_uri('http://a'); $REQUEST->uri('http://b'); ! is($REQUEST->uri, 'http://b'); $REQUEST->uri('http://c?x=y'); ! is($REQUEST->uri, 'http://c?x=y'); ! is(join(' ', @{$REQUEST->params}), ''); } *************** *** 72,77 **** $REQUEST->base_uri('http://a'); $REQUEST->method('GET'); ! ok($REQUEST->uri eq 'http://a?a=b'); ! ok(${$REQUEST->content_ref} eq ''); } --- 72,77 ---- $REQUEST->base_uri('http://a'); $REQUEST->method('GET'); ! is($REQUEST->uri, 'http://a?a=b'); ! is(${$REQUEST->content_ref}, ''); } *************** *** 81,86 **** $REQUEST->base_uri('http://a'); $REQUEST->method('POST'); ! ok($REQUEST->uri eq 'http://a'); ! ok(${$REQUEST->content_ref} eq 'a=b'); } --- 81,86 ---- $REQUEST->base_uri('http://a'); $REQUEST->method('POST'); ! is($REQUEST->uri, 'http://a'); ! is(${$REQUEST->content_ref}, 'a=b'); } *************** *** 91,95 **** $REQUEST->base_uri('http://a'); $REQUEST->method('POST'); ! ok($REQUEST->uri eq 'http://a'); ok(${$REQUEST->content_ref} =~ 'Content-Disposition: form-data; name="a".*; filename="12-request.t'); } --- 91,95 ---- $REQUEST->base_uri('http://a'); $REQUEST->method('POST'); ! is($REQUEST->uri, 'http://a'); ok(${$REQUEST->content_ref} =~ 'Content-Disposition: form-data; name="a".*; filename="12-request.t'); } Index: 02-generic.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** 02-generic.t 3 Jul 2003 11:10:05 -0000 1.27 --- 02-generic.t 14 Jul 2003 08:21:08 -0000 1.28 *************** *** 14,18 **** use HTTP::WebTest::Utils qw(start_webserver stop_webserver); ! use Test::More tests => 36; # init tests --- 14,18 ---- use HTTP::WebTest::Utils qw(start_webserver stop_webserver); ! use Test::More tests => 37; # init tests *************** *** 684,687 **** --- 684,699 ---- check_file => 't/test.out/cookies-in-redirect'); } + + # 37: test if we don't mangle urls like + # http://website.com?http://website2.com?var=val + { + my $tests = [ { url => abs_url($URL, '/test?test') } ]; + + check_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + check_file => 't/test.out/url'); + } + # try to stop server even we have been crashed |
From: Ilya M. <m_...@us...> - 2003-07-14 08:21:22
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv14032/lib/HTTP/WebTest Modified Files: Request.pm Log Message: Do not parse request uri unless we are given 'params' parameter Index: Request.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Request.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Request.pm 2 Mar 2003 11:52:10 -0000 1.5 --- Request.pm 14 Jul 2003 08:21:08 -0000 1.6 *************** *** 97,111 **** $self->base_uri(@_); my $new_uri = $self->base_uri; ! if(defined $new_uri) { ! my @params = $new_uri->query_form; ! $new_uri->query(undef); ! $self->params(\@params); ! } } my $uri = $self->base_uri; ! $uri->query_form(@{$self->params}) ! if defined($self->method) and $self->method eq 'GET'; return $uri; --- 97,108 ---- $self->base_uri(@_); my $new_uri = $self->base_uri; ! $self->params([]); } my $uri = $self->base_uri; ! if(@{$self->params} and $self->method and $self->method eq 'GET') { ! $uri->query_form(@{$self->params}); ! } return $uri; |
From: Ilya M. <m_...@us...> - 2003-07-14 08:21:20
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory sc8-pr-cvs1:/tmp/cvs-serv14032/t/test.out Added Files: url Log Message: Do not parse request uri unless we are given 'params' parameter --- NEW FILE: url --- Failed Succeeded Test Name 1 0 *** no name *** Test Name: N/A URL: http://http.web.test/test?test STATUS CODE CHECK Expected '200' and got: 404 Not Found FAIL Total web tests failed: 1 succeeded: 0 |
From: Ilya M. <m_...@us...> - 2003-07-03 15:54:06
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv29783 Modified Files: Cookies.pm Log Message: Minor style fixes Index: Cookies.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Cookies.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Cookies.pm 2 Mar 2003 11:52:10 -0000 1.5 --- Cookies.pm 3 Jul 2003 15:54:00 -0000 1.6 *************** *** 71,75 **** sub extract_cookies { my $self = shift; ! if($self->accept_cookies) { $self->SUPER::extract_cookies(@_); } } --- 71,75 ---- sub extract_cookies { my $self = shift; ! $self->SUPER::extract_cookies(@_) if $self->accept_cookies; } *************** *** 83,87 **** sub add_cookie_header { my $self = shift; ! if($self->send_cookies) { $self->SUPER::add_cookie_header(@_); } } --- 83,87 ---- sub add_cookie_header { my $self = shift; ! $self->SUPER::add_cookie_header(@_) if $self->send_cookies; } |
From: Ilya M. <m_...@us...> - 2003-07-03 11:22:04
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv20327 Modified Files: SelfTest.pm Log Message: Use 127.0.0.1 as default hostname for test server Index: SelfTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/SelfTest.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** SelfTest.pm 2 Mar 2003 11:52:10 -0000 1.7 --- SelfTest.pm 3 Jul 2003 11:22:01 -0000 1.8 *************** *** 42,46 **** use Algorithm::Diff qw(diff); use MIME::Base64; - use Sys::Hostname; use URI; --- 42,45 ---- *************** *** 53,57 **** =cut ! $HOSTNAME = $ENV{TEST_HOSTNAME} || hostname; =head2 $PORT --- 52,56 ---- =cut ! $HOSTNAME = $ENV{TEST_HOSTNAME} || '127.0.0.1'; =head2 $PORT |
From: Ilya M. <m_...@us...> - 2003-07-03 11:10:12
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory sc8-pr-cvs1:/tmp/cvs-serv17408/t Modified Files: 02-generic.t Log Message: Test if cookies are being sent in redirects Index: 02-generic.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** 02-generic.t 3 Jan 2003 22:32:32 -0000 1.26 --- 02-generic.t 3 Jul 2003 11:10:05 -0000 1.27 *************** *** 14,18 **** use HTTP::WebTest::Utils qw(start_webserver stop_webserver); ! use Test::More tests => 35; # init tests --- 14,18 ---- use HTTP::WebTest::Utils qw(start_webserver stop_webserver); ! use Test::More tests => 36; # init tests *************** *** 660,663 **** --- 660,688 ---- } + # 36: test if cookies are being sent in redirects + SKIP: { + my $skip = $HOSTNAME !~ /\..*\./ ? + 'cannot test cookies - hostname does not contain two dots' : + undef; + skip $skip, 1 if $skip; + + # make sure previous tests do not cause side effects on this test + $WEBTEST->user_agent->cookie_jar->clear; + + my $tests = [ { url => abs_url($URL, '/redirect'), + cookies => [ [ name => 'N001', + value => 'V001', + path => '/', + domain => $HOSTNAME ] ] }, + { url => abs_url($URL, '/redirect-show-cookies'), + text_require => [ '<N001>=<V001>' ] } + ]; + + check_webtest(webtest => $WEBTEST, + server_url => $URL, + tests => $tests, + check_file => 't/test.out/cookies-in-redirect'); + } + # try to stop server even we have been crashed END { stop_webserver($PID) if defined $PID } *************** *** 754,757 **** --- 779,787 ---- my $response = new HTTP::Response(RC_FOUND); $response->header(Location => '/test-file1'); + + $connect->send_response($response); + } elsif($path eq '/redirect-show-cookies') { + my $response = new HTTP::Response(RC_FOUND); + $response->header(Location => '/show-cookies'); $connect->send_response($response); |
From: Ilya M. <m_...@us...> - 2003-07-03 11:10:12
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory sc8-pr-cvs1:/tmp/cvs-serv17408/t/test.out Added Files: cookies-in-redirect Log Message: Test if cookies are being sent in redirects --- NEW FILE: cookies-in-redirect --- Failed Succeeded Test Name 0 1 *** no name *** 0 2 *** no name *** Test Name: N/A URL: http://http.web.test/redirect STATUS CODE CHECK Expected '200' and got: 200 OK SUCCEED Test Name: N/A URL: http://http.web.test/redirect-show-cookies STATUS CODE CHECK Expected '200' and got: 200 OK SUCCEED REQUIRED TEXT <N001>=<V001> SUCCEED Total web tests failed: 0 succeeded: 3 |
From: Ilya M. <m_...@us...> - 2003-07-03 11:10:12
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv17408 Modified Files: MANIFEST Log Message: Test if cookies are being sent in redirects Index: MANIFEST =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** MANIFEST 26 Apr 2003 15:18:34 -0000 1.31 --- MANIFEST 3 Jul 2003 11:10:05 -0000 1.32 *************** *** 86,89 **** --- 86,90 ---- t/test.out/cookie2a t/test.out/cookie3 + t/test.out/cookies-in-redirect t/test.out/default-report-yes t/test.out/delay |
From: Johannes la P. <joe...@us...> - 2003-05-16 08:11:50
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin In directory sc8-pr-cvs1:/tmp/cvs-serv20024/lib/HTTP/WebTest/Plugin Modified Files: DateTest.pm Log Message: Updated copyright year Index: DateTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin/DateTest.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** DateTest.pm 16 May 2003 08:01:03 -0000 1.7 --- DateTest.pm 16 May 2003 08:11:47 -0000 1.8 *************** *** 271,275 **** =head1 COPYRIGHT ! Copyright (c) 2002 Johannes la Poutre. All rights reserved. This module is free software. It may be used, redistributed and/or --- 271,275 ---- =head1 COPYRIGHT ! Copyright (c) 2002,2003 Johannes la Poutre. All rights reserved. This module is free software. It may be used, redistributed and/or |
From: Johannes la P. <joe...@us...> - 2003-05-16 08:01:08
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin In directory sc8-pr-cvs1:/tmp/cvs-serv16537/lib/HTTP/WebTest/Plugin Modified Files: DateTest.pm Log Message: Release 1.01 Index: DateTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin/DateTest.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** DateTest.pm 6 Mar 2003 17:42:24 -0000 1.6 --- DateTest.pm 16 May 2003 08:01:03 -0000 1.7 *************** *** 7,11 **** use vars qw($VERSION); ! $VERSION = '1.00'; =head1 NAME --- 7,11 ---- use vars qw($VERSION); ! $VERSION = '1.01'; =head1 NAME *************** *** 15,19 **** =head1 VERSION ! Version 1.00 - $Revision$ Compatible with L<HTTP::WebTest|HTTP::WebTest> 2.x API --- 15,19 ---- =head1 VERSION ! Version 1.01 - $Revision$ Compatible with L<HTTP::WebTest|HTTP::WebTest> 2.x API |
From: Johannes la P. <joe...@us...> - 2003-05-16 08:01:07
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest In directory sc8-pr-cvs1:/tmp/cvs-serv16537 Modified Files: Changes README Log Message: Release 1.01 Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/Changes,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Changes 6 Mar 2003 17:42:21 -0000 1.4 --- Changes 16 May 2003 08:01:02 -0000 1.5 *************** *** 1,6 **** Revision history for Perl extension DateTest. ! 1.01 - fix for "argument isn't numeric" warning 1.00 Tue Dec 31 13:57:47 CET 2002 --- 1,8 ---- Revision history for Perl extension DateTest. ! 1.01 Thu Mar 6 17:42:24 2003 UTC - fix for "argument isn't numeric" warning + solves error if a date couldn't be parsed + - release on CPAN Fri May 16 2003 1.00 Tue Dec 31 13:57:47 CET 2002 Index: README =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/README,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** README 6 Mar 2003 17:42:23 -0000 1.5 --- README 16 May 2003 08:01:02 -0000 1.6 *************** *** 1,3 **** ! DateTest version 1.00 ===================== --- 1,3 ---- ! DateTest version 1.01 ===================== *************** *** 52,56 **** COPYRIGHT AND LICENCE ! Copyright (C) 2002 Johannes la Poutre <ja...@la...> This program is free software; you can redistribute it and/or --- 52,56 ---- COPYRIGHT AND LICENCE ! Copyright (C) 2002,2003 Johannes la Poutre <ja...@la...> This program is free software; you can redistribute it and/or |
From: Ilya M. <m_...@us...> - 2003-04-26 15:18:39
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv10232 Modified Files: MANIFEST Log Message: Updated Index: MANIFEST =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** MANIFEST 25 Jan 2003 17:47:19 -0000 1.30 --- MANIFEST 26 Apr 2003 15:18:34 -0000 1.31 *************** *** 1,5 **** Changes INSTALL ! MANIFEST Makefile.PL README --- 1,5 ---- Changes INSTALL ! MANIFEST This list of files Makefile.PL README *************** *** 40,43 **** --- 40,44 ---- t/03-proxy.t t/05-report.t + t/05a-email-report.t t/06-parser.t t/07-compat.t |
From: Ilya M. <m_...@us...> - 2003-04-26 15:17:25
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv9700 Modified Files: Makefile.PL INSTALL Log Message: Test::MockObject is a require module now (for make test) Index: Makefile.PL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Makefile.PL,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Makefile.PL 22 Dec 2002 21:25:50 -0000 1.15 --- Makefile.PL 26 Apr 2003 15:17:20 -0000 1.16 *************** *** 23,28 **** 'Pod::Man' => 1.14, 'Time::HiRes' => 0, - 'Test::More' => 0, 'Test::Builder::Tester' => 0, 'URI' => 0 }, EXE_FILES => [ File::Spec->catfile(qw(bin wt)) ], --- 23,29 ---- 'Pod::Man' => 1.14, 'Time::HiRes' => 0, 'Test::Builder::Tester' => 0, + 'Test::MockObject' => 0.07, + 'Test::More' => 0, 'URI' => 0 }, EXE_FILES => [ File::Spec->catfile(qw(bin wt)) ], Index: INSTALL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/INSTALL,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** INSTALL 22 Dec 2002 21:25:50 -0000 1.11 --- INSTALL 26 Apr 2003 15:17:21 -0000 1.12 *************** *** 23,26 **** --- 23,27 ---- * Algorithm::Diff * Test::Builder::Tester + * Test::MockObject INSTALLATION |
From: Ilya M. <m_...@us...> - 2003-04-26 15:17:24
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv9700/lib/Bundle/HTTP Modified Files: WebTest.pm Log Message: Test::MockObject is a require module now (for make test) Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP/WebTest.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** WebTest.pm 2 Mar 2003 11:52:10 -0000 1.9 --- WebTest.pm 26 Apr 2003 15:17:20 -0000 1.10 *************** *** 3,7 **** # $Id$ ! $VERSION = '0.04'; =head1 NAME --- 3,7 ---- # $Id$ ! $VERSION = '0.05'; =head1 NAME *************** *** 37,43 **** Time::HiRes - Test::More - Test::Builder::Tester - only required to run C<make test> URI --- 37,45 ---- Time::HiRes Test::Builder::Tester - only required to run C<make test> + + Test::MockObject - only required to run C<make test> + + Test::More URI |
From: Ilya M. <m_...@us...> - 2003-04-26 15:16:15
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv9132/lib/HTTP Modified Files: WebTest.pm Log Message: Regenerated Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** WebTest.pm 24 Mar 2003 11:13:28 -0000 1.35 --- WebTest.pm 26 Apr 2003 15:16:04 -0000 1.36 *************** *** 26,30 **** package HTTP::WebTest; ! $VERSION = '2.02'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API --- 26,30 ---- package HTTP::WebTest; ! $VERSION = '2.03'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API *************** *** 959,962 **** --- 959,969 ---- C<mail_addresses> test parameter. + =head2 mail_addresses + + I<GLOBAL PARAMETER> + + A list of e-mail addresses where report will be send (if sending + report is enabled with C<mail> test parameter). + =over 4 *************** *** 979,988 **** =back ! =head2 mail_addresses I<GLOBAL PARAMETER> ! A list of e-mail addresses where report will be send (if sending ! report is enabled with C<mail> test parameter). =head2 mail_from --- 986,1019 ---- =back ! =head2 mail_failure_subject I<GLOBAL PARAMETER> ! Sets C<Subject> header for test report e-mails when some tests ! fail. In this string some character sequences have special meaning: ! ! =over 4 ! ! =item %f ! ! the number of failed tests ! ! =item %s ! ! the number of successful tests ! ! =item %t ! ! the total number of tests ! ! =item %% ! ! replaced with single C<%> ! ! =back ! ! =head3 Default Value ! ! C<WEB TESTS FAILED! FOUND %f ERROR(S)> =head2 mail_from *************** *** 1005,1008 **** --- 1036,1052 ---- C<localhost> + + =head2 mail_success_subject + + I<GLOBAL PARAMETER> + + Sets C<Subject> header for test report e-mails when all tests are + passed successfully. In this string some character sequences have + special meaning (see C<mail_failure_subject> parameter for their + description). + + =head3 Default Value + + C<Web tests succeeded> =head2 max_bytes |
From: Ilya M. <m_...@us...> - 2003-04-26 15:14:52
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv8682/lib/HTTP Modified Files: WebTest.pm.in Log Message: Bump version number Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** WebTest.pm.in 24 Mar 2003 11:12:06 -0000 1.32 --- WebTest.pm.in 26 Apr 2003 15:14:49 -0000 1.33 *************** *** 5,9 **** package HTTP::WebTest; ! $VERSION = '2.02'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API --- 5,9 ---- package HTTP::WebTest; ! $VERSION = '2.03'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API |
From: Ilya M. <m_...@us...> - 2003-04-26 15:14:28
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv8556 Modified Files: MANIFEST.SKIP Changes Log Message: Updated Index: MANIFEST.SKIP =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST.SKIP,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** MANIFEST.SKIP 15 Jun 2002 21:48:40 -0000 1.4 --- MANIFEST.SKIP 26 Apr 2003 15:14:25 -0000 1.5 *************** *** 9,12 **** --- 9,13 ---- ^pm_to_blib$ ^pod_merge$ + ^build-stamp$ \# \.cvsignore$ Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.78 retrieving revision 1.79 diff -C2 -d -r1.78 -r1.79 *** Changes 24 Mar 2003 20:18:27 -0000 1.78 --- Changes 26 Apr 2003 15:14:25 -0000 1.79 *************** *** 3,6 **** --- 3,14 ---- Revision history for Perl module HTTP::WebTest. + UNRELEASED VERSION + + ENHANCEMENTS: + + * New test parameters 'mail_success_subject' and + 'mail_failure_subject' to redefine default value of Subject field in + test report emails. Based on patch by Amit Kaul. + 2.02 Mon Mar 24 2003 |
From: Ilya M. <m_...@us...> - 2003-04-26 15:13:29
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv8199/lib/HTTP/WebTest Modified Files: ReportPlugin.pm Log Message: New test parameters 'mail_success_subject' and 'mail_failure_subject' to redefine default value of Subject field in test report emails. Based on patch by Amit Kaul. Index: ReportPlugin.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/ReportPlugin.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ReportPlugin.pm 1 Apr 2003 16:01:22 -0000 1.8 --- ReportPlugin.pm 26 Apr 2003 15:13:26 -0000 1.9 *************** *** 54,70 **** as arguments from a calling Perl script. ! =head2 mail_addresses I<GLOBAL PARAMETER> ! A list of e-mail addresses where report will be send (if sending ! report is enabled with C<mail> test parameter). ! =head2 mail I<GLOBAL PARAMETER> ! Option to e-mail output to one or more addresses specified by ! C<mail_addresses> test parameter. =over 4 --- 54,114 ---- as arguments from a calling Perl script. ! =head2 mail I<GLOBAL PARAMETER> ! Option to e-mail output to one or more addresses specified by ! C<mail_addresses> test parameter. ! =head2 mail_success_subject I<GLOBAL PARAMETER> ! Sets C<Subject> header for test report e-mails when all tests are ! passed successfully. In this string some character sequences have ! special meaning (see C<mail_failure_subject> parameter for their ! description). ! ! =head3 Default Value ! ! C<Web tests succeeded> ! ! =head2 mail_failure_subject ! ! I<GLOBAL PARAMETER> ! ! Sets C<Subject> header for test report e-mails when some tests ! fail. In this string some character sequences have special meaning: ! ! =over 4 ! ! =item %f ! ! the number of failed tests ! ! =item %s ! ! the number of successful tests ! ! =item %t ! ! the total number of tests ! ! =item %% ! ! replaced with single C<%> ! ! =back ! ! =head3 Default Value ! ! C<WEB TESTS FAILED! FOUND %f ERROR(S)> ! ! =head2 mail_addresses ! ! I<GLOBAL PARAMETER> ! ! A list of e-mail addresses where report will be send (if sending ! report is enabled with C<mail> test parameter). =over 4 *************** *** 112,122 **** # declare some supported test params sub param_types { ! return q(output_ref stringref ! fh_out anything ! mail_addresses list('scalar','...') ! mail scalar ! mail_server scalar ! mail_from scalar ! test_name scalar); } --- 156,168 ---- # declare some supported test params sub param_types { ! return q(output_ref stringref ! fh_out anything ! mail_addresses list('scalar','...') ! mail scalar ! mail_server scalar ! mail_from scalar ! test_name scalar ! mail_success_subject scalar ! mail_failure_subject scalar); } *************** *** 229,236 **** my $mail = $self->global_test_param('mail'); ! # check if we need to mail report ! return 0 unless defined $mail; ! return 0 unless $mail eq 'all' or $mail eq 'errors'; ! return 0 if $mail eq 'errors' and $self->webtest->num_fail == 0; return 1; --- 275,281 ---- my $mail = $self->global_test_param('mail'); ! return unless defined $mail; ! return unless $mail eq 'all' or $mail eq 'errors'; ! return if $mail eq 'errors' and !$self->webtest->have_succeed; return 1; *************** *** 261,278 **** $self->_smtp_cmd($smtp, 'datasend', "To: $mail_addresses\n"); } ! if ($self->webtest->num_fail > 0) { ! $self->_smtp_cmd($smtp, 'datasend', ! 'Subject: WEB TESTS FAILED! ' . ! 'FOUND ' . ! $self->webtest->num_fail . ! "ERROR(S)\n"); ! } else { ! $self->_smtp_cmd($smtp, 'datasend', ! "Subject: Web tests succeeded\n"); ! } $self->_smtp_cmd($smtp, 'datasend', "\n"); $self->_smtp_cmd($smtp, 'datasend', ${$self->test_output}); $self->_smtp_cmd($smtp, 'dataend'); $self->_smtp_cmd($smtp, 'quit'); } --- 306,344 ---- $self->_smtp_cmd($smtp, 'datasend', "To: $mail_addresses\n"); } ! $self->_smtp_cmd($smtp, 'datasend', ! 'Subject: ' . $self->_subject_header . "\n"); $self->_smtp_cmd($smtp, 'datasend', "\n"); $self->_smtp_cmd($smtp, 'datasend', ${$self->test_output}); $self->_smtp_cmd($smtp, 'dataend'); $self->_smtp_cmd($smtp, 'quit'); + } + + # returns value of subject header for email report + sub _subject_header { + my $self = shift; + + $self->global_validate_params(qw(mail_success_subject mail_failure_subject)); + + my $success_subject + = $self->global_test_param('mail_success_subject', + 'Web tests succeeded'); + my $fail_subject + = $self->global_test_param('mail_failure_subject', + 'WEB TESTS FAILED! FOUND %f ERROR(S)'); + + my %replace = ('f' => $self->webtest->num_fail, + 's' => $self->webtest->num_succeed, + 't' => ($self->webtest->num_fail + + $self->webtest->num_succeed), + '%' => '%' + ); + + my $subject = ($self->webtest->have_succeed ? + $success_subject : + $fail_subject); + + $subject =~ s/%(.)/exists $replace{$1} ? $replace{$1} : '%' . $1/ge; + + return $subject; } |