Badger::Test
- NAME
- SYNOPSIS
- DESCRIPTION
- EXPORTED SUBROUTINES
- plan($tests)
- ok($flag, $name)
- is($this, $that, $name)
- isnt($this, $that, $name)
- like($text, qr/regex/, $name)
- unlike($text, qr/regex/, $name)
- pass($name)
- fail($name)
- skip($reason)
- skip_all($reason)
- skip_some($number,$reason)
- skip_rest($reason)
- CLASS METHODS
- tests()
- manager()
- args(@args)
- summary()
- colour()
- color()
- debug_modules($modules)
- debugging($flag)
- trace($flag)
- all($flag)
- help()
- IMPORT HOOKS
- tests
- manager
- colour
- color
- args
- debug
- if_env
- PACKAGE VARIABLES
- $MANAGER
- $DEBUG
- $DEBUGGING
- AUTHOR
- COPYRIGHT
- SEE ALSO
use Badger::Test tests => 8, debug => 'My::Badger::Module Your::Badger::Module', args => \@ARGV; # -d in @ARGV will enable $DEBUG for My::Badger::Module # and Your::Badger::Module, as well as exporting a $DEBUG # flag here. -c will enable colour mode. # e.g. $ perl t/test.t -d -c ok( $bool, 'Test passes if $bool true' ); is( $one, $two, 'Test passes if $one eq $two' ); isnt( $one, $two, 'Test passes if $one ne $two' ); like( $one, qr/regex/, 'Test passes if $one =~ /regex/' ); unlike( $one, qr/regex/, 'Test passes if $one !~ /regex/' ); pass('This test always passes'); fail('This test always fails');
This module implements a simple test framework in the style of Test::Simple or Test::More. As well as the usual plan(), ok(), is(), isnt() and other subroutines you would expect to find, it also implements a number of import hooks to enable certain Badger-specific features.
The Badger::Test
module exports the following subroutines,
similar to those found in Test::Simple or Test::More.
Specify how many tests you plan to run. You can also specify this using the tests import hook.
plan(1);
Report on the success or failure of a test:
ok(1, 'This is good'); ok(0, 'This is bad');
Test if the first two arguments are equal.
is($this, $that, "This and that are equal");
Test if the first two arguments are not equal.
isnt($this, $that, "This and that are equal");
Test if the first argument is matched by the regex passed as the second argument.
like($this, qr/like that/i, "This and that are alike");
Test if the first argument is not matched by the regex passed as the second argument.
unlike($this, qr/like that/i, "This and that are unalike");
Skip all tests. This should be called instead of plan()
skip_all("We don't have that piece of scenery any more");
Skip a number of tests.
skip_some(11, "Hugeness of object understated");
The Badger::Test
module defines the following class methods
to access and/or configure the test framework.
This class method can be used to set the number of tests. It does the same thing as the plan() subroutine.
Badger::Test->tests(42);
Method to get or set the name of the backend test manager object class. This is defined in the $MANAGER package variable. The default manager is Badger::Test::Manager.
# defining a custom manager class Badger::Test->manager('My::Test::Manager');
This method can be used to set various testing options from command line arguments. It is typically called via the args import option.
use Badger::Test debug => 'My::Module', args => \@ARGV, tests => 42;
The method parses the arguments looking for the following options:
-d --debug Enable debugging -t --trace Enable stack tracing -c --colour/--color Enable colour output -s --summary Display summary of test results -h --help This help summary
Arguments can be passed as a list or reference to a list.
Badger::Test->args(@ARGV); # either Badger::Test->args(\@ARGV); # or
Any of the arguments listed above appearing at the start of the list will be removed from the list and acted upon. Processing will end as soon as an unrecognised argument is encountered.
Prints a summary of the test results. Delegates to Badger::Test::Manager method of the same name.
Method to enable or disable colour output.
Badger::Test->colour(1); # technicolor Badger::Test->colour(0); # monochrome
This method can be called to define one or more modules that should have
their $DEBUG
flag enabled when running in debug mode (i.e.
with the -d
command line option). This method is called by
the debug import hook.
Badger::Test->debug('My::Badger::Module');
Multiple modules can be specified in a single string or by reference to a list.
# whitespace-delimited string Badger::Test->debug('My::Badger::Module Your::Badger::Module'); # list reference Badger::Test->debug(['My::Badger::Module', 'Your::Badger::Module']);
This method simply stores the list of modules in the
$DEBUG_MODULES
package variable for the debugging() method to use.
This method enables or disables debugging for all modules named in the
$DEBUG_MODULES
list. It also sets the internal
$DEBUG
flag.
Badger::Test->debugging(1); # enable debugging Badger::Test->debugging(0); # disable debugging
This method enables or disables stack tracing in the Badger::Exception module.
The following import hooks are provided to allow you to load and
configure the Badger::Test
module in one fell swoop.
An import hook to define a different test manager module. See the manager() method.
use My::Test::Manager; use Badger::Test manager => 'My::Test::Manager';
An import hook to enable colour mode. See the colour() method.
use Badger::Test colour => 1;
This import hook can be used to feed the command line arguments to the args() method so that -d
and
-c
enable debugging and colour moes, respectively.
use Badger::Test args => \@ARGV;
An import hook to associate a list of module with our debugging mode. See the debug() method.
use Badger::Test debug => 'My::Badger::Module Your Badger::Module', args => \@ARGV;
This import hook can be used to automatically skip all the tests in a script unless a specific environment variable (or any from a list of variables) is defined. This is typically used to prevent certain test scripts from being run by end users (e.g. Pod coverage/kwalitee test scripts).
use Badger::Test tests => 5, args => \@ARGV, if_env => 'RELEASE_TESTING AUTOMATED_TESTING';
In this example the tests will only be run if either of the
RELEASE_TESTING
or AUTOMATED_TESTING
environment variables is set. However, specifying the -a
or
--all
command line option will force all tests to be run
regardless.
$ perl t/pod_coverage.t --all
This package variable stores the name of the manager class, Badger::Test::Manager by default.
The $DEBUG
package variable holds the name(s) of module(s)
for which debugging should be enabled, as defined via the debug() method.
Flag set true or false to indicate debugging mode is enabled or disabled. As set by the debugging() method.
Andy Wardley http://wardley.org/
Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.