http-webtest-commits

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

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

Modified Files:
	01-recorder.t 
Log Message:
Added filtering of requests


Index: 01-recorder.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/01-recorder.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 01-recorder.t	25 Jan 2003 18:24:27 -0000	1.6
--- 01-recorder.t	13 Feb 2003 11:26:30 -0000	1.7
***************
*** 8,12 ****
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 44;
  
  # get test template files directory included in search path
--- 8,12 ----
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 46;
  
  # get test template files directory included in search path
***************
*** 162,165 ****
--- 162,182 ----
                  method => 'POST' },
                'Check test params for POST with params');
+ }
+ 
+ # test filtering of requests
+ {
+     my $recorder = new HTTP::WebTest::Recorder;
+     $recorder->is_recording(1);
+     $recorder->filter({ header => { Content_Type => qr|text/html| } });
+     my $request = GET abs_url($URL, '/content-type/text/plain');
+     $recorder->handle($request);
+     is(@{$recorder->tests}, 0,
+        'Test if request to plain text file is not recorded');
+ 
+     $recorder->tests([]);
+     $request = GET abs_url($URL, '/content-type/text/html');
+     $recorder->handle($request);
+     is(@{$recorder->tests}, 1,
+        'Test if request to html text file is recorded');
  }