http-webtest-commits Mailing List for HTTP-WebTest (Page 6)
Brought to you by:
m_ilya,
richardanderson
Menu
▾
▴
http-webtest-commits
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: Johannes la P. <joe...@us...> - 2003-03-06 17:42:28
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest In directory sc8-pr-cvs1:/tmp/cvs-serv2862 Modified Files: Changes README Log Message: fix for *argument isn't numeric* warning Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/Changes,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Changes 31 Dec 2002 15:46:12 -0000 1.3 --- Changes 6 Mar 2003 17:42:21 -0000 1.4 *************** *** 1,4 **** --- 1,7 ---- 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 - improved human readable result output Index: README =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/README,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** README 31 Dec 2002 15:46:12 -0000 1.4 --- README 6 Mar 2003 17:42:23 -0000 1.5 *************** *** 43,46 **** --- 43,49 ---- Internationalization support is far more limited. + Please send bug reports to + http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTTP-WebTest-Plugin-DateTest + This software is provided as-is, with no warrantee regarding fitness of use for any purpose. Use at |
|
From: Ilya M. <m_...@us...> - 2003-03-04 23:44:49
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv23100/bin
Modified Files:
rec-proxy
Log Message:
Cosmetic fixes
Index: rec-proxy
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin/rec-proxy,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** rec-proxy 4 Mar 2003 12:50:28 -0000 1.6
--- rec-proxy 4 Mar 2003 23:44:42 -0000 1.7
***************
*** 149,153 ****
if(defined $data) {
! $heap->{client}->set_output_filter(POE::Filter::Stream->new());
$heap->{client}->put($data);
} else {
--- 149,153 ----
if(defined $data) {
! $heap->{client}->set_output_filter(POE::Filter::Stream->new);
$heap->{client}->put($data);
} else {
|
|
From: Ilya M. <m_...@us...> - 2003-03-04 13:26:18
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv30596
Modified Files:
Makefile.PL
Log Message:
Update deps
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/Makefile.PL,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Makefile.PL 4 Mar 2003 12:39:39 -0000 1.4
--- Makefile.PL 4 Mar 2003 13:26:13 -0000 1.5
***************
*** 16,20 ****
PREREQ_PM => { 'Exception::Class' => 1.11,
'HTTP::WebTest' => 2.01,
! 'POE' => 0,
'POE::Component::Client::HTTP' => 0,
'Template' => 2.00,
--- 16,20 ----
PREREQ_PM => { 'Exception::Class' => 1.11,
'HTTP::WebTest' => 2.01,
! 'POE' => 0.22,
'POE::Component::Client::HTTP' => 0,
'Template' => 2.00,
|
|
From: Ilya M. <m_...@us...> - 2003-03-04 12:50:32
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv15112
Modified Files:
rec-proxy
Log Message:
Get rid of old create_recorder()
Index: rec-proxy
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin/rec-proxy,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** rec-proxy 4 Mar 2003 12:45:28 -0000 1.5
--- rec-proxy 4 Mar 2003 12:50:28 -0000 1.6
***************
*** 155,162 ****
}
}
-
- sub create_recorder {
- my $recorder = HTTP::WebTest::Recorder->new(ui_path => $OPTIONS{path});
- $recorder->filter({ header => { Content_Type => 'text/html' } });
- return $recorder;
- }
--- 155,156 ----
|
|
From: Ilya M. <m_...@us...> - 2003-03-04 12:45:37
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin In directory sc8-pr-cvs1:/tmp/cvs-serv13094 Modified Files: rec-proxy Log Message: Cosmetic fixes Index: rec-proxy =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin/rec-proxy,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** rec-proxy 4 Mar 2003 12:34:52 -0000 1.4 --- rec-proxy 4 Mar 2003 12:45:28 -0000 1.5 *************** *** 81,86 **** use HTTP::WebTest::Recorder; use HTTP::WebTest::Recorder::POE; ! use POE qw(Component::Server::TCP Component::Client::HTTP ! Filter::HTTPD Filter::Stream); my %OPTIONS = (); --- 81,85 ---- use HTTP::WebTest::Recorder; use HTTP::WebTest::Recorder::POE; ! use POE qw(Component::Server::TCP Filter::HTTPD Filter::Stream); my %OPTIONS = (); |
|
From: Ilya M. <m_...@us...> - 2003-03-04 12:43:43
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv12158
Modified Files:
Exceptions.pm
Log Message:
Enable stack traces and disable refs on args in stack traces
Index: Exceptions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Exceptions.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Exceptions.pm 2 Feb 2003 00:01:07 -0000 1.2
--- Exceptions.pm 4 Mar 2003 12:43:40 -0000 1.3
***************
*** 24,27 ****
--- 24,33 ----
use Exception::Class %EXC;
+ # show stack traces for uncaught exceptions
+ Exception::Class::Base->Trace(1);
+ # if refs are enabled Exception::Class breaks POE because of
+ # additional references on POE objects
+ Exception::Class::Base->NoRefs(1);
+
{
package HTTP::WebTest::Recorder::Exception;
|
|
From: Ilya M. <m_...@us...> - 2003-03-04 12:39:43
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv10547
Modified Files:
Makefile.PL
Log Message:
Update reqs
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/Makefile.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Makefile.PL 27 Feb 2003 22:13:26 -0000 1.3
--- Makefile.PL 4 Mar 2003 12:39:39 -0000 1.4
***************
*** 14,22 ****
WriteMakefile( NAME => 'HTTP::WebTest::Recorder',
VERSION_FROM => $VERSION_FROM,
! PREREQ_PM => { 'Exception::Class' => 0.99,
! 'HTTP::WebTest' => 2.01,
! 'POE' => 0,
! 'Template' => 2.00,
! 'Test::Exception' => 0.03},
AUTHOR => $AUTHOR,
ABSTRACT => $ABSTRACT,
--- 14,23 ----
WriteMakefile( NAME => 'HTTP::WebTest::Recorder',
VERSION_FROM => $VERSION_FROM,
! PREREQ_PM => { 'Exception::Class' => 1.11,
! 'HTTP::WebTest' => 2.01,
! 'POE' => 0,
! 'POE::Component::Client::HTTP' => 0,
! 'Template' => 2.00,
! 'Test::Exception' => 0.03 },
AUTHOR => $AUTHOR,
ABSTRACT => $ABSTRACT,
|
|
From: Ilya M. <m_...@us...> - 2003-03-04 12:34:56
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv8737
Modified Files:
rec-proxy
Log Message:
Cosmetic fixes
Index: rec-proxy
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin/rec-proxy,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** rec-proxy 27 Feb 2003 22:02:35 -0000 1.3
--- rec-proxy 4 Mar 2003 12:34:52 -0000 1.4
***************
*** 156,157 ****
--- 156,163 ----
}
}
+
+ sub create_recorder {
+ my $recorder = HTTP::WebTest::Recorder->new(ui_path => $OPTIONS{path});
+ $recorder->filter({ header => { Content_Type => 'text/html' } });
+ return $recorder;
+ }
|
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:57:07
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory sc8-pr-cvs1:/tmp/cvs-serv22960 Modified Files: 06-parser.t Log Message: Fix test count Index: 06-parser.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** 06-parser.t 25 Jan 2003 18:02:05 -0000 1.21 --- 06-parser.t 2 Mar 2003 11:57:03 -0000 1.22 *************** *** 10,14 **** use HTTP::WebTest::SelfTest; ! use Test::More tests => 69; # 1-60: check parsed wt script (which contains all variants of --- 10,14 ---- use HTTP::WebTest::SelfTest; ! use Test::More tests => 70; # 1-60: check parsed wt script (which contains all variants of |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:52:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv21736/lib/HTTP/WebTest Modified Files: Utils.pm TestResult.pm Test.pm SelfTest.pm Request.pm ReportPlugin.pm Plugins.pod Plugin.pm Parser.pm Cookies.pm Cookbook.pod API.pm Log Message: Update copyright (set ending date to 2003) Index: Utils.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Utils.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Utils.pm 22 Dec 2002 20:35:39 -0000 1.8 --- Utils.pm 2 Mar 2003 11:52:10 -0000 1.9 *************** *** 334,338 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 334,338 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: TestResult.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/TestResult.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TestResult.pm 21 Jun 2002 06:48:16 -0000 1.4 --- TestResult.pm 2 Mar 2003 11:52:10 -0000 1.5 *************** *** 96,100 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 96,100 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Test.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Test.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Test.pm 4 Jul 2002 22:39:56 -0000 1.6 --- Test.pm 2 Mar 2003 11:52:10 -0000 1.7 *************** *** 196,200 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 196,200 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: SelfTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/SelfTest.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SelfTest.pm 25 Jan 2003 17:42:06 -0000 1.6 --- SelfTest.pm 2 Mar 2003 11:52:10 -0000 1.7 *************** *** 416,420 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 416,420 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Request.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Request.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Request.pm 31 Jul 2002 15:25:21 -0000 1.4 --- Request.pm 2 Mar 2003 11:52:10 -0000 1.5 *************** *** 167,171 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 167,171 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: ReportPlugin.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/ReportPlugin.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ReportPlugin.pm 21 Jun 2002 06:48:16 -0000 1.5 --- ReportPlugin.pm 2 Mar 2003 11:52:10 -0000 1.6 *************** *** 272,276 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 272,276 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Plugins.pod =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugins.pod,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Plugins.pod 21 Jun 2002 06:48:16 -0000 1.6 --- Plugins.pod 2 Mar 2003 11:52:10 -0000 1.7 *************** *** 139,143 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 139,143 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Plugin.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Plugin.pm 12 Dec 2002 23:22:15 -0000 1.13 --- Plugin.pm 2 Mar 2003 11:52:10 -0000 1.14 *************** *** 523,527 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 523,527 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Parser.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Parser.pm 25 Jan 2003 18:01:21 -0000 1.20 --- Parser.pm 2 Mar 2003 11:52:10 -0000 1.21 *************** *** 358,362 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 358,362 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Cookies.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Cookies.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Cookies.pm 21 Jun 2002 06:48:16 -0000 1.4 --- Cookies.pm 2 Mar 2003 11:52:10 -0000 1.5 *************** *** 90,94 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 90,94 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Cookbook.pod =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Cookbook.pod,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Cookbook.pod 14 Dec 2002 17:30:07 -0000 1.19 --- Cookbook.pod 2 Mar 2003 11:52:10 -0000 1.20 *************** *** 237,241 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 237,241 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: API.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** API.pm 25 Jan 2003 17:45:51 -0000 1.28 --- API.pm 2 Mar 2003 11:52:10 -0000 1.29 *************** *** 738,742 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 738,742 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:52:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv21736
Modified Files:
README
Log Message:
Update copyright (set ending date to 2003)
Index: README
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/README,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** README 13 Dec 2002 01:36:40 -0000 1.9
--- README 2 Mar 2003 11:52:10 -0000 1.10
***************
*** 73,77 ****
Copyright (c) 2000-2001 Richard Anderson. All rights reserved.
! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved.
This program is free software; you can redistribute it and/or modify it
--- 73,77 ----
Copyright (c) 2000-2001 Richard Anderson. All rights reserved.
! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved.
This program is free software; you can redistribute it and/or modify it
|
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:52:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin In directory sc8-pr-cvs1:/tmp/cvs-serv21736/lib/HTTP/WebTest/Plugin Modified Files: TextMatchTest.pm StatusTest.pm SetRequest.pm ResponseTimeTest.pm Loader.pm Hooks.pm HarnessReport.pm Delay.pm DefaultReport.pm Cookies.pm ContentSizeTest.pm Click.pm Log Message: Update copyright (set ending date to 2003) Index: TextMatchTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/TextMatchTest.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** TextMatchTest.pm 12 Dec 2002 23:22:10 -0000 1.7 --- TextMatchTest.pm 2 Mar 2003 11:52:09 -0000 1.8 *************** *** 148,152 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 148,152 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: StatusTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/StatusTest.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** StatusTest.pm 12 Dec 2002 23:22:11 -0000 1.8 --- StatusTest.pm 2 Mar 2003 11:52:09 -0000 1.9 *************** *** 61,65 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 61,65 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: SetRequest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/SetRequest.pm,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** SetRequest.pm 12 Dec 2002 23:22:11 -0000 1.19 --- SetRequest.pm 2 Mar 2003 11:52:09 -0000 1.20 *************** *** 315,319 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 315,319 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: ResponseTimeTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/ResponseTimeTest.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ResponseTimeTest.pm 12 Dec 2002 23:22:12 -0000 1.6 --- ResponseTimeTest.pm 2 Mar 2003 11:52:09 -0000 1.7 *************** *** 98,102 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 98,102 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Loader.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Loader.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Loader.pm 21 Jun 2002 06:48:16 -0000 1.6 --- Loader.pm 2 Mar 2003 11:52:09 -0000 1.7 *************** *** 70,74 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 70,74 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Hooks.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Hooks.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Hooks.pm 22 Aug 2002 08:37:41 -0000 1.10 --- Hooks.pm 2 Mar 2003 11:52:09 -0000 1.11 *************** *** 178,182 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 178,182 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: HarnessReport.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/HarnessReport.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** HarnessReport.pm 18 Jan 2003 10:14:55 -0000 1.11 --- HarnessReport.pm 2 Mar 2003 11:52:09 -0000 1.12 *************** *** 104,108 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 104,108 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Delay.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Delay.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Delay.pm 21 Jun 2002 10:52:43 -0000 1.3 --- Delay.pm 2 Mar 2003 11:52:09 -0000 1.4 *************** *** 56,60 **** =head1 COPYRIGHT ! Copyright (c) 2002 Duncan Cameron. All rights reserved. This program is free software; you can redistribute it and/or modify --- 56,60 ---- =head1 COPYRIGHT ! Copyright (c) 2002-2003 Duncan Cameron. All rights reserved. This program is free software; you can redistribute it and/or modify Index: DefaultReport.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/DefaultReport.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** DefaultReport.pm 12 Dec 2002 23:22:14 -0000 1.9 --- DefaultReport.pm 2 Mar 2003 11:52:09 -0000 1.10 *************** *** 324,328 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 324,328 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Cookies.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Cookies.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Cookies.pm 2 Jul 2002 22:45:08 -0000 1.6 --- Cookies.pm 2 Mar 2003 11:52:09 -0000 1.7 *************** *** 509,513 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 509,513 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: ContentSizeTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/ContentSizeTest.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ContentSizeTest.pm 12 Dec 2002 23:22:14 -0000 1.8 --- ContentSizeTest.pm 2 Mar 2003 11:52:09 -0000 1.9 *************** *** 98,102 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 98,102 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: Click.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Click.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Click.pm 25 Jan 2003 17:44:37 -0000 1.16 --- Click.pm 2 Mar 2003 11:52:09 -0000 1.17 *************** *** 233,237 **** =head1 COPYRIGHT ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 233,237 ---- =head1 COPYRIGHT ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:52:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv21736/lib/Bundle/HTTP Modified Files: WebTest.pm Log Message: Update copyright (set ending date to 2003) Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP/WebTest.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** WebTest.pm 2 Jan 2003 20:51:13 -0000 1.8 --- WebTest.pm 2 Mar 2003 11:52:10 -0000 1.9 *************** *** 52,56 **** =head1 COPYRIGHT ! Copyright (c) 2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 52,56 ---- =head1 COPYRIGHT ! Copyright (c) 2002-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:52:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv21736/lib/HTTP Modified Files: WebTest.pm.in WebTest.pm Log Message: Update copyright (set ending date to 2003) Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** WebTest.pm.in 2 Mar 2003 11:43:10 -0000 1.29 --- WebTest.pm.in 2 Mar 2003 11:52:10 -0000 1.30 *************** *** 530,534 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 530,534 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** WebTest.pm 18 Jan 2003 10:14:55 -0000 1.33 --- WebTest.pm 2 Mar 2003 11:52:10 -0000 1.34 *************** *** 26,30 **** package HTTP::WebTest; ! $VERSION = '2.00'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API --- 26,30 ---- package HTTP::WebTest; ! $VERSION = '2.01'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API *************** *** 1419,1423 **** Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2002 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify --- 1419,1423 ---- Copyright (c) 2000-2001 Richard Anderson. All rights reserved. ! Copyright (c) 2001-2003 Ilya Martynov. All rights reserved. This program is free software; you can redistribute it and/or modify |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:43:16
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv19784 Modified Files: WebTest.pm.in Log Message: Set version to 2.01 Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** WebTest.pm.in 4 Jan 2003 07:43:30 -0000 1.28 --- WebTest.pm.in 2 Mar 2003 11:43:10 -0000 1.29 *************** *** 5,9 **** package HTTP::WebTest; ! $VERSION = '2.00'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API --- 5,9 ---- package HTTP::WebTest; ! $VERSION = '2.01'; # actual content of HTTP::WebTest package is in HTTP::WebTest::API |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:42:25
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv19618 Modified Files: Changes Log Message: New release Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.71 retrieving revision 1.72 diff -C2 -d -r1.71 -r1.72 *** Changes 25 Jan 2003 17:47:19 -0000 1.71 --- Changes 2 Mar 2003 11:42:21 -0000 1.72 *************** *** 3,7 **** Revision history for Perl module HTTP::WebTest. ! CURRENT VERSION ENHANCEMENTS: --- 3,7 ---- Revision history for Perl module HTTP::WebTest. ! 2.01 Sun Mar 2 2003 ENHANCEMENTS: |
|
From: Ilya M. <m_...@us...> - 2003-03-02 11:39:43
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv18989 Modified Files: .cvsignore Log Message: Updated Index: .cvsignore =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/.cvsignore,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** .cvsignore 12 Dec 2002 23:05:09 -0000 1.5 --- .cvsignore 2 Mar 2003 11:39:35 -0000 1.6 *************** *** 1,5 **** blib pm_to_blib pod_merge - Makefile - *.tar.gz --- 1,7 ---- + *.tar.gz + Makefile blib + build-stamp + debian pm_to_blib pod_merge |
|
From: Ilya M. <m_...@us...> - 2003-02-27 22:13:32
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv15625
Modified Files:
Makefile.PL
Log Message:
Update deps
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/Makefile.PL,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Makefile.PL 24 Jan 2003 09:26:41 -0000 1.2
--- Makefile.PL 27 Feb 2003 22:13:26 -0000 1.3
***************
*** 16,19 ****
--- 16,20 ----
PREREQ_PM => { 'Exception::Class' => 0.99,
'HTTP::WebTest' => 2.01,
+ 'POE' => 0,
'Template' => 2.00,
'Test::Exception' => 0.03},
|
|
From: Ilya M. <m_...@us...> - 2003-02-27 22:02:40
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv12205/bin
Modified Files:
rec-proxy
Log Message:
Rewriten via POE
Index: rec-proxy
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/bin/rec-proxy,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** rec-proxy 15 Jan 2003 21:15:00 -0000 1.2
--- rec-proxy 27 Feb 2003 22:02:35 -0000 1.3
***************
*** 80,83 ****
--- 80,86 ----
use HTTP::WebTest::Utils qw(start_webserver);
use HTTP::WebTest::Recorder;
+ use HTTP::WebTest::Recorder::POE;
+ use POE qw(Component::Server::TCP Component::Client::HTTP
+ Filter::HTTPD Filter::Stream);
my %OPTIONS = ();
***************
*** 104,119 ****
sub main {
! my $recorder;
! my $server_sub = sub {
! my %param = @_;
! $recorder ||= HTTP::WebTest::Recorder->new(ui_path => $OPTIONS{path});
! my $response = $recorder->handle($param{request});
! $param{connect}->send_response($response);
! };
! start_webserver(port => $OPTIONS{port} || 8000,
! server_sub => $server_sub);
}
--- 107,157 ----
sub main {
! POE::Component::Server::TCP->new(Alias => 'web_server',
! Port => $OPTIONS{port} || 8000,
! ClientFilter => 'POE::Filter::HTTPD',
! ClientInput => \&client_input,
! InlineStates =>
! { proxy_response => \&proxy_response });
! my $recorder = HTTP::WebTest::Recorder->new(ui_path => $OPTIONS{path});
! HTTP::WebTest::Recorder::POE->new(Alias => 'recorder',
! Recorder => $recorder);
! $poe_kernel->run();
! }
! sub client_input {
! my ($kernel, $session, $heap, $request) = @_[KERNEL, SESSION, HEAP, ARG0];
!
! # if request is actually response it just means that we've got an
! # error
! if($request->isa('HTTP::Response')) {
! $heap->{client}->put($request);
! $kernel->yield('shutdown');
! return;
! }
!
! $kernel->post(recorder => incoming_request => proxy_response => $request);
! }
!
! sub proxy_response {
! my ($kernel, $heap, $request_packet, $response_packet)
! = @_[KERNEL, HEAP, ARG0, ARG1];
!
! my $request = $request_packet->[0];
! my($response, $data) = @$response_packet;
!
! unless($heap->{got_headers}) {
! $response->header(Connection => 'close');
! $heap->{client}->put($response);
! $heap->{got_headers}++;
! }
!
! if(defined $data) {
! $heap->{client}->set_output_filter(POE::Filter::Stream->new());
! $heap->{client}->put($data);
! } else {
! $kernel->yield('shutdown');
! }
}
|
|
From: Ilya M. <m_...@us...> - 2003-02-27 22:00:45
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv11813/lib/HTTP/WebTest
Modified Files:
Recorder.pm
Log Message:
Refactor recording portion on several methods
Index: Recorder.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Recorder.pm 22 Feb 2003 14:36:41 -0000 1.7
--- Recorder.pm 27 Feb 2003 22:00:39 -0000 1.8
***************
*** 56,59 ****
--- 56,95 ----
*filter = make_access_method('FILTER', sub { {} });
+ sub ui_action {
+ my $self = shift;
+ my $request = shift;
+
+ my $ui_path = $self->ui_path;
+ my($action) = $request->uri->path =~ m|^ /\Q$ui_path\E/(\w+) |x;
+
+ return $action;
+ }
+
+ sub ui_execute {
+ my $self = shift;
+ my %params = @_;
+
+ return $self->controller->execute(recorder => $self,
+ %params);
+ }
+
+ sub record {
+ my $self = shift;
+ my %params = @_;
+
+ my $is_recording = $self->is_recording;
+ if($self->filter->{header}) {
+ while(my($header, $regexp) = each %{$self->filter->{header}}) {
+ $is_recording &&= $params{response}->header($header) =~ $regexp
+ if defined $params{response}->header($header);
+ }
+ }
+
+ if($is_recording) {
+ push(@{$self->tests},
+ $self->make_test($params{request}, $params{response}));
+ }
+ }
+
# serve web interface and do recording/proxying
sub handle {
***************
*** 63,85 ****
my $ui_path = $self->ui_path;
! if($request->uri->path =~ m|^ /\Q$ui_path\E/(\w+) |x) {
# request for recorder web interface
! return $self->controller->execute(recorder => $self,
! action => $1,
! request => $request);
} else {
# proxy request
my $response = $self->user_agent->simple_request($request);
! my $is_recording = $self->is_recording;
! if($self->filter->{header}) {
! while(my($header, $regexp) = each %{$self->filter->{header}}) {
! $is_recording &&= $response->header($header) =~ $regexp
! if defined $response->header($header);
! }
! }
!
! if($is_recording) {
! push @{$self->tests}, $self->make_test($request, $response);
! }
return $response;
}
--- 99,111 ----
my $ui_path = $self->ui_path;
! my $action = $self->ui_action($request);
! if($action) {
# request for recorder web interface
! return $self->ui_execute(action => $action,
! request => $request);
} else {
# proxy request
my $response = $self->user_agent->simple_request($request);
! $self->record(request => $request, response => $response);
return $response;
}
|
|
From: Ilya M. <m_...@us...> - 2003-02-27 21:59:37
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv11400/lib/HTTP/WebTest/Recorder
Added Files:
POE.pm
Log Message:
Added
--- NEW FILE: POE.pm ---
package HTTP::WebTest::Recorder::POE;
# $Id: POE.pm,v 1.1 2003/02/27 21:59:28 m_ilya Exp $
use strict;
use POE qw(Component::Client::HTTP);
POE::Component::Client::HTTP->spawn(Alias => 'wt_recorder_ua',
Streaming => 1024);
sub new {
my $class = shift;
my %params = @_;
POE::Session->create( inline_states =>
{ _start => \&start,
incoming_request => \&incoming_request,
proxy_response => \&proxy_response },
args =>
[ $params{Alias} ],
heap =>
{ recorder => $params{Recorder} }
);
}
sub start {
my ($kernel, $alias) = @_[KERNEL, ARG0];
$kernel->alias_set($alias);
}
sub incoming_request {
my($kernel, $sender, $heap, $state, $request)
= @_[KERNEL, SENDER, HEAP, ARG0, ARG1];
my $postback = $sender->postback($state => $request);
my $action = $heap->{recorder}->ui_action($request);
if($action) {
my $response = $heap->{recorder}->ui_execute(request => $request,
action => $action);
$postback->($response, undef);
} else {
$request->header(Connection => 'close');
$heap->{postback}{$request} = $postback;
$kernel->post(wt_recorder_ua => request => proxy_response => $request);
}
}
sub proxy_response {
my ($kernel, $heap, $request_packet, $response_packet)
= @_[KERNEL, HEAP, ARG0, ARG1];
my $request = $request_packet->[0];
my($response, $data) = @$response_packet;
$heap->{postback}{$request}->(@$response_packet);
unless(defined $data) {
delete $heap->{postback}{$request};
$heap->{recorder}->record(request => $request,
response => $response);
}
}
1;
|
|
From: Ilya M. <m_...@us...> - 2003-02-22 14:36:48
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv13917
Modified Files:
Recorder.pm
Log Message:
Get rid of perl undefined warning
Index: Recorder.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Recorder.pm 13 Feb 2003 11:26:30 -0000 1.6
--- Recorder.pm 22 Feb 2003 14:36:41 -0000 1.7
***************
*** 74,78 ****
if($self->filter->{header}) {
while(my($header, $regexp) = each %{$self->filter->{header}}) {
! $is_recording &&= $response->header($header) =~ $regexp;
}
}
--- 74,79 ----
if($self->filter->{header}) {
while(my($header, $regexp) = each %{$self->filter->{header}}) {
! $is_recording &&= $response->header($header) =~ $regexp
! if defined $response->header($header);
}
}
|
|
From: Ilya M. <m_...@us...> - 2003-02-13 21:41:14
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/lib/HTTP/WebTest/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv13315/lib/HTTP/WebTest/Plugin
Modified Files:
XPath.pm
Log Message:
Implementation for xpath_ok and xpath_nok
Index: XPath.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/lib/HTTP/WebTest/Plugin/XPath.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** XPath.pm 13 Feb 2003 07:14:12 -0000 1.1.1.1
--- XPath.pm 13 Feb 2003 21:41:11 -0000 1.2
***************
*** 21,28 ****
use strict;
- use HTTP::WebTest::Utils qw(make_access_method);
-
use base qw(HTTP::WebTest::Plugin);
=head1 TEST PARAMETERS
--- 21,29 ----
use strict;
use base qw(HTTP::WebTest::Plugin);
+ use HTTP::WebTest::Utils qw(make_access_method);
+ use XML::LibXML;
+
=head1 TEST PARAMETERS
***************
*** 32,37 ****
sub param_types {
! return q();
}
=head1 SUPPORT
--- 33,75 ----
sub param_types {
! return q(xpath_ok list
! xpath_nok list);
! }
!
! # accessor method for XML::LibXML object
! *libxml = make_access_method('LIBXML', sub { XML::LibXML->new });
!
! sub check_response {
! my $self = shift;
!
! $self->validate_params(qw(xpath_ok xpath_nok));
!
! # parse document
! my $content = $self->webtest->current_response->content;
! my $doc = $self->libxml->parse_html_string($content);
!
! # test results
! my @results = ();
! my @ret = ();
!
! for my $xpath (@{$self->test_param('xpath_nok', [])}) {
! push(@results,
! $self->test_result(! $doc->find($xpath)->to_boolean, $xpath));
! }
!
! push @ret, ['False XPath expression', @results] if @results;
!
! @results = ();
!
! for my $xpath (@{$self->test_param('xpath_ok', [])}) {
! push(@results,
! $self->test_result($doc->find($xpath)->to_boolean, $xpath));
! }
!
! push @ret, ['True XPath expression', @results] if @results;
!
! return @ret;
}
+
=head1 SUPPORT
|
|
From: Ilya M. <m_...@us...> - 2003-02-13 21:40:50
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/t
In directory sc8-pr-cvs1:/tmp/cvs-serv12926/t
Modified Files:
01-xpath.t
Log Message:
Tests for xpath_ok and xpath_nok
Index: 01-xpath.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/t/01-xpath.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 01-xpath.t 13 Feb 2003 07:14:11 -0000 1.1.1.1
--- 01-xpath.t 13 Feb 2003 21:40:42 -0000 1.2
***************
*** 21,27 ****
my $OPTS = { plugins => [ '::XPath' ] };
! # 1: test error_log param
{
! my $tests = [ { url => abs_url($URL, '/test1') } ];
check_webtest(webtest => $WEBTEST,
--- 21,37 ----
my $OPTS = { plugins => [ '::XPath' ] };
! # 1: basic tests for xpath_ok and xpath_nok
{
! my $tests = [ { url => abs_url($URL, '/test1'),
! xpath_ok => [ '//title', '//h1[text()="Test File"]' ],
! },
! { url => abs_url($URL, '/test1'),
! xpath_nok => [ '/title', '//h2[text()="Test File"]' ],
! },
! { url => abs_url($URL, '/test1'),
! xpath_ok => [ '/html' ],
! xpath_nok => [ '*/title' ],
! },
! ];
check_webtest(webtest => $WEBTEST,
***************
*** 45,49 ****
if($path eq '/test1') {
! $connect->send_file('t/test1.html');
} else {
$connect->send_error(RC_NOT_FOUND);
--- 55,59 ----
if($path eq '/test1') {
! $connect->send_file_response('t/test1.html');
} else {
$connect->send_error(RC_NOT_FOUND);
|
|
From: Ilya M. <m_...@us...> - 2003-02-13 21:40:50
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/t/test.out
In directory sc8-pr-cvs1:/tmp/cvs-serv12926/t/test.out
Modified Files:
xpath
Log Message:
Tests for xpath_ok and xpath_nok
Index: xpath
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XPath/t/test.out/xpath,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** xpath 13 Feb 2003 07:14:12 -0000 1.1.1.1
--- xpath 13 Feb 2003 21:40:41 -0000 1.2
***************
*** 1,4 ****
Failed Succeeded Test Name
! 1 0 *** no name ***
--- 1,6 ----
Failed Succeeded Test Name
! 0 3 *** no name ***
! 0 3 *** no name ***
! 0 3 *** no name ***
***************
*** 7,12 ****
STATUS CODE CHECK
! Expected '200' and got: 500 EOF instead of reponse status l FAIL
! Total web tests failed: 1 succeeded: 0
--- 9,38 ----
STATUS CODE CHECK
! Expected '200' and got: 200 OK SUCCEED
! TRUE XPATH EXPRESSION
! //title SUCCEED
! //h1[text()="Test File"] SUCCEED
! Test Name: N/A
! URL: http://http.web.test/test1
!
! STATUS CODE CHECK
! Expected '200' and got: 200 OK SUCCEED
! FALSE XPATH EXPRESSION
! /title SUCCEED
! //h2[text()="Test File"] SUCCEED
!
!
! Test Name: N/A
! URL: http://http.web.test/test1
!
! STATUS CODE CHECK
! Expected '200' and got: 200 OK SUCCEED
! FALSE XPATH EXPRESSION
! */title SUCCEED
! TRUE XPATH EXPRESSION
! /html SUCCEED
!
!
! Total web tests failed: 0 succeeded: 9
|
