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;
}
|