http-webtest-commits

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

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

Modified Files:
	02-generic.t 
Log Message:
Updated


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** 02-generic.t	17 Aug 2002 09:41:07 -0000	1.12
--- 02-generic.t	17 Aug 2002 10:23:13 -0000	1.13
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 30 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 32 }
  
  # init tests
***************
*** 577,580 ****
--- 577,598 ----
  		  tests => $tests,
  		  check_file => 't/test.out/status-code');
+ }
+ 
+ # 31-32: test 'handle_redirects' test parameter
+ {
+     for my $bool (qw(yes no)) {
+ 	my $tests = [ { url => abs_url($URL, '/redirect'),
+ 			handle_redirects => $bool,
+ 			method => 'get' },
+ 		      { url => abs_url($URL, '/redirect'),
+ 			handle_redirects => $bool,
+ 			method => 'post' },
+ 		    ];
+ 
+ 	check_webtest(webtest => $WEBTEST,
+ 		      server_url => $URL,
+ 		      tests => $tests,
+ 		      check_file => "t/test.out/handle-redirects-$bool");
+     }
  }