[Http-webtest-commits] HTTP-WebTest/t 02-generic.t,1.26,1.27

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

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

Modified Files:
	02-generic.t 
Log Message:
Test if cookies are being sent in redirects


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** 02-generic.t	3 Jan 2003 22:32:32 -0000	1.26
--- 02-generic.t	3 Jul 2003 11:10:05 -0000	1.27
***************
*** 14,18 ****
  use HTTP::WebTest::Utils qw(start_webserver stop_webserver);
  
! use Test::More tests => 35;
  
  # init tests
--- 14,18 ----
  use HTTP::WebTest::Utils qw(start_webserver stop_webserver);
  
! use Test::More tests => 36;
  
  # init tests
***************
*** 660,663 ****
--- 660,688 ----
  }
  
+ # 36: test if cookies are being sent in redirects
+ SKIP: {
+     my $skip = $HOSTNAME !~ /\..*\./ ?
+ 	       'cannot test cookies - hostname does not contain two dots' :
+ 	       undef;
+     skip $skip, 1 if $skip;
+ 
+     # make sure previous tests do not cause side effects on this test
+     $WEBTEST->user_agent->cookie_jar->clear;
+ 
+     my $tests = [ { url => abs_url($URL, '/redirect'),
+                     cookies => [ [ name   => 'N001',
+                                    value  => 'V001',
+                                    path   => '/',
+                                    domain => $HOSTNAME ] ] },
+                   { url => abs_url($URL, '/redirect-show-cookies'),
+                     text_require => [ '<N001>=<V001>' ] }
+                 ];
+ 
+     check_webtest(webtest => $WEBTEST,
+                   server_url => $URL,
+                   tests => $tests,
+                   check_file => 't/test.out/cookies-in-redirect');
+ }
+ 
  # try to stop server even we have been crashed
  END { stop_webserver($PID) if defined $PID }
***************
*** 754,757 ****
--- 779,787 ----
  	my $response = new HTTP::Response(RC_FOUND);
  	$response->header(Location => '/test-file1');
+ 
+ 	$connect->send_response($response);
+     } elsif($path eq '/redirect-show-cookies') {
+ 	my $response = new HTTP::Response(RC_FOUND);
+ 	$response->header(Location => '/show-cookies');
  
  	$connect->send_response($response);