HTML::Mason::Tests (3)
Leading comments
Automatically generated by Pod::Man 2.28 (Pod::Simple 3.28) Standard preamble: ========================================================================
NAME
HTML::Mason::Tests - Test harness for testing MasonSYNOPSIS
use HTML::Mason::Tests; my $group = HTML::Mason::Tests->new( name => 'name of group', description => 'tests something' ); $group->add_test( name => 'foo', description => 'tests foo', component => <<'EOF' <%args> $foo => 1 </%args> <% $foo %> EOF expect => <<'EOF', 1 EOF ); $group->run;
DESCRIPTION
This module is designed to automate as much as possible of the Mason test suite. It does tasks like write component files to disk, call them, compare the actual results to the expected results, and more. In addition, it also is capable of printing out useful information about test failures when run in verbose mode. See theIt also makes sure that any given group of tests provides all the information needed to run them (test names, components and results, etc.).
Now you have no excuse for writing new tests (and that goes double for me!).
METHODS
new
Takes the following parameters:- *
-
name (required)
The name of the entire group of tests.
- *
-
description (required)
What this group tests.
- *
-
pre_test_cleanup (optional, default=1)
If this is true (the default), the component root and data directory will be deleted both before and after running tests.
add_support
Takes the following parameters:- *
-
path (required)
The path that other components will expect this component to be reachable at. All paths are prepended with the group name. So '/bar' as a support component in the 'foo' group's ultimate path would be '/foo/bar'.
- *
-
component
Text of the support component. This parameter must have a value unless the skip_component parameter is true.
- *
-
skip_component
If true, then the test harness will not write a component to disk for this test.
add_test
Takes the following parameters:- *
-
name (required)
The name of this test.
- *
-
description (required)
What this test is testing.
- *
-
component (required)
Text of the component.
- *
-
path (optional)
The path that this component should written to. As with support components, this path is prepended with the group's name. If no path is given, it uses call_path, if given, otherwise it uses the name parameter.
- *
-
call_path (optional)
The path that should be used to call the component. If none is given, it will be /<group name>/<test name>. If a value is given, it is still prepended by /<group name>/.
- *
-
call_args (optional)
The arguments that should be passed to the component, in list or hash reference form. If none is given, no arguments are passed.
- *
-
compiler_params
This is a hash reference of parameters to be passed to the Compiler->new method.
- *
-
interp_params
This is a hash reference of parameters to be passed to the Interp->new method.
- *
-
interp
Provide an HTML::Mason::Interp object to be used for the test.
- *
-
todo
If this is given, the test will be treated as a todo test, so it will be expected to fail. This should be a string.
One of the following three options is required:
- *
-
expect
The text expected as a result of calling the component. This parameter is _not_ required when running in Create mode.
- *
-
expect_error
A regex that will be matched against the error returned from the component execution.
- *
-
no_warnings
If true, this means that the test expects to run without generating any warnings. If warnings are generated, the test fails.
- *
-
expect_warnings
A regex that will be matched against any warnings output when running the component.
- *
-
skip_expect
This causes the component to be run but its output is ignored. However, if the component execution causes an error this will cause the test to fail. This is used in a few situations where it is necessary to just run a component as part the preparation for another test.
run
Run the tests in the group.Class methods
These methods are provided since some tests may need to know these values.base_path
The base path under which the component root and data directory for the tests are created.comp_root
Returns the component root directory.data_dir
Return the data directorycheck_output ( actual => $actual_output, expect => $expected_output )
Given the parameters shown above, this method will check to see if the two are equal. If they're not equal, it will print out an error message attempting to highlight the difference.ADDITIONAL RUN MODES
The following additional modes are available for running tests.Verbose mode
To turn this on, set the environment variablesDebug mode
To turn this on, set thecleanup mode
Setting theCreate mode
If the individual tests are run from the command line with the '--create' flag, then instead of checking the output of a component, the test harness will simply output its results. This allows you to cut and paste these results back into the test file (assuming they are correct!).Running and/or skipping selected tests
You can run just some of a test file with the '--tests-to-run' flag or theThe value of either flag is a comma-separated list of one or more of
[test_file_name:](test_number|test_name|*)
e.g.
perl ./01-syntax.t --tests-to-run=3,5 MASON_TESTS_TO_SKIP=fake_percent,empty_percents perl ./01-syntax.t MASON_TESTS_TO_RUN="misc:autohandler, request:*, interp:private1" make test
Subclassing this module
You can run tests with your own Tests.pm subclass using the '--tests-class' flag or the
perl ./01-syntax.t --tests-class=HTML::Mason::Tests::MyTests MASON_TESTS_CLASS=HTML::Mason::Tests::MyTests make test
For example, if you have created your own lexer subclass and want to make sure that tests still pass with it, create a Tests subclass that overrides the _make_interp method to use your subclass:
sub _make_interp { my ($self, %interp_params) = @_; return HTML::Mason::Interp->new ( lexer_class => HTML::Mason::MyLexer, %interp_params ); }