Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory usw-pr-cvs1:/tmp/cvs-serv18404/t
Modified Files:
02-generic.t
Log Message:
Added test for Content-Type header value in POST requests
Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 02-generic.t 16 Feb 2002 00:36:35 -0000 1.7
--- 02-generic.t 11 May 2002 18:47:49 -0000 1.8
***************
*** 18,22 ****
use vars qw($HOSTNAME $PORT $URL);
! BEGIN { plan tests => 22 }
# init tests
--- 18,22 ----
use vars qw($HOSTNAME $PORT $URL);
! BEGIN { plan tests => 23 }
# init tests
***************
*** 427,430 ****
--- 427,445 ----
}
+ # 23: test if we are setting content type header correctly for POST
+ # requests
+ {
+ my $tests = [ { url => abs_url($URL, '/show-headers'),
+ method => 'post',
+ text_require => [ 'Content-Type: ' .
+ 'application/x-www-form-urlencoded' ] },
+ ];
+
+ check_webtest(webtest => $WEBTEST,
+ server_url => $URL,
+ tests => $tests,
+ check_file => 't/test.out/content-type');
+ }
+
# try to stop server even we have been crashed
END { stop_webserver($PID) if defined $PID }
***************
*** 501,504 ****
--- 516,529 ----
}
}
+
+ # 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-headers') {
+ my $content = $request->headers_as_string;
# create response object
|
