Go to file
2020-03-29 19:00:35 +02:00
debian add patch 2020-03-29 19:00:35 +02:00
lib/Test Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00
t Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00
ChangeLog Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00
Makefile.PL Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00
MANIFEST Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00
README Imported Upstream version 1.21 2017-09-15 16:12:49 +02:00

                      a simplified unit testing framework


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

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

  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".


  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

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.


    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 {

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

      # Same thing for teardown/disconnect()
        name => 'teardown',
        test => sub {
          undef $Instance;



    runTests( @testSuite );


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


  $ 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


Rev: $Id: README,v 1.5 2003/01/15 21:48:39 deveiant Exp $