Top Close Open

Badger::Test - test module


Top Close Open
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');


Top Close Open

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.


Top Close Open

The Badger::Test module exports the following subroutines, similar to those found in Test::Simple or Test::More.


Top Close Open

Specify how many tests you plan to run. You can also specify this using the tests import hook.


ok($flag, $name)

Top Close Open

Report on the success or failure of a test:

ok(1, 'This is good');
ok(0, 'This is bad');

is($this, $that, $name)

Top Close Open

Test if the first two arguments are equal.

is($this, $that, "This and that are equal");

isnt($this, $that, $name)

Top Close Open

Test if the first two arguments are not equal.

isnt($this, $that, "This and that are equal");

like($text, qr/regex/, $name)

Top Close Open

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");

unlike($text, qr/regex/, $name)

Top Close Open

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");


Top Close Open

Pass a test.

pass('Module Loaded');


Top Close Open

Fail a test.

fail('Stonehenge in danger of being crushed by a dwarf');


Top Close Open

Skip a single test.

skip("That's just nit-picking isn't it?");


Top Close Open

Skip all tests. This should be called instead of plan()

skip_all("We don't have that piece of scenery any more");


Top Close Open

Skip a number of tests.

skip_some(11, "Hugeness of object understated");


Top Close Open

Skip any remaining tests.

skip_rest("Should have made a big thing out of it");


Top Close Open

The Badger::Test module defines the following class methods to access and/or configure the test framework.


Top Close Open

This class method can be used to set the number of tests. It does the same thing as the plan() subroutine.



Top Close Open

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


Top Close Open

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.


Top Close Open

Prints a summary of the test results. Delegates to Badger::Test::Manager method of the same name.


Top Close Open

Method to enable or disable colour output.

Badger::Test->colour(1);        # technicolor
Badger::Test->colour(0);        # monochrome


Top Close Open

An alias for colour().


Top Close Open

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.


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.


Top Close Open

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


Top Close Open

This method enables or disables stack tracing in the Badger::Exception module.


Top Close Open

This method enables or disables the internal $ALL flag. It is called by the args() method when the -a or -all command line argument is specified. When the flag is set, it forces all tests to be run regardless of any if_env conditions.


Top Close Open

This method returns the help text display when help is requested with the -h or --help command line options. See args() for further details.


Top Close Open

The following import hooks are provided to allow you to load and configure the Badger::Test module in one fell swoop.


Top Close Open

Specify the number of tests. Does the same thing as calling the plan() subroutine or tests() class method.

use Badger::Test
    tests => 42;


Top Close Open

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


Top Close Open

An import hook to enable colour mode. See the colour() method.

use Badger::Test
    colour => 1;


Top Close Open

An alias for colour


Top Close Open

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;


Top Close Open

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;


Top Close Open

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,

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


Top Close Open


Top Close Open

This package variable stores the name of the manager class, Badger::Test::Manager by default.


Top Close Open

The $DEBUG package variable holds the name(s) of module(s) for which debugging should be enabled, as defined via the debug() method.


Top Close Open

Flag set true or false to indicate debugging mode is enabled or disabled. As set by the debugging() method.


Top Close Open

Andy Wardley


Top Close Open

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.

Fork Me on Github