http-webtest-commits

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

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