http-webtest-commits Mailing List for HTTP-WebTest (Page 5)

Brought to you by: m_ilya, richardanderson

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

Flat | Threaded

<< < 1 .. 3 4 5 6 7 .. 30 > >> (Page 5 of 30)

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Controller.pm,1.6,1.7

From: Ilya M. <m_...@us...> - 2003-04-05 10:00:14

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv5753/lib/HTTP/WebTest/Recorder

Modified Files:
	Controller.pm 
Log Message:
Use filter_action() in controller


Index: Controller.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Controller.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Controller.pm	4 Apr 2003 21:51:11 -0000	1.6
--- Controller.pm	5 Apr 2003 09:59:59 -0000	1.7
***************
*** 40,43 ****
--- 40,44 ----
               enable           => \&enable_action,
               delete           => \&delete_action,
+              filter           => \&filter_action,
               default          => \&default_action);

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Actions.pm,1.5,1.6

From: Ilya M. <m_...@us...> - 2003-04-05 09:59:25

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv5625/lib/HTTP/WebTest/Recorder

Modified Files:
	Actions.pm 
Log Message:
Added filter_action()


Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Actions.pm	4 Apr 2003 21:06:46 -0000	1.5
--- Actions.pm	5 Apr 2003 09:59:22 -0000	1.6
***************
*** 9,13 ****
  @EXPORT_OK = qw(default_action enable_action list_action
                  request_action response_content_action
!                 delete_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
--- 9,13 ----
  @EXPORT_OK = qw(default_action enable_action list_action
                  request_action response_content_action
!                 delete_action wtscript_action filter_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
***************
*** 78,81 ****
--- 78,97 ----
      my $num = $controller->cgi->param('num');
      splice @{$controller->recorder->tests}, $num, 1;
+ 
+     $controller->redirect('list');
+ }
+ 
+ sub filter_action {
+     my $controller = shift;
+ 
+     my $type  = $controller->cgi->param('type');
+     my $field = $controller->cgi->param('field');
+     my $value = $controller->cgi->param('value');
+ 
+     if(not defined $value or $value eq '') {
+         delete $controller->recorder->filter->{$type}{$field};
+     } else {
+         $controller->recorder->filter->{$type}{$field} = $value;
+     }
  
      $controller->redirect('list');

[Http-webtest-commits] HTTP-WebTest-Recorder/t 03-actions.t,1.5,1.6

From: Ilya M. <m_...@us...> - 2003-04-05 09:59:07

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv5498/t

Modified Files:
	03-actions.t 
Log Message:
Tests for filter_action()


Index: 03-actions.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/03-actions.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 03-actions.t	4 Apr 2003 21:05:40 -0000	1.5
--- 03-actions.t	5 Apr 2003 09:59:01 -0000	1.6
***************
*** 6,10 ****
  use HTTP::Status;
  
! use Test::More tests => 39;
  use Test::Exception;
  
--- 6,10 ----
  use HTTP::Status;
  
! use Test::More tests => 53;
  use Test::Exception;
  
***************
*** 195,198 ****
--- 195,199 ----
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
+     is($@->url, 'list', 'Test url property of exception');
      is(@{$RECORDER->tests}, 2, 'Check number of tests');
  
***************
*** 201,207 ****
--- 202,244 ----
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
+     is($@->url, 'list', 'Test url property of exception');
      is(@{$RECORDER->tests}, 1, 'Check number of tests');
  
      is($RECORDER->tests->[0]->request->method, 'POST',
         'Test if 2nd request/response pair was not deleted');
+ }
+ 
+ # test filter_action()
+ {
+     $RECORDER->filter({});
+ 
+     $CONTROLLER->cgi(CGI->new({type  => 'header',
+                                field => 'Content-Type',
+                                value => 'text'}));
+     dies_ok { filter_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is($@->url, 'list', 'Test url property of exception');
+     is($RECORDER->filter->{header}{'Content-Type'}, 'text',
+        'Test if Content-Type header filter is set');
+ 
+     $CONTROLLER->cgi(CGI->new({type  => 'header',
+                                field => 'Content-Type',
+                                value => ''}));
+     dies_ok { filter_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is($@->url, 'list', 'Test url property of exception');
+     ok(not(exists $RECORDER->filter->{header}{'Content-Type'}),
+        'Test if Content-Type header filter is removed');
+ 
+     $CONTROLLER->cgi(CGI->new({type  => 'header',
+                                field => 'Location',
+                                value => '.'}));
+     dies_ok { filter_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is($@->url, 'list', 'Test url property of exception');
+     is($RECORDER->filter->{header}{Location}, '.',
+        'Test if Location header filter is set');
  }

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder POE.pm,1.1,1.2

From: Ilya M. <m_...@us...> - 2003-04-04 21:52:24

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv15908/lib/HTTP/WebTest/Recorder

Modified Files:
	POE.pm 
Log Message:
Record content of responses


Index: POE.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/POE.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** POE.pm	27 Feb 2003 21:59:28 -0000	1.1
--- POE.pm	4 Apr 2003 21:52:20 -0000	1.2
***************
*** 44,47 ****
--- 44,48 ----
          $request->header(Connection => 'close');
          $heap->{postback}{$request} = $postback;
+         $heap->{buffer}{$request} = '';
          $kernel->post(wt_recorder_ua => request => proxy_response => $request);
      }
***************
*** 57,62 ****
      $heap->{postback}{$request}->(@$response_packet);
  
!     unless(defined $data) {
          delete $heap->{postback}{$request};
          $heap->{recorder}->record(request  => $request,
                                    response => $response);
--- 58,66 ----
      $heap->{postback}{$request}->(@$response_packet);
  
!     if(defined $data) {
!         $heap->{buffer}{$request} .= $data;
!     } else {
          delete $heap->{postback}{$request};
+         $response->content(delete $heap->{buffer}{$request});
          $heap->{recorder}->record(request  => $request,
                                    response => $response);

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Controller.pm,1.5,1.6

From: Ilya M. <m_...@us...> - 2003-04-04 21:51:14

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv15362/lib/HTTP/WebTest/Recorder

Modified Files:
	Controller.pm 
Log Message:
Added delete action


Index: Controller.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Controller.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Controller.pm	2 Feb 2003 00:00:18 -0000	1.5
--- Controller.pm	4 Apr 2003 21:51:11 -0000	1.6
***************
*** 39,42 ****
--- 39,43 ----
               wtscript         => \&wtscript_action,
               enable           => \&enable_action,
+              delete           => \&delete_action,
               default          => \&default_action);

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/template list,1.3,1.4

From: Ilya M. <m_...@us...> - 2003-04-04 21:42:16

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/template
In directory sc8-pr-cvs1:/tmp/cvs-serv11383

Modified Files:
	list 
Log Message:
Replace link 'turn on/off' with button;

Added buttons to delete request/response pairs


Index: list
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/template/list,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** list	2 Feb 2003 17:25:00 -0000	1.3
--- list	4 Apr 2003 21:42:12 -0000	1.4
***************
*** 5,17 ****
  [% USE enable_url = URL('enable') %]
  
  [% IF controller.recorder.is_recording %]
! <p><a href="[% enable_url(enable => 0) %]">Turn off</a> recording</p>
  [% ELSE %]
! <p><a href="[% enable_url(enable => 1) %]">Turn on</a> recording</p>
  [% END %]
  
  [% IF tests.size > 0 %]
  
  [% USE request_url = URL('request') %]
  
  <table>
--- 5,23 ----
  [% USE enable_url = URL('enable') %]
  
+ <form action="[% enable_url %]" method="get">
  [% IF controller.recorder.is_recording %]
!   <input type="hidden" name="enable" value="0">
!   <input type="submit" value="Turn off">
  [% ELSE %]
!   <input type="hidden" name="enable" value="1">
!   <input type="submit" value="Turn on">
  [% END %]
+   recording
+ </form>
  
  [% IF tests.size > 0 %]
  
  [% USE request_url = URL('request') %]
+ [% USE delete_url = URL('delete') %]
  
  <table>
***************
*** 19,27 ****
    <tr>
      <td>
!       <a href="[% request_url(num => loop.index) %]">
!         [% test.request.uri | html %]
!       </a>
      </td>
-     <td>[% test.response.status_line | html %]</td>
    </tr>
    [% END %]
--- 25,39 ----
    <tr>
      <td>
!       <a href="[% request_url(num => loop.index) %]">[% test.request.uri | html %]</a>
!     </td>
!     <td>
!       [% test.response.status_line | html %]
!     </td>
!     <td>
!       <form action="[% delete_url %]" method="get">
!         <input type="hidden" name="num" value="[% loop.index %]">
!         <input type="submit" value="Delete">
!       </form>
      </td>
    </tr>
    [% END %]

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Exceptions.pm,1.3,1.4

From: Ilya M. <m_...@us...> - 2003-04-04 21:07:58

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv28049

Modified Files:
	Exceptions.pm 
Log Message:
5.8.0 compatibility fixes


Index: Exceptions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Exceptions.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Exceptions.pm	4 Mar 2003 12:43:40 -0000	1.3
--- Exceptions.pm	4 Apr 2003 21:07:56 -0000	1.4
***************
*** 6,19 ****
  
  BEGIN {
!     %EXC = ( HTTP::WebTest::Recorder::Exception =>
  	     { description =>
  	       'Generic base class for all Investion exceptions' },
  
! 	     HTTP::WebTest::Recorder::Exception::Redirect =>
  	     { isa         => 'HTTP::WebTest::Recorder::Exception',
                 fields      => [ qw(url) ],
  	       description =>  'Redirect message' },
  
! 	     HTTP::WebTest::Recorder::Exception::RawResponse =>
  	     { isa         => 'HTTP::WebTest::Recorder::Exception',
                 fields      => [ qw(headers content) ],
--- 6,19 ----
  
  BEGIN {
!     %EXC = ( 'HTTP::WebTest::Recorder::Exception' =>
  	     { description =>
  	       'Generic base class for all Investion exceptions' },
  
! 	     'HTTP::WebTest::Recorder::Exception::Redirect' =>
  	     { isa         => 'HTTP::WebTest::Recorder::Exception',
                 fields      => [ qw(url) ],
  	       description =>  'Redirect message' },
  
! 	     'HTTP::WebTest::Recorder::Exception::RawResponse' =>
  	     { isa         => 'HTTP::WebTest::Recorder::Exception',
                 fields      => [ qw(headers content) ],

[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Actions.pm,1.4,1.5

From: Ilya M. <m_...@us...> - 2003-04-04 21:06:49

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv27678

Modified Files:
	Actions.pm 
Log Message:
Added delete_action()


Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Actions.pm	2 Feb 2003 17:27:41 -0000	1.4
--- Actions.pm	4 Apr 2003 21:06:46 -0000	1.5
***************
*** 8,12 ****
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action response_content_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
--- 8,13 ----
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action response_content_action
!                 delete_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
***************
*** 70,73 ****
--- 71,83 ----
      return(default_action($controller),
             wtscript => $wtscript);
+ }
+ 
+ sub delete_action {
+     my $controller = shift;
+ 
+     my $num = $controller->cgi->param('num');
+     splice @{$controller->recorder->tests}, $num, 1;
+ 
+     $controller->redirect('list');
  }

[Http-webtest-commits] HTTP-WebTest-Recorder/t 03-actions.t,1.4,1.5

From: Ilya M. <m_...@us...> - 2003-04-04 21:05:46

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv27249

Modified Files:
	03-actions.t 
Log Message:
Added tests for delete_action()


Index: 03-actions.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/03-actions.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 03-actions.t	2 Feb 2003 17:27:41 -0000	1.4
--- 03-actions.t	4 Apr 2003 21:05:40 -0000	1.5
***************
*** 6,10 ****
  use HTTP::Status;
  
! use Test::More tests => 32;
  use Test::Exception;
  
--- 6,10 ----
  use HTTP::Status;
  
! use Test::More tests => 39;
  use Test::Exception;
  
***************
*** 187,189 ****
--- 187,207 ----
      is($data{content}, $RECORDER->tests->[0]->response->content,
         "Test if action doesn't die and returns response content");
+ }
+ 
+ # test delete_action()
+ {
+     $CONTROLLER->cgi(CGI->new({num => 2}));
+     dies_ok { delete_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is(@{$RECORDER->tests}, 2, 'Check number of tests');
+ 
+     $CONTROLLER->cgi(CGI->new({num => 0}));
+     dies_ok { delete_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is(@{$RECORDER->tests}, 1, 'Check number of tests');
+ 
+     is($RECORDER->tests->[0]->request->method, 'POST',
+        'Test if 2nd request/response pair was not deleted');
  }

[Http-webtest-commits] HTTP-WebTest/lib/HTTP/WebTest ReportPlugin.pm,1.7,1.8

From: Ilya M. <m_...@us...> - 2003-04-01 16:01:33

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv21324

Modified Files:
	ReportPlugin.pm 
Log Message:
Minor fix


Index: ReportPlugin.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/ReportPlugin.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ReportPlugin.pm	22 Mar 2003 12:26:35 -0000	1.7
--- ReportPlugin.pm	1 Apr 2003 16:01:22 -0000	1.8
***************
*** 258,263 ****
      $self->_smtp_cmd($smtp, 'datasend', "From: $from\n");
      {
!         local $" = ', ';
!         $self->_smtp_cmd($smtp, 'datasend', "To: @$mail_addresses\n");
      }
      if ($self->webtest->num_fail > 0) {
--- 258,263 ----
      $self->_smtp_cmd($smtp, 'datasend', "From: $from\n");
      {
!         my $mail_addresses = join ', ', @$mail_addresses;
!         $self->_smtp_cmd($smtp, 'datasend', "To: $mail_addresses\n");
      }
      if ($self->webtest->num_fail > 0) {

[Http-webtest-commits] HTTP-WebTest Changes,1.77,1.78

From: Ilya M. <m_...@us...> - 2003-03-24 20:18:32

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv27648

Modified Files:
	Changes 
Log Message:
Minor fix


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.77
retrieving revision 1.78
diff -C2 -d -r1.77 -r1.78
*** Changes	24 Mar 2003 20:17:33 -0000	1.77
--- Changes	24 Mar 2003 20:18:27 -0000	1.78
***************
*** 7,11 ****
  BUG FIXES:
  
! * Fixed bug when test reports were not send if multiple email
  addresses were specified as test report recipients (test parameter
  'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.
--- 7,11 ----
  BUG FIXES:
  
! * Fixed a bug when test reports were not send if multiple email
  addresses were specified as test report recipients (test parameter
  'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.

[Http-webtest-commits] HTTP-WebTest Changes,1.76,1.77

From: Ilya M. <m_...@us...> - 2003-03-24 20:17:41

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv26681

Modified Files:
	Changes 
Log Message:
Fix typo


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -d -r1.76 -r1.77
*** Changes	24 Mar 2003 19:44:45 -0000	1.76
--- Changes	24 Mar 2003 20:17:33 -0000	1.77
***************
*** 7,11 ****
  BUG FIXES:
  
! * Fixed bug when test reports were not send when multiple email
  addresses were specified as test report recipients (test parameter
  'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.
--- 7,11 ----
  BUG FIXES:
  
! * Fixed bug when test reports were not send if multiple email
  addresses were specified as test report recipients (test parameter
  'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.

[Http-webtest-commits] HTTP-WebTest/t/test.out report-terse-show-failed_only,1.3,1.4

From: Ilya M. <m_...@us...> - 2003-03-24 19:58:06

Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out
In directory sc8-pr-cvs1:/tmp/cvs-serv5294/t/test.out

Modified Files:
	report-terse-show-failed_only 
Log Message:
Updated


Index: report-terse-show-failed_only
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/report-terse-show-failed_only,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** report-terse-show-failed_only	22 Aug 2002 07:39:38 -0000	1.3
--- report-terse-show-failed_only	24 Mar 2003 19:58:00 -0000	1.4
***************
*** 27,32 ****
  Content-Length: 53
  Content-Type: text/html
- Client-Date: SOMEDAY
- Client-Response-Num: 1
  Title: 404 Not Found
  
--- 27,30 ----

[Http-webtest-commits] HTTP-WebTest Changes,1.75,1.76

From: Ilya M. <m_...@us...> - 2003-03-24 19:44:51

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv23650

Modified Files:
	Changes 
Log Message:
Updated


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -d -r1.75 -r1.76
*** Changes	24 Mar 2003 11:39:03 -0000	1.75
--- Changes	24 Mar 2003 19:44:45 -0000	1.76
***************
*** 3,7 ****
  Revision history for Perl module HTTP::WebTest.
  
! CURRENT VERSION
  
  BUG FIXES:
--- 3,7 ----
  Revision history for Perl module HTTP::WebTest.
  
! 2.02 Mon Mar 24 2003
  
  BUG FIXES:

[Http-webtest-commits] HTTP-WebTest/lib/HTTP WebTest.pm.in,1.31,1.32

From: Ilya M. <m_...@us...> - 2003-03-24 11:45:02

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP
In directory sc8-pr-cvs1:/tmp/cvs-serv7846/lib/HTTP

Modified Files:
	WebTest.pm.in 
Log Message:
New version

Index: WebTest.pm.in
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** WebTest.pm.in	23 Mar 2003 20:06:47 -0000	1.31
--- WebTest.pm.in	24 Mar 2003 11:12:06 -0000	1.32
***************
*** 5,9 ****
  package HTTP::WebTest;
  
! $VERSION = '2.01';
  
  # actual content of HTTP::WebTest package is in HTTP::WebTest::API
--- 5,9 ----
  package HTTP::WebTest;
  
! $VERSION = '2.02';
  
  # actual content of HTTP::WebTest package is in HTTP::WebTest::API

[Http-webtest-commits] HTTP-WebTest Changes,1.74,1.75

From: Ilya M. <m_...@us...> - 2003-03-24 11:39:09

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv17123

Modified Files:
	Changes 
Log Message:
Fix typo


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.74
retrieving revision 1.75
diff -C2 -d -r1.74 -r1.75
*** Changes	24 Mar 2003 11:26:36 -0000	1.74
--- Changes	24 Mar 2003 11:39:03 -0000	1.75
***************
*** 13,17 ****
  * New versions of LWP add Client-Peer header in all responses what
  breaks one of tests in the self-testing suite.  This test was supposed
! to be fixed by the previous release but it apparently it wasn't.
  
  2.01 Sun Mar  2 2003
--- 13,17 ----
  * New versions of LWP add Client-Peer header in all responses what
  breaks one of tests in the self-testing suite.  This test was supposed
! to be fixed by the previous release but apparently it wasn't.
  
  2.01 Sun Mar  2 2003

[Http-webtest-commits] HTTP-WebTest Changes,1.73,1.74

From: Ilya M. <m_...@us...> - 2003-03-24 11:26:41

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv12843

Modified Files:
	Changes 
Log Message:
Updated


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** Changes	22 Mar 2003 12:27:00 -0000	1.73
--- Changes	24 Mar 2003 11:26:36 -0000	1.74
***************
*** 11,14 ****
--- 11,18 ----
  'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.
  
+ * New versions of LWP add Client-Peer header in all responses what
+ breaks one of tests in the self-testing suite.  This test was supposed
+ to be fixed by the previous release but it apparently it wasn't.
+ 
  2.01 Sun Mar  2 2003
  
***************
*** 33,47 ****
  
  * New versions of LWP add Client-Peer header in all responses what
! breaks one of tests in self-testing suite. This test is fixed so it
! should pass ok with both new and old versions of LWP.  Thanks to
  Johannes la Poutre for bug report.
  
! * Test in self-testing suite for 'timeout' parameter was buggy and
  could fail on some machines.  Thanks to Johannes la Poutre for bug
  report.
  
! * HTTP::WebTest::Plugin::HarnessReport produced report output on
! STDERR what was adding noise in 'make test' output when being used in
! Test::Harness-style test suites.
  
  2.00 Sat Dec 14 2002
--- 37,51 ----
  
  * New versions of LWP add Client-Peer header in all responses what
! breaks one of tests in the self-testing suite. This test is fixed so
! it should pass ok with both new and old versions of LWP.  Thanks to
  Johannes la Poutre for bug report.
  
! * Test in the self-testing suite for 'timeout' parameter was buggy and
  could fail on some machines.  Thanks to Johannes la Poutre for bug
  report.
  
! * HTTP::WebTest::Plugin::HarnessReport produced a report output on
! STDERR what was adding some noise in 'make test' output when being
! used in Test::Harness-style test suites.
  
  2.00 Sat Dec 14 2002

[Http-webtest-commits] HTTP-WebTest/t 05-report.t,1.12,1.13

From: Ilya M. <m_...@us...> - 2003-03-24 11:21:22

Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv10935

Modified Files:
	05-report.t 
Log Message:
Refactor header washing code into $HEADER_FILTER


Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** 05-report.t	3 Jan 2003 22:32:32 -0000	1.12
--- 05-report.t	24 Mar 2003 11:21:16 -0000	1.13
***************
*** 23,26 ****
--- 23,33 ----
  my $COOKIE_TEST = { url => abs_url($URL, '/set-cookie-c1-v1') };
  my $COOKIE_FILTER = sub { $_[0] =~ s/expires=.*?GMT/expires=SOMEDAY/;};
+ my $HEADER_FILTER =
+     sub {
+         $_[0] =~ s/: .*?GMT/: SOMEDAY/g;
+         $_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
+         $_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
+         $_[0] =~ s|Client-.*?: .*?\n||g;
+     };
  
  # 1: test fh_out parameter
***************
*** 139,146 ****
  
      my $out_filter = sub {
! 	$_[0] =~ s|: .*?GMT|: SOMEDAY|g;
! 	$_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
! 	$_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
!         $_[0] =~ s|Client-.*?: .*?\n||g;
      };
  
--- 146,150 ----
  
      my $out_filter = sub {
!         $HEADER_FILTER->($_[0]);
      };
  
***************
*** 164,170 ****
  
      my $out_filter = sub {
!         $_[0] =~ s/: .*?GMT/: SOMEDAY/g;
!         $_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
!         $_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
          $COOKIE_FILTER->($_[0]);
      };
--- 168,172 ----
  
      my $out_filter = sub {
!         $HEADER_FILTER->($_[0]);
          $COOKIE_FILTER->($_[0]);
      };

[Http-webtest-commits] HTTP-WebTest/lib/HTTP WebTest.pm,1.34,1.35

From: Ilya M. <m_...@us...> - 2003-03-24 11:13:33

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP
In directory sc8-pr-cvs1:/tmp/cvs-serv8404/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.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** WebTest.pm	2 Mar 2003 11:52:10 -0000	1.34
--- WebTest.pm	24 Mar 2003 11:13:28 -0000	1.35
***************
*** 26,30 ****
  package HTTP::WebTest;
  
! $VERSION = '2.01';
  
  # actual content of HTTP::WebTest package is in HTTP::WebTest::API
--- 26,30 ----
  package HTTP::WebTest;
  
! $VERSION = '2.02';
  
  # actual content of HTTP::WebTest package is in HTTP::WebTest::API
***************
*** 471,474 ****
--- 471,478 ----
  
  This plugin supports testing web files using a local instance of Apache.
+ 
+ =item L<HTTP::WebTest::Plugin::TagAttTest|HTTP::WebTest::Plugin::TagAttTest>
+ 
+ This plugin allows to forbid or require tags and/or attributes in a web page.
  
  =item L<HTTP::WebTest::Plugin::DateTest|HTTP::WebTest::Plugin::DateTest>

[Http-webtest-commits] HTTP-WebTest/lib/HTTP WebTest.pm.in,1.30,1.31

From: Ilya M. <m_...@us...> - 2003-03-23 20:06:56

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP
In directory sc8-pr-cvs1:/tmp/cvs-serv16643

Modified Files:
	WebTest.pm.in 
Log Message:
Added HTTP::WebTest::Plugin::TagAttTest to listing of third-party modules


Index: WebTest.pm.in
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** WebTest.pm.in	2 Mar 2003 11:52:10 -0000	1.30
--- WebTest.pm.in	23 Mar 2003 20:06:47 -0000	1.31
***************
*** 451,454 ****
--- 451,458 ----
  This plugin supports testing web files using a local instance of Apache.
  
+ =item L<HTTP::WebTest::Plugin::TagAttTest|HTTP::WebTest::Plugin::TagAttTest>
+ 
+ This plugin allows to forbid or require tags and/or attributes in a web page.
+ 
  =item L<HTTP::WebTest::Plugin::DateTest|HTTP::WebTest::Plugin::DateTest>

[Http-webtest-commits] HTTP-WebTest Changes,1.72,1.73

From: Ilya M. <m_...@us...> - 2003-03-22 12:27:02

Update of /cvsroot/http-webtest/HTTP-WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv18802

Modified Files:
	Changes 
Log Message:
Updated


Index: Changes
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v
retrieving revision 1.72
retrieving revision 1.73
diff -C2 -d -r1.72 -r1.73
*** Changes	2 Mar 2003 11:42:21 -0000	1.72
--- Changes	22 Mar 2003 12:27:00 -0000	1.73
***************
*** 3,6 ****
--- 3,14 ----
  Revision history for Perl module HTTP::WebTest.
  
+ CURRENT VERSION
+ 
+ BUG FIXES:
+ 
+ * Fixed bug when test reports were not send when multiple email
+ addresses were specified as test report recipients (test parameter
+ 'mail_addresses').  Thanks to Amit Kaul for a bugreport and a patch.
+ 
  2.01 Sun Mar  2 2003

[Http-webtest-commits] HTTP-WebTest/lib/HTTP/WebTest ReportPlugin.pm,1.6,1.7

From: Ilya M. <m_...@us...> - 2003-03-22 12:26:41

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv18665/lib/HTTP/WebTest

Modified Files:
	ReportPlugin.pm 
Log Message:
Fix bug when sending report to multiple recipients. Thanks to Amit
Kaul for bug report and patch.

Also refactored the code a bit.


Index: ReportPlugin.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/ReportPlugin.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ReportPlugin.pm	2 Mar 2003 11:52:10 -0000	1.6
--- ReportPlugin.pm	22 Mar 2003 12:26:35 -0000	1.7
***************
*** 216,249 ****
      my $self = shift;
  
!     $self->global_validate_params(qw(mail_addresses mail
!                                      mail_server mail_from));
  
!     my $mail_addresses = $self->global_test_param('mail_addresses');
!     my $mail           = $self->global_test_param('mail');
!     my $mail_server    = $self->global_test_param('mail_server');
!     my $mail_from      = $self->global_test_param('mail_from');
  
!     my $num_fail = $self->webtest->num_fail;
  
      # check if we need to mail report
!     return unless $mail;
!     return unless $mail eq 'all' or $mail eq 'errors';
!     return if $mail eq 'errors' and $num_fail == 0;
  
!     # mail report
!     my $smtp = Net::SMTP->new($mail_server || 'localhost');
      die "HTTP::WebTest: Can't create Net::SMTP object"
  	unless defined $smtp;
      my $from = $mail_from || getlogin() || getpwuid($<) || 'nobody';
!     my $to = join ', ', @$mail_addresses;
      $self->_smtp_cmd($smtp, 'mail', $from);
!     $self->_smtp_cmd($smtp, 'to', $to);
      $self->_smtp_cmd($smtp, 'data');
      $self->_smtp_cmd($smtp, 'datasend', "From: $from\n");
!     $self->_smtp_cmd($smtp, 'datasend', "To: $to\n");
!     if ($num_fail > 0) {
  	$self->_smtp_cmd($smtp, 'datasend',
! 			 "Subject: WEB TESTS FAILED! " .
! 			 "FOUND $num_fail ERROR(S)\n");
      } else {
  	$self->_smtp_cmd($smtp, 'datasend',
--- 216,270 ----
      my $self = shift;
  
!     if($self->_email_report_is_expected) {
!         $self->_send_email_report;
!     }
! }
  
! # check if we need to mail report
! sub _email_report_is_expected {
!     my $self = shift;
  
!     $self->global_validate_params(qw(mail));
! 
!     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;
! }
! 
! # sends test report on email
! sub _send_email_report {
!     my $self = shift;
! 
!     $self->global_validate_params(qw(mail_addresses mail_server mail_from));
! 
!     my $mail_addresses = $self->global_test_param('mail_addresses');
!     my $mail_server    = $self->global_test_param('mail_server', 'localhost');
!     my $mail_from      = $self->global_test_param('mail_from');
! 
!     my $smtp = Net::SMTP->new($mail_server);
      die "HTTP::WebTest: Can't create Net::SMTP object"
  	unless defined $smtp;
+ 
      my $from = $mail_from || getlogin() || getpwuid($<) || 'nobody';
! 
      $self->_smtp_cmd($smtp, 'mail', $from);
!     $self->_smtp_cmd($smtp, 'to', @$mail_addresses);
      $self->_smtp_cmd($smtp, 'data');
      $self->_smtp_cmd($smtp, 'datasend', "From: $from\n");
!     {
!         local $" = ', ';
!         $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',

[Http-webtest-commits] HTTP-WebTest-Recorder Makefile.PL,1.5,1.6

From: Ilya M. <m_...@us...> - 2003-03-14 12:09:59

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv797

Modified Files:
	Makefile.PL 
Log Message:
Update requirements

Index: Makefile.PL
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/Makefile.PL,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Makefile.PL	4 Mar 2003 13:26:13 -0000	1.5
--- Makefile.PL	14 Mar 2003 12:09:54 -0000	1.6
***************
*** 17,21 ****
                                   'HTTP::WebTest'                => 2.01,
                                   'POE'                          => 0.22,
!                                  'POE::Component::Client::HTTP' => 0,
                                   'Template'                     => 2.00,
                                   'Test::Exception'              => 0.03 },
--- 17,21 ----
                                   'HTTP::WebTest'                => 2.01,
                                   'POE'                          => 0.22,
!                                  'POE::Component::Client::HTTP' => 0.52,
                                   'Template'                     => 2.00,
                                   'Test::Exception'              => 0.03 },

[Http-webtest-commits] HTTP-WebTest-Plugin-DateTest/t 03_timeunits.t,1.3,1.4

From: Johannes la P. <joe...@us...> - 2003-03-06 17:42:29

Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv2862/t

Modified Files:
	03_timeunits.t 
Log Message:
fix for *argument isn't numeric* warning

Index: 03_timeunits.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t/03_timeunits.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 03_timeunits.t	26 Dec 2002 21:19:53 -0000	1.3
--- 03_timeunits.t	6 Mar 2003 17:42:24 -0000	1.4
***************
*** 1,3 ****
! use Test::More tests => 22;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
--- 1,3 ----
! use Test::More tests => 24;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
***************
*** 92,93 ****
--- 92,103 ----
  ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 's');
  is($ret, '653.74 s', "List context: $date seconds: '$ret'");
+ 
+ # invalid date value
+ $date = 'unknown';
+ ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date);
+ is($ret, 'unknown', "Invalid date: $date : '$ret'");
+ 
+ $date = 'unanticipated';
+ ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date);
+ is($ret, 'unknown', "Invalid date: $date : '$ret'");
+

[Http-webtest-commits] HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin DateTest.pm,1.5,1.6

From: Johannes la P. <joe...@us...> - 2003-03-06 17:42:28

Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv2862/lib/HTTP/WebTest/Plugin

Modified Files:
	DateTest.pm 
Log Message:
fix for *argument isn't numeric* warning

Index: DateTest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin/DateTest.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DateTest.pm	31 Dec 2002 15:46:12 -0000	1.5
--- DateTest.pm	6 Mar 2003 17:42:24 -0000	1.6
***************
*** 16,20 ****
  
   Version 1.00 - $Revision$
!  Compatible with L<HTTP::WebTest|HTTP::WebTest> 2.00
  
  =head1 SYNOPSIS
--- 16,21 ----
  
   Version 1.00 - $Revision$
! 
! Compatible with L<HTTP::WebTest|HTTP::WebTest> 2.x API
  
  =head1 SYNOPSIS
***************
*** 201,204 ****
--- 202,206 ----
  sub _seconds2str {
      my ($date, $units) = @_;
+     return 'unknown' unless ($date =~ /^[+-]?[\d\.]+$/);
      if (&TIMETAB($units)) {
        return ($units eq 's') ? "$date s"

Flat | Threaded

<< < 1 .. 3 4 5 6 7 .. 30 > >> (Page 5 of 30)

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