NAME
Test::Effects - Test all effects at once (return value, I/O, warnings, exceptions, etc.)
VERSION
This document describes Test::Effects version 0.002000
SYNOPSIS
use Test::Effects;
# Test all possible detectable side-effects of some code...
effects_ok { your_code_here() }
{
return => $expected_scalar_context_return_value,
warn => qr/match expected warning text/,
stdout => '', # i.e. Doesn't print anything.
}
=> 'Description of test';
# Test only specifically requested side-effects of some code...
effects_ok { your_code_here() }
ONLY {
return => \@expected_list_context_return_values,
stderr => 'Expected output to STDERR',
die => undef, # i.e. Doesn't die.
exit => undef, # i.e. Doesn't exit either.
}
=> 'Description of test';
# Test that some code has no detectable side-effects...
effects_ok { your_code_here() };
DESCRIPTION
Test::Effects provides a single exported subroutine: effects_ok
This sub expects a block of code (or sub ref) as its first argument, followed by an optional hash ref as its second, and an optional string as its third.
The first argument specifies some code to be tested. This code is run in void context by default, but may instead be called in either list or scalar context, depending on the test specification provided by the second argument. The block is run within a call to Test::Trap::trap()
, so all warnings, exceptions, output, and exit attempts are trapped. The block may contain calls to other Test::Builder-based testing modules; these are handled correctly within the overall test.
The second argument is a hash reference, whose entries specify the expected side-effects of executing the block. You specify the name of the side-effect you're interested in as the key, and the "effect" you expected as the value. Side-effects that are not explicitly specified are automatically tested for default behaviour (e.g. no warnings, no exceptions, no output, not call to exit()
, etc. If the entire hash is omitted, all possible side-effects are tested for default behaviour (in other words, did the block of code have no side-effects whatsoever?)
The third argument is the overall description of the test (i.e. the usual final argument for Perl tests). If omitted, effects_ok()
generates a description based on the line number at which it was called.
INTERFACE
use Test::Effects;
Loads the module, and exports the effects_ok()
, VERBOSE()
, ONLY()
, and TIME()
subroutines (see below). Also exports the standard interface from the Test::More module.
use Test::Effects tests => $N;
Exactly the same as:
use Test::More tests => $N;
In fact, use Test::Effects
can take all the same arguments as use Test::More
.
use Test::Effects import => [':minimal'];
Only export the effects_ok()
subroutine.
Do not export VERBOSE()
, ONLY()
, TIME()
, or any of the Test::More interface.
use Test::Effects import => [':more'];
Only export the effects_ok()
subroutine and the Test::More interface
Do not export VERBOSE()
, ONLY()
, or TIME()
.
effects_ok {BLOCK} {EFFECTS_HASH} => 'TEST_DESCRIPTION';
Test the code in the block, ensuring that the side-effects named by the keys of the hash match the corresponding hash values. Both the hash and the description arguments are optional.
The effects that can be specified as key/value pairs in the hash are:
void_return => undef
-
Call the block in void context.
return => $ARRAY_REFERENCE
list_return => $ANY_SCALAR_VALUE
-
Call the block in list context. The final value evaluated in the block should (deeply) match the specified array ref or scalar value of the option.
return => $NON_ARRAYREF
scalar_return => $ANY_SCALAR_VALUE
-
Call the block in scalar context. The final value evaluated in block should match the specified scalar value of the option.
stdout => $STRING
-
What the block wrote to
STDOUT
should beeq
to $STRING. stdout => $REGEX
-
What the block wrote to
STDOUT
should be match $REGEX. stdout => $CODE_REF
-
The subroutine specified by the code ref should return true when passed what the block wrote to
STDOUT
.The subroutine can call nested tests (such as Test::More's
is
) or Test::Tolerant'sis_tol
) and these will be correctly handled. stderr => $STRING
stderr => $REGEX
stderr => $CODE_REF
-
What the block writes to
STDERR
should "match" the specified value (eithereq
, or=~
, or return true when passed as an argument).Note that, if this option is not specified, but the
'warn'
option (see below) is specified, then this option defaults to the value of the'warn'
option. warn => $STRING
warn => $REGEX
warn => $CODE_REF
warn => [ $STRING1, $REGEX2, $CODE_REF3, $ETC ]
-
The block should issue the specified number of warnings, and each of these warnings should match the corresponding value specified, in the order specified.
die => $STRING
die => $REGEX
die => $CODE_REF
-
The block should raise an exception, which should match the value specified.
Note: when using OO exceptions, use a code ref to test them:
die => sub { shift->isa('X::BadData') }
You can also use Test::More-ish tests, if you prefer:
die => sub { isa_ok(shift, 'X::BadData') }
exit => $NUMBER
exit => $REGEX
exit => $CODE_REF
-
The block should call
exit()
and the exit code should match the value specified. timing => { min => $MIN_SEC, max => $MAX_SEC }
timing => [$MIN_SEC, $MAX_SEC]
timing => $MAX_SEC
-
This option performs a separate timing measurment for the block, by running it multiple times over at least 1 cpu-second and averaging the times required for each run (i.e. like the Benchmark module does).
When passed a hash reference, the
'min'
and'max'
entries specify the range of allowable timings (in seconds) for the block. For example:# Test our new snooze() function... effects_ok { snooze(1.5, plus_or_minus=>0.2); } { timing => { min => 1.3, max => 1.7 }, } => 'snooze() slept about the right amount of time';
The default for
'min'
is zero seconds; the default for'max'
is eternity.If you use an array reference instead of a hash reference, the first value in the array is taken as the minimum time, and the final value is taken as the maximum allowed time. Hence the above time specification could also be written:
timing => [ 1.3, 1.7 ],
But don't write:
timing => [ 1.3 .. 1.7 ],
(unless your limits are integers), because Perl truncates the bounds of a range, so it treats
[1.3 .. 1.7]
as[1 .. 1]
.If you use a number instead of a reference, then number is taken as the maximum time allowed:
timing => 3.2, # Same as: timing => { min => 0, max => 3.2 }
If you do not specify either time limit:
timing => {},
or:
timing => [],
then the "zero-to-eternity" defaults are used and
effects_ok()
simply times the block and reports the timing (as a success).Note that the timings measured using this option are considerably more accurate than those produced by the
TIME => 1
option (see below), but also take significantly longer to measure.
Other configuration options that can be specified as key/value pairs in the hash are:
VERBOSE => $BOOLEAN
-
If the value is true, all side-effect tests are reported individually (running them in a subtest).
When this option is false (or omitted) only the overall result, plus any individual failures, are reported.
ONLY => $BOOLEAN
-
If the value is true, only the effects explicitly requested by the other keys of this hash are tested for. In other words, this option causes
effects_ok()
to omit the "default" tests for unnamed side-effects.When this option is false (or omitted) unspecified options are tested for their expected default behaviour.
TIME => $BOOLEAN
-
If the value is true, the block is timed as it is executed. The timing is reported in the final TAP line.
Note that this option is entirely independent of the
'timing'
option (which times the block repeatedly and then tests it against specified limits).In contrast, the
'TIME'
option merely times the block once, while it is being evaluated for the other tests. This is much less accurate, but also much faster and much less intrusive, when you merely want an rough indication of performance. WITHOUT => 'Module::Name'
WITHOUT => qr/Module::.*/
-
Execute the block as if the specified module (or all modules matching the specified pattern) were not installed.
WITHOUT => 'lib/path/'
WITHOUT => qr{lib/*}
-
Execute the block as if the specified library directory (or all directories matching the specified pattern) were not accessible.
The specified patch must include at least one slash (
/
), otherwise it will be interpreted as a module name (see above). You can always add a redundant slash at the end of the path, if necessary:WITHOUT => 'lib', # Test without the C<lib.pm> module WITHOUT => 'lib/', # Test without the C<lib> directory
VERBOSE $HASH_REF
A call to:
effects_ok { BLOCK }
VERBOSE { return => 0, stdout => 'ok' }
is just a shorthand for:
effects_ok { BLOCK }
{ return => 0, stdout => 'ok', VERBOSE => 1 }
ONLY $HASH_REF
A call such as:
effects_ok { BLOCK }
ONLY { return => 0, stdout => 'ok' }
is just a shorthand for:
effects_ok { BLOCK }
{ return => 0, stdout => 'ok', ONLY => 1 }
TIME $HASH_REF
A call such as:
effects_ok { BLOCK }
TIME { return => 0, stdout => 'ok' }
is just a shorthand for:
effects_ok { BLOCK }
{ return => 0, stdout => 'ok', TIME => 1 }
Note that the VERBOSE
, ONLY
, and TIME
subs can be "stacked" (in any combination and order):
effects_ok { BLOCK }
TIME ONLY VERBOSE { return => 0, stdout => 'ok' }
effects_ok { BLOCK }
VERBOSE ONLY { return => 0, stdout => 'ok' }
use Test::Effects::VERBOSE;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had a VERBOSE => 1
option set.
Note, however, that an explicit VERBOSE => 0
in any call in the scope overrides this default.
no Test::Effects::VERBOSE;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had a VERBOSE => 0
option set. Again, however, an explicit VERBOSE => 1
in any call in the scope overrides this default.
use Test::Effects::ONLY;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had a ONLY => 1
option set.
Note, however, that an explicit ONLY => 0
in any call in the scope overrides this default.
no Test::Effects::ONLY;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had a ONLY => 0
option set. Again, however, an explicit ONLY => 1
in any call in the scope overrides this default.
use Test::Effects::TIME;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had a TIME => 1
option set.
Note, however, that an explicit TIME => 0
in any call in the scope overrides this default.
no Test::Effects::TIME;
This causes every subsequent call to effects_ok()
in the current lexical scope to act as if it had no TIME => 0
option set. Again, however, an explicit TIME => 1
in any call in the scope overrides this default.
DIAGNOSTICS
Second argument to effects_ok() must be hash or hash reference, not %s
-
effects_ok()
expects a hash as its second argument, but you passed something else. This can happen if you forget to put braces around a single option, such as:effects_ok { test_code() } warn => qr/Missing arg/;
That needs to be:
effects_ok { test_code() } { warn => qr/Missing arg };
Or you may have accidentally used an array instead of a hash:
effects_ok { test_code() } [ warn => qr/Missing arg ];
That is not supported, as it is being reserved for a future feature.
"Invalid timing specification: timing => %s"
-
The
'timing'
option expects a hash reference, array reference, or a single number as its value. You specified some value that was something else (and whicheffects_ok()
therefore didn't understand).
CONFIGURATION AND ENVIRONMENT
Test::Effects requires no configuration files or environment variables.
DEPENDENCIES
Requires Perl 5.14 (or better).
Requires the Test::Trap module, v0.2.1 (or better).
INCOMPATIBILITIES
None reported.
BUGS AND LIMITATIONS
Ironically, the test suite for this module is as yet unsatisfactory. (T.D.D. Barbie says: "Testing test modules is HARD!")
No other bugs have been reported.
Please report any bugs or feature requests to bug-test-effects@rt.cpan.org
, or through the web interface at http://rt.cpan.org.
AUTHOR
Damian Conway <DCONWAY@CPAN.org>
LICENCE AND COPYRIGHT
Copyright (c) 2012, Damian Conway <DCONWAY@CPAN.org>
. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
DISCLAIMER OF WARRANTY
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.