[Http-webtest-commits] HTTP-WebTest-Recorder/t 01-recorder.t,1.7,1.8

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

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');
  }