[Http-webtest-commits] HTTP-WebTest-Recorder/t 03-actions.t,1.4,1.5

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

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

Modified Files:
	03-actions.t 
Log Message:
Added tests for delete_action()


Index: 03-actions.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/03-actions.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 03-actions.t	2 Feb 2003 17:27:41 -0000	1.4
--- 03-actions.t	4 Apr 2003 21:05:40 -0000	1.5
***************
*** 6,10 ****
  use HTTP::Status;
  
! use Test::More tests => 32;
  use Test::Exception;
  
--- 6,10 ----
  use HTTP::Status;
  
! use Test::More tests => 39;
  use Test::Exception;
  
***************
*** 187,189 ****
--- 187,207 ----
      is($data{content}, $RECORDER->tests->[0]->response->content,
         "Test if action doesn't die and returns response content");
+ }
+ 
+ # test delete_action()
+ {
+     $CONTROLLER->cgi(CGI->new({num => 2}));
+     dies_ok { delete_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is(@{$RECORDER->tests}, 2, 'Check number of tests');
+ 
+     $CONTROLLER->cgi(CGI->new({num => 0}));
+     dies_ok { delete_action($CONTROLLER) } 'Expect redirect';
+     isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
+            'Verify exception class');
+     is(@{$RECORDER->tests}, 1, 'Check number of tests');
+ 
+     is($RECORDER->tests->[0]->request->method, 'POST',
+        'Test if 2nd request/response pair was not deleted');
  }