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 ----
|
