http-webtest-commits

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

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

Modified Files:
	06-action-wtscript.t 01-recorder.t 
Log Message:
Updated


Index: 06-action-wtscript.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/06-action-wtscript.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 06-action-wtscript.t	25 Jan 2003 14:54:51 -0000	1.3
--- 06-action-wtscript.t	25 Jan 2003 18:24:27 -0000	1.4
***************
*** 5,9 ****
  use HTTP::Request::Common;
  use HTTP::Status;
- use HTTP::WebTest::Test;
  
  use Test::More tests => 7;
--- 5,8 ----
***************
*** 24,44 ****
  # init recorder with some data
  {
!     my $test1 = HTTP::WebTest::Test->new;
!     $test1->request(GET 'http://example.com/doc1.html');
!     $test1->response(HTTP::Response->new(RC_OK));
!     $test1->response->content('DOC #1');
! 
!     my $test2 = HTTP::WebTest::Test->new;
!     $test2->request(POST 'http://example.com/doc2.html',
!                     [ xx => 'yy', 1 => 2]);
!     $test2->response(HTTP::Response->new(RC_NOT_FOUND));
!     $test2->response->content('Not Found');
! 
!     my $test3 = HTTP::WebTest::Test->new;
!     $test3->request(GET 'http://example.com/doc3.html?a=b&a=c');
!     $test3->response(HTTP::Response->new(RC_OK));
!     $test3->response->content('DOC #2');
! 
!     push @{$RECORDER->tests}, $test1, $test2, $test3;
  }
  
--- 23,43 ----
  # init recorder with some data
  {
!     my $request = GET 'http://example.com/doc1.html';
!     my $response = HTTP::Response->new(RC_OK);
!     $response->content('DOC #1');
!     push @{$RECORDER->tests}, $RECORDER->make_test($request, $response);
! }
! {
!     my $request = (POST 'http://example.com/doc2.html',
!                    [ xx => 'yy', 1 => 2]);
!     my $response = HTTP::Response->new(RC_NOT_FOUND);
!     $response->content('Not Found');
!     push @{$RECORDER->tests}, $RECORDER->make_test($request, $response);
! }
! {
!     my $request = GET 'http://example.com/doc3.html?a=b&a=c';
!     my $response = HTTP::Response->new(RC_OK);
!     $response->content('DOC #2');
!     push @{$RECORDER->tests}, $RECORDER->make_test($request, $response);
  }
  
***************
*** 52,68 ****
  
  test_name = N/A
-     url = http://example.com/doc2.html
      method = POST
      params = (
!                xx => yy
!                1 => 2
               )
  end_test
  
  test_name = N/A
-     url = http://example.com/doc3.html
      params = (
!                a => b
               )
  end_test
  WTSCRIPT
--- 51,72 ----
  
  test_name = N/A
      method = POST
      params = (
!                xx
!                yy
!                1
!                2
               )
+     url = http://example.com/doc2.html
  end_test
  
  test_name = N/A
      params = (
!                a
!                b
!                a
!                c
               )
+     url = http://example.com/doc3.html
  end_test
  WTSCRIPT

Index: 01-recorder.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/01-recorder.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 01-recorder.t	25 Jan 2003 14:54:51 -0000	1.5
--- 01-recorder.t	25 Jan 2003 18:24:27 -0000	1.6
***************
*** 8,12 ****
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 40;
  
  # get test template files directory included in search path
--- 8,12 ----
  use HTTP::WebTest::SelfTest;
  
! use Test::More tests => 44;
  
  # get test template files directory included in search path
***************
*** 129,132 ****
--- 129,165 ----
               'Check content of response');
      }
+ }
+ 
+ # test recorder's ability to turn request/response pair into the test
+ {
+     my $recorder = new HTTP::WebTest::Recorder;
+     $recorder->is_recording(1);
+     my $request = GET abs_url($URL, '/test-file1');
+     $recorder->handle($request);
+     is_deeply($recorder->tests->[0]->params,
+               { url => $request->uri->as_string },
+               'Check test params for simple GET');
+ 
+     $request = POST abs_url($URL, '/test-file1');
+     $recorder->handle($request);
+     is_deeply($recorder->tests->[1]->params,
+               { url    => $request->uri->as_string,
+                 method => 'POST' },
+               'Check test params for simple POST');
+ 
+     $request = GET abs_url($URL, '/test-file1?a=b&c=d');
+     $recorder->handle($request);
+     is_deeply($recorder->tests->[2]->params,
+               { url    => abs_url($URL, '/test-file1')->as_string,
+                 params => [ a => 'b', c => 'd' ] },
+               'Check test params for GET with params)');
+ 
+     $request = POST abs_url($URL, '/test-file1'), [ xx => 'yy' ];
+     $recorder->handle($request);
+     is_deeply($recorder->tests->[3]->params,
+               { url    => $request->uri->as_string,
+                 params => [ xx => 'yy' ],
+                 method => 'POST' },
+               'Check test params for POST with params');
  }