http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv24697/lib/HTTP/WebTest/Plugin

Modified Files:
	StatusTest.pm 
Log Message:
Added test parameter 'status_code'


Index: StatusTest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/StatusTest.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** StatusTest.pm	21 Jun 2002 06:48:16 -0000	1.4
--- StatusTest.pm	17 Aug 2002 09:42:54 -0000	1.5
***************
*** 25,42 ****
  =head1 TEST PARAMETERS
  
! None.
  
  =cut
  
  sub check_response {
      my $self = shift;
  
      my $code = $self->webtest->last_response->code;
      my $status_line = $self->webtest->last_response->status_line;
  
!     my $ok = $code eq RC_OK;
      my $comment = $status_line;
  
!     return ['Status code check', $self->test_result($ok, $comment)];
  }
  
--- 25,59 ----
  =head1 TEST PARAMETERS
  
! =for pod_merge copy opt_params
! 
! =head2 status_code
! 
! Given numeric HTTP Status Code, tests response returned that value.
! 
! =head3 Default value
! 
! C<200> (OK).
  
  =cut
  
+ sub param_types {
+   return q(status_code scalar);
+ }
+ 
  sub check_response {
      my $self = shift;
  
+     $self->validate_params(qw(status_code));
+ 
      my $code = $self->webtest->last_response->code;
      my $status_line = $self->webtest->last_response->status_line;
  
!     my $expected_code = $self->test_param('status_code', RC_OK);
!     my $ok = $code eq $expected_code;
! 
      my $comment = $status_line;
  
!     return ["Status code check ($expected_code)",
! 	    $self->test_result($ok, $comment)];
  }