http-webtest-commits

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

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

Modified Files:
	01-recorder.t 
Log Message:
Tests for is_recording()


Index: 01-recorder.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/01-recorder.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 01-recorder.t	18 Jan 2003 16:34:03 -0000	1.3
--- 01-recorder.t	18 Jan 2003 17:04:45 -0000	1.4
***************
*** 8,12 ****
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 31;
  
  # get test template files directory included in search path
--- 8,12 ----
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 40;
  
  # get test template files directory included in search path
***************
*** 21,29 ****
  isa_ok($RECORDER, 'HTTP::WebTest::Recorder');
  
! # pass a couple of requests and see outcome
  {
      my $request1 = GET abs_url($URL, '/test-file1');
      my $request2 = POST abs_url($URL, '/unknown');
  
      my $response1 = $RECORDER->handle($request1);
      my $response2 = $RECORDER->handle($request2);
--- 21,50 ----
  isa_ok($RECORDER, 'HTTP::WebTest::Recorder');
  
! # test that recorder is empty and doesn't record anything while being
! # turned off
! {
!     is(@{$RECORDER->tests}, 0,
!        'Check if recorder is empty');
!     ok(not($RECORDER->is_recording),
!        'And it is turned off');
! 
!     my $request = GET abs_url($URL, '/test-file1');
!     my $response = $RECORDER->handle($request);
!     isa_ok($response, 'HTTP::Response');
!     is($response->code, RC_OK,
!        'First response should be successful');
!     like($response->content, qr/This is a test text file.*#1/s,
!          'Check response content');
! 
!     is(@{$RECORDER->tests}, 0,
!        'Check if recorder is still empty');
! }
! 
! # turn on record, pass a couple of requests and see outcome
  {
      my $request1 = GET abs_url($URL, '/test-file1');
      my $request2 = POST abs_url($URL, '/unknown');
  
+     $RECORDER->is_recording(1);
      my $response1 = $RECORDER->handle($request1);
      my $response2 = $RECORDER->handle($request2);
***************
*** 48,54 ****
--- 69,89 ----
  }
  
+ # turn off recorder again and check that it doesn't record anything
+ {
+     $RECORDER->is_recording(0);
+     my $request = GET abs_url($URL, '/unknown');
+     my $response = $RECORDER->handle($request);
+     isa_ok($response, 'HTTP::Response');
+     is($response->code, RC_NOT_FOUND,
+        'Expect not found for second response');
+ 
+     is(@{$RECORDER->tests}, 2,
+        'Check if number of recorded test cases have not change');
+ }
+ 
  # make sure that redirects are *not* handled automatically by LWP and
  # actually get recorded as it is
  {
+     $RECORDER->is_recording(1);
      my $request = GET abs_url($URL, '/redirect');
      my $response = $RECORDER->handle($request);