Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv2941/t
Modified Files:
01-recorder.t
Log Message:
Tests for $DEFAULT_ACTION
Index: 01-recorder.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/01-recorder.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 01-recorder.t 13 Feb 2003 11:26:30 -0000 1.7
--- 01-recorder.t 7 Sep 2003 19:22:58 -0000 1.8
***************
*** 8,12 ****
use HTTP::WebTest::SelfTest;
! use Test::More tests => 46;
# get test template files directory included in search path
--- 8,12 ----
use HTTP::WebTest::SelfTest;
! use Test::More tests => 48;
# get test template files directory included in search path
***************
*** 115,118 ****
--- 115,131 ----
like($response->content, qr/This is a test file/,
'Check content of response');
+ }
+
+ # test handling of default page of proxy's web interface
+ {
+ use HTTP::WebTest::Recorder::Config qw($DEFAULT_ACTION);
+ $DEFAULT_ACTION = 'testme';
+ my $request1 = GET 'http://localhost/webtest/testme';
+ my $response1 = $RECORDER->handle($request1);
+ my $request2 = GET 'http://localhost/webtest/';
+ my $response2 = $RECORDER->handle($request2);
+ is($response2->code, RC_OK, 'Expect success code for default page');
+ is($response1->content, $response2->content,
+ 'Test content of default page');
}
|