NAME

Test::Lazy::Template

SYNOPSIS

Build a template for running a similar set of tests repeatedly.

The purpose of this module is to provide a convenient way of testing a set of initial conditions in different ways.

The best way to show this is in an example:

# Template up the intial condition template.
my $template = new Test::Lazy::Template([ 
	[ "qw/1/" ],
	[ "qw/a/" ],
	[ "qw/apple/" ],
	[ "qw/2/" ],
	[ "qw/0/" ],
	[ "qw/-1/" ],
	[ "map { \$_ => \$_ * 2 } qw/0 1 2 3 4/" ],
]);

# Run some different tests.
# NOTE: Don't have to use '%?' if the statement will run without modification.
$template->test("defined(%?)" => ok => undef);
$template->test("length(%?) >= 1" => ok => undef);
$template->test("length(%?)" => '>=' => 1);
$template->test("length(%?)" => '<' => 10);
$template->test([
	[ '%?' => is => 1 ],
	[ is => 'a' ],
	[ is => 'apple' ],
	[ is => 2 ],
	[ is => 0 ],
	[ is => is => -1 ],
	[ is => { 0 => 0, 1 => 2, 2 => 4, 3 => 6, 4 => 8 } ],
]);

METHODS

Test::Lazy::Template->new( <template> )

Test::Lazy::Template->new( <test>, <test>, ..., <test> )

Create a new Test::Lazy::Template object using the giving test specification.

If <template> is a SCALAR reference, then new will split <template> on each newline, ignoring empty lines and lines beginning with a pound (#).

	# You could do something like this:
	my $template = template(\<<_END_);
qw/1/
qw/a/
qw/apple/
qw/2/
qw/0/
qw/-1/

# Let's test this one too.
map { \$_ => \$_ * 2 } qw/0 1 2 3 4/
_END_

Returns the new Test::Lazy::Template object

$template->test( <template> )

For each test in $template, modify and run each the test according to the corresponding entry in <template>.

$template->test( <test> )

Modify and then run each test in $template by using <test> to complete each test's specification.