http-webtest-commits

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

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

Modified Files:
	03-actions.t 
Log Message:
Export action subs from Actions.pm


Index: 03-actions.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/03-actions.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 03-actions.t	1 Feb 2003 22:29:58 -0000	1.1
--- 03-actions.t	1 Feb 2003 22:40:07 -0000	1.2
***************
*** 12,16 ****
  use lib 't';
  
! require_ok('HTTP::WebTest::Recorder::Actions');
  require_ok('HTTP::WebTest::Recorder::Controller');
  require_ok('HTTP::WebTest::Recorder');
--- 12,16 ----
  use lib 't';
  
! BEGIN { use_ok('HTTP::WebTest::Recorder::Actions', ':all') }
  require_ok('HTTP::WebTest::Recorder::Controller');
  require_ok('HTTP::WebTest::Recorder');
***************
*** 25,29 ****
  # test default_action()
  {
!     is_deeply([HTTP::WebTest::Recorder::Actions::default_action($CONTROLLER)],
                [controller => $CONTROLLER],
                'Test template_data()');
--- 25,29 ----
  # test default_action()
  {
!     is_deeply([default_action($CONTROLLER)],
                [controller => $CONTROLLER],
                'Test template_data()');
***************
*** 32,36 ****
  # test list_action()
  {
!     my %data = HTTP::WebTest::Recorder::Actions::list_action($CONTROLLER);
      is($data{tests}, $RECORDER->tests,
         'Check if "tests" variable is defined');
--- 32,36 ----
  # test list_action()
  {
!     my %data = list_action($CONTROLLER);
      is($data{tests}, $RECORDER->tests,
         'Check if "tests" variable is defined');
***************
*** 56,70 ****
  {
      $CONTROLLER->cgi(CGI->new({num => 0}));
!     my %data = HTTP::WebTest::Recorder::Actions::request_action($CONTROLLER);
      is($data{test}, $RECORDER->tests->[0],
         'Check if "test" variable is defined');
  
      $CONTROLLER->cgi(CGI->new({num => 1}));
!     %data = HTTP::WebTest::Recorder::Actions::request_action($CONTROLLER);
      is($data{test}, $RECORDER->tests->[1],
         'Check if "test" variable is defined');
  
      $CONTROLLER->cgi(CGI->new({num => 2}));
!     %data = HTTP::WebTest::Recorder::Actions::request_action($CONTROLLER);
      is($data{test}, undef,
         'Check if "test" variable is not defined');
--- 56,70 ----
  {
      $CONTROLLER->cgi(CGI->new({num => 0}));
!     my %data = request_action($CONTROLLER);
      is($data{test}, $RECORDER->tests->[0],
         'Check if "test" variable is defined');
  
      $CONTROLLER->cgi(CGI->new({num => 1}));
!     %data = request_action($CONTROLLER);
      is($data{test}, $RECORDER->tests->[1],
         'Check if "test" variable is defined');
  
      $CONTROLLER->cgi(CGI->new({num => 2}));
!     %data = request_action($CONTROLLER);
      is($data{test}, undef,
         'Check if "test" variable is not defined');
***************
*** 95,99 ****
  # test wtscript_action()
  {
!     my %data = HTTP::WebTest::Recorder::Actions::wtscript_action($CONTROLLER);
      is($data{wtscript}, <<'WTSCRIPT',
  test_name = N/A
--- 95,99 ----
  # test wtscript_action()
  {
!     my %data = wtscript_action($CONTROLLER);
      is($data{wtscript}, <<'WTSCRIPT',
  test_name = N/A
***************
*** 128,133 ****
  {
      $CONTROLLER->cgi(CGI->new({ enable => 1 }));
!     dies_ok { HTTP::WebTest::Recorder::Actions::enable_action($CONTROLLER) }
!         'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
--- 128,132 ----
  {
      $CONTROLLER->cgi(CGI->new({ enable => 1 }));
!     dies_ok { enable_action($CONTROLLER) } 'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
***************
*** 139,144 ****
  {
      $CONTROLLER->cgi(CGI->new({ enable => 0 }));
!     dies_ok { HTTP::WebTest::Recorder::Actions::enable_action($CONTROLLER) }
!         'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
--- 138,142 ----
  {
      $CONTROLLER->cgi(CGI->new({ enable => 0 }));
!     dies_ok { enable_action($CONTROLLER) } 'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
***************
*** 150,155 ****
  {
      $CONTROLLER->cgi(CGI->new({ enable => 1 }));
!     dies_ok { HTTP::WebTest::Recorder::Actions::enable_action($CONTROLLER) }
!         'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');
--- 148,152 ----
  {
      $CONTROLLER->cgi(CGI->new({ enable => 1 }));
!     dies_ok { enable_action($CONTROLLER) } 'Expect redirect';
      isa_ok($@, 'HTTP::WebTest::Recorder::Exception::Redirect',
             'Verify exception class');