http-webtest-commits

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

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

Modified Files:
	02-generic.t 
Log Message:
Added tests for 'user_agent'


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 02-generic.t	7 Feb 2002 23:34:25 -0000	1.2
--- 02-generic.t	12 Feb 2002 12:17:44 -0000	1.3
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 16 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 17 }
  
  # init tests
***************
*** 352,355 ****
--- 352,377 ----
  }
  
+ # 17: test user_agent parameter
+ {
+     my $version = HTTP::WebTest->VERSION;
+ 
+     my $tests = [ { url => abs_url($URL, '/show-agent'),
+ 		    text_require => [ "User agent: HTTP-WebTest/$version" ], },
+ 		  { url => abs_url($URL, '/show-agent'),
+ 		    user_agent => 'Test Test',
+ 		    text_require => [ "User agent: Test Test" ] }
+ 		];
+ 
+     my $out_filter = sub {
+ 	$_[0] =~ s|HTTP-WebTest/\Q$version\E|HTTP-WebTest/NN|g;
+     };
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  out_filtet => $out_filter,
+ 		  check_file => 't/test.out/user_agent');
+ }
+ 
  # try to stop server even we have been crashed
  END { stop_webserver($PID) if defined $PID }
***************
*** 426,429 ****
--- 448,461 ----
  	    }
  	}
+ 
+ 	# create response object
+ 	my $response = new HTTP::Response(RC_OK);
+ 	$response->header(Content_Type => 'text/plain');
+ 	$response->content($content);
+ 
+ 	# send it to browser
+ 	$connect->send_response($response);
+     } elsif($path eq '/show-agent') {
+ 	my $content = 'User agent: ' . $request->user_agent;
  
  	# create response object