Minimalist fennec, the commonly used bits.
Fennec does a ton, but it may be hard to adopt it all at once. It also is a large project, and has not yet been fully split into component projects. Fennec::Lite takes a minimalist approach to do for Fennec what Mouse does for Moose.
Fennec::Lite is a single module file with no non-core dependencies. It can easily be used by any project, either directly, or by copying it into your project. The file itself is less than 300 lines of code at the time of this writing, that includes whitespace.
This module does not cover any of the more advanced features such as result capturing or \s-1SPEC\s0 workflows. This module only covers test grouping and group randomization. You can also use the \s-1FENNEC_ITEM\s0 variable with a group name or line number to run a specific test group only. Test::Builder is used under the hood for \s-1TAP\s0 output.
#!/usr/bin/perl
use strict;
use warnings;
# Brings in Test::More for us.
use Fennec::Lite;
tests good => sub {
ok( 1, "A good test" );
};
# You most call run_tests() after declaring your tests.
run_tests();
done_testing();
#!/usr/bin/perl use strict; use warnings;
use Fennec::Lite plan => 8, random => 1, testing => 'My::Class', alias => [ 'My::Class::ThingA' ], alias_to => { TB => 'My::Class::ThingB', };
# Quickly create get/set accessors fennec_accessors qw/ construction_string /;
# Create a constructor for our test class. sub new { my $class = shift; my $string = @_; return bless({ construction_string => $string }, $class ); }
tests good => sub { # Get $self. Created with new() my $self = shift; $self->isa_ok( _\|_PACKAGE_\|_ ); is( $self->construction_string, "This is the construction string", "Constructed properly" ); ok( 1, "A good test" ); };
tests "todo group" => ( todo => "This will fail", code => sub { ok( 0, "false value" )}, );
tests "skip group" => ( skip => "This will fail badly", sub => sub { die "oops" }, );
run_tests( "This is the construction string" );
#!/usr/bin/perl use strict; use warnings;
use Fennec::Lite (); use Test::More;
my $fennec = Fennec::Lite->new( test_class => _\|_PACKAGE_\|_ );
$fennec->add_tests( "test name" => sub { ok( ... ); });
$fennec->run_tests;
done_testing();
When you use Fennec::Lite, Test::More is automatically imported for you. In addition Test::Warn and Test::Exception will also be loaded, but only if they are installed.
use Fennec::Lite %ARGS Plan to pass into Test::More. True by default. When true test groups will be run in random order. Declare what class you ore testing. Provides $CLASS and \s-1CLASS\s0(), both of which are simply the name of the class being tested. Create alias functions your the given package. An alias is a function that returns the package name. The aliases will be named after the last part of the package name. Define aliases, keys are alias names, values are tho package names they should return.
By default test groups will be run in a random order. The random seed is the current date (\s-1YYYYMMDD\s0). This is used so that the order does not change on the day you are editing your code. However the ardor will change daily allowing for automated testing to find order dependent failures.
You can manually set the random seed to reproduce a failure. The \s-1FENNEC_SEED\s0 environment variable will be used as the seed when it is present.
$ FENNEC_SEED="20100915" prove -I lib -v t/*.t
You can use the \s-1FENNEC_ITEM\s0 variable with a group name or line number to run a specific test group only.
$ FENNEC_ITEM="22" prove -I lib -v t/MyTest.t $ FENNEC_ITEM="Test Group A" prove -I lib -v t/MyTest.t
This can easily be integrated into an editor such as vim or emacs.
Declare a test group. The first argument must always be the test group name. In the 2 part form the second argument must be a coderef. In the multi-part form you may optionally declare the group as todo, or as a skip. A coderef must always be provided, in multi-part form you may use the code, method, or sub params for this purpose, they are all the same. Instantiate an instance of the test class, passing %params to the constructor. If no constructor is present a default is used. All tests that have been added will be run. All tests will be cleared, you may continue to declare tests and call run_tests again to run the new tests.
Returns the instance of Fennec::Lite created when you imported it. This is the instance that tests() and run_tests() act upon. Quickly generate get/set accessors for your test class. You could alternatively do it manually or use Moose.
Get a reference to the array of tests that have been added since the last run. Get/Set the class name that will be used to create test objects that will act as the invocant on all test methods. Get/Set the random seed that will be used to re-seed srand() before randomizing tests, as well as before each test. Turn random on/off. Add a test group. Run the test groups Run a skip test (really just returns true) Run a group as \s-1TODO\s0 Run a test group. Does the actual test running in an eval to capture errors. Handle a test eval error.
In the tradition of the Fennec project, Fennec::Lite is designed to be extensible. You can even easily subclass/edit Fennec::Lite to work with alternatives to Test::Builder.
Called by new prior to returning the newly constructed object. In Fennec::Lite this loads Test::Builder and puts a reference to it in the \s-1TB\s0() accessor. If you do want to replace Test::Builder in your subclass you may do so by overriding init(). Calls Test::Builder->skip( $reason ), then returns true. Override this if you replace Test::Builder in your subclass. Calls run_test_eval() in a \s-1TODO\s0 environment. Currently uses Test::Builder to start/stop \s-1TODO\s0 mode around the test. Override this if you wish to replace Test::Builder. Handle an exception thrown in a test group method. Currently calls Test::Bulder->ok( 0, \s-1GROUP_NAME\s0 ). Returns a list of modules that \s-1MUST\s0 be loaded into tho calling class (unless used in \s-1OO\s0 form). This is currently only Test::More. Returns a list of modules that should be loaded only if they are installed. Returns a hashref containing package => sub { ... }. Use this if you need to load modules in a custom way, currently Test::More has a special loader in here to account for plans. Called on the instance that was created by import(), runs at the very end of the import process. Currently does nothing.
This module is part of the Fennec project. See Fennec for more details. Fennec is a project to develop an extensible and powerful testing framework. Together the tools that make up the Fennec framework provide a potent testing environment.
The tools provided by Fennec are also useful on their own. Sometimes a tool created for Fennec is useful outside the greater framework. Such tools are turned into their own projects. This is one such project.
The primary Fennec project that ties them all together.
Chad Granum [email protected]
Copyright (C) 2010 Chad Granum
Fennec-Lite is free software; Standard perl license.
Fennec-Lite is distributed in the hope that it will be useful, but \s-1WITHOUT\s0 \s-1ANY\s0 \s-1WARRANTY\s0; without even the implied warranty of \s-1MERCHANTABILITY\s0 or \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. See the license for more details.