NAME

Acme::Test

SYNOPSIS

    use Acme::Test qw[Your::Module Your::Other::Module];

DESCRIPTION

All the latest software craze is about regression tests and XP programming -- Write a test, make sure it fails. Then write the functionality and make sure the test now passes, etc. Although these are good ideas, who really has time for this? Fixing faililng tests is a lot of work, and one can only be happy with a test suite that has no fails.

Enter Acme::Test -- automate test-suite generation with guaranteed passing tests for your modules!

USE

Simply write

    use Acme::Test 'Your::Module';

at the top of your test scrip, and everything else goes automatically.

Acme::Test will not only 'test' your subroutines, but also any global variables and even IO and format handles! It will also make a distinction between public and private subroutines/variables.

EXAMPLE

Imagine your test.pl script would look something like this:

    use lib '../devel/file-basename/lib';
    use Acme::Test 'File::Basename';

Then the resulting test output would look pretty much like this:

        # Testing File::Basename
        # [Public] Testing global array @File::Basename::EXPORT
        ok 1 -     @EXPORT available
        ok 2 -     @EXPORT initialized properly
        ok 3 -     @EXPORT contains all expected elements
        # [Public] Testing global scalar $File::Basename::Fileparse_fstype
        ok 4 -     $Fileparse_fstype available
        ok 5 -     $Fileparse_fstype initialized properly
        ok 6 -     $Fileparse_fstype content OK
        # [Public] Testing global scalar $File::Basename::Fileparse_igncase
        ok 7 -     $Fileparse_igncase available
        ok 8 -     $Fileparse_igncase initialized properly
        ok 9 -     $Fileparse_igncase content OK
        # [Public] Testing global array @File::Basename::ISA
        ok 10 -     @ISA available
        ok 11 -     @ISA initialized properly
        ok 12 -     @ISA contains all expected elements
        # [Public] Testing global scalar $File::Basename::VERSION
        ok 13 -     $VERSION available
        ok 14 -     $VERSION initialized properly
        ok 15 -     $VERSION content OK
        # [Public] Testing subroutine File::Basename::basename()
        ok 16 -     basename() passed expected parameters
        ok 17 -     basename() catches faulty input
        ok 18 -     basename() works as expected with no input
        ok 19 -     basename() return value OK
        # [Public] Testing subroutine File::Basename::dirname()
        ok 20 -     dirname() passed expected parameters
        ok 21 -     dirname() catches faulty input
        ok 22 -     dirname() works as expected with no input
        ok 23 -     dirname() return value OK
        # [Public] Testing subroutine File::Basename::fileparse()
        ok 24 -     fileparse() passed expected parameters
        ok 25 -     fileparse() catches faulty input
        ok 26 -     fileparse() works as expected with no input
        ok 27 -     fileparse() return value OK
        # [Public] Testing subroutine File::Basename::fileparse_set_fstype()
        ok 28 -     fileparse_set_fstype() passed expected parameters
        ok 29 -     fileparse_set_fstype() catches faulty input
        ok 30 -     fileparse_set_fstype() works as expected with no input
        ok 31 -     fileparse_set_fstype() return value OK
        1..31

BUGS

In code this funky, I'm sure there are some ;)

AUTHOR

This module by Jos Boumans <kane@cpan.org>.

COPYRIGHT

This module is copyright (c) 2002 Jos Boumans <kane@cpan.org>. All rights reserved.

This library is free software; you may redistribute and/or modify it under the same terms as Perl itself.