[Http-webtest-commits] HTTP-WebTest-Recorder/t 03-actions.t,1.8,1.9

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

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

Modified Files:
	03-actions.t 
Log Message:
Don't test private API of Actions.pm


Index: 03-actions.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/03-actions.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 03-actions.t	22 Apr 2003 22:07:35 -0000	1.8
--- 03-actions.t	22 Apr 2003 22:18:08 -0000	1.9
***************
*** 6,10 ****
  use HTTP::Status;
  
! use Test::More tests => 48;
  
  # get test template files directory included in search path
--- 6,10 ----
  use HTTP::Status;
  
! use Test::More tests => 42;
  
  # get test template files directory included in search path
***************
*** 21,41 ****
  isa_ok($RECORDER, 'HTTP::WebTest::Recorder');
  $CONTROLLER->recorder($RECORDER);
- 
- # test HTTP::WebTest::Recorder::Actions::create_template()
- {
-     my $template = HTTP::WebTest::Recorder::Actions::create_template();
-     isa_ok($template, 'Template');
- 
-     my $output = '';
-     ok($template->process('testme', { var => 1 }, \$output),
-        'Try to process test template: ' . ($template->error || '') );
-     like($output, qr/This is a test file/, 'Check output');
-     like($output, qr/VAR = 1/, 'Check output');
- 
-     $output = '';
-     ok($template->process('testme', { var => 'xxx' }, \$output),
-        'Try to process test template: ' . ($template->error || '') );
-     like($output, qr/VAR = xxx/, 'Check output');
- }
  
  # test list_action()
--- 21,24 ----