238 lines
6.6 KiB
Plaintext
238 lines
6.6 KiB
Plaintext
|
|
Test::SimpleUnit
|
|
a simplified unit testing framework
|
|
|
|
Authors
|
|
-------
|
|
|
|
Michael Granger <ged@FaerieMUD.org>
|
|
|
|
|
|
General Information
|
|
-------------------
|
|
|
|
This is a simplified Perl unit-testing framework for creating unit tests to be
|
|
run either standalone or under Test::Harness.
|
|
|
|
|
|
Testing
|
|
|
|
Testing in Test::SimpleUnit is done by running a test suite, either via 'make
|
|
test', which uses the Test::Harness 'test' target written by
|
|
ExtUtils::MakeMaker, or as a standalone script.
|
|
|
|
If errors occur while running tests via the 'make test' method, you can get
|
|
more verbose output about the test run by adding "TEST_VERBOSE=1" to the end
|
|
of the "make" invocation:
|
|
|
|
$ make test TEST_VERBOSE=1
|
|
|
|
If you want to display only the messages caused by failing assertions, you can
|
|
add a "VERBOSE=1" to the end of the "make" invocation instead:
|
|
|
|
$ make test VERBOSE=1
|
|
|
|
|
|
Test Suites
|
|
|
|
A test suite is one or more test cases, each of which tests a specific unit of
|
|
functionality.
|
|
|
|
|
|
Test Cases
|
|
|
|
A test case is a unit of testing which consists of one or more tests, combined
|
|
with setup and teardown functions that make the necessary preparations for
|
|
testing.
|
|
|
|
You may wish to split test cases up into separate files under a "t/" directory
|
|
so they will run under a Test::Harness-style "make test".
|
|
|
|
|
|
Tests
|
|
|
|
A test is a hashref which contains two key-value pairs: a name key with the
|
|
name of the test as the value, and a code reference under a test key:
|
|
|
|
{
|
|
name => 'This is the name of the test',
|
|
test => sub { ...testing code... }
|
|
}
|
|
|
|
Each test's "test" function can make one or more assertions by using the
|
|
Assertion Functions provided, or can indicate that it or any trailing tests in
|
|
the same test case should be skipped by calling one of the provided Skip
|
|
Functions.
|
|
|
|
|
|
Setup and Teardown Functions
|
|
|
|
If a test has the name 'setup' or 'teardown', it is run before or after each
|
|
test that follows it, respectively. A second or succeeding setup or teardown
|
|
function will supersede any function of the same type which preceded it. This
|
|
allows a test designer to change the setup function as the tests progress. See
|
|
the EXAMPLE section for an example of how to use this.
|
|
|
|
If a test is preceeded by multiple new setup/teardown functions, the last one
|
|
to be specified is kept, and any others are discarded after being executed
|
|
once. This allows one to specify one-time setup and/or teardown functions at a
|
|
given point of testing.
|
|
|
|
The code reference value within a *setup* or *teardown* test case can
|
|
optionally be named "func" instead of "test" for clarity. If there are both
|
|
"func" and "test" key-value pairs in a *setup* or *teardown* case, the "test"
|
|
pair is silently ignored.
|
|
|
|
|
|
Saving Test Data
|
|
|
|
If the test suite requires configuration, or some other data which should
|
|
persist between test cases, it can be dumped via Data::Dumper to a file with
|
|
the saveTestData() function. In succeeding tests, it can be reloaded using the
|
|
loadTestData() function.
|
|
|
|
|
|
|
|
Example
|
|
-------
|
|
|
|
use Test::SimpleUnit qw{:functions};
|
|
|
|
# If a setup function fails, skip the rest of the tests
|
|
Test::SimpleUnit::AutoskipFailedSetup( 1 );
|
|
|
|
my $Instance;
|
|
my $RequireWasOkay = 0;
|
|
|
|
my @tests = (
|
|
|
|
# Require the module
|
|
{
|
|
name => 'require',
|
|
test => sub {
|
|
|
|
# Make sure we can load the module to be tested.
|
|
assertNoException { require MyClass };
|
|
|
|
# Try to import some functions, generating a custom error message if it
|
|
# fails.
|
|
assertNoException { MyClass->import(':myfuncs') } "Failed to import :myfuncs";
|
|
|
|
# Make sure calling 'import()' actually imported the functions
|
|
assertRef 'CODE', *::myfunc{CODE};
|
|
assertRef 'CODE', *::myotherfunc{CODE};
|
|
|
|
# Set the flag to let the setup function know the module loaded okay
|
|
$RequireWasOkay = 1;
|
|
},
|
|
},
|
|
|
|
# Setup function (this will be run before any tests which follow)
|
|
{
|
|
name => 'setup',
|
|
test => sub {
|
|
# If the previous test didn't finish, it's untestable, so just skip the
|
|
# rest of the tests
|
|
skipAll "Module failed to load" unless $RequireWasOkay;
|
|
$Instance = new MyClass;
|
|
},
|
|
},
|
|
|
|
# Teardown function (this will be run after any tests which follow)
|
|
{
|
|
name => 'teardown',
|
|
test => sub {
|
|
undef $Instance;
|
|
},
|
|
},
|
|
|
|
# One-time setup function -- overrides the previous setup, but is
|
|
# immediately discarded after executing once.
|
|
{
|
|
name => 'setup',
|
|
func => sub {
|
|
MyClass::prepNetwork();
|
|
},
|
|
},
|
|
|
|
# Test the connect() and disconnect() methods
|
|
{
|
|
name => 'connect() and disconnect()',
|
|
test => sub {
|
|
my $rval;
|
|
|
|
assertNoException { $rval = $Instance->connect };
|
|
assert $rval, "Connect failed without error.";
|
|
assertNoException { $Instance->disconnect };
|
|
},
|
|
},
|
|
|
|
# Now override the previous setup function with a new one that does
|
|
# a connect() before each remaining test.
|
|
{
|
|
name => 'setup',
|
|
test => sub {
|
|
$Instance = new MyClass;
|
|
$Instance->connect;
|
|
},
|
|
}
|
|
|
|
# Same thing for teardown/disconnect()
|
|
{
|
|
name => 'teardown',
|
|
test => sub {
|
|
$Instance->disconnect;
|
|
undef $Instance;
|
|
},
|
|
},
|
|
|
|
...
|
|
|
|
);
|
|
|
|
runTests( @testSuite );
|
|
|
|
|
|
Caveats
|
|
-------
|
|
|
|
I would greatly appreciate feedback on any aspect of this software. Suggestions,
|
|
feature requests, questions, design critiques, and bug reports are most
|
|
welcome. Relevant patches are particularly helpful. I may be reached at
|
|
<ged@FaerieMUD.org>.
|
|
|
|
|
|
Installation
|
|
------------
|
|
|
|
$ perl Makefile.PL
|
|
$ make
|
|
$ make test
|
|
(become root)
|
|
# make install
|
|
|
|
|
|
== Legal
|
|
|
|
This module is Open Source Software which is Copyright (c) 1999-2003 by The
|
|
FaerieMUD Consortium.
|
|
|
|
You may use, modify, and/or redistribute this software under the terms of either
|
|
the Perl Artistic License or the GNU Public License (version 2 or later),
|
|
whichever you prefer. A copy of the Artistic license should have been included
|
|
in this distribution (See the file Artistic). If it was not, a copy of it may be
|
|
obtained from http://language.perl.com/misc/Artistic.html or
|
|
http://www.faeriemud.org/artistic.html).
|
|
|
|
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES,
|
|
INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND
|
|
FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
|
|
Rev: $Id: README,v 1.5 2003/01/15 21:48:39 deveiant Exp $
|
|
|
|
|
|
|
|
|
|
|