view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    }

    1;

## t/all\_tests.t

This is the test script for [Test::Harness](http://search.cpan.org/perldoc?Test::Harness) called with "make test".

    #!/usr/bin/perl

    use strict;
    use warnings;

    use File::Spec;
    use Cwd;

    BEGIN {
        unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};

        my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
        unshift @INC, File::Spec->catdir($cwd, 'inc');
        unshift @INC, File::Spec->catdir($cwd, 'lib');
    }

    use Test::Unit::Lite;

    local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };

    Test::Unit::HarnessUnit->new->start('Test::Unit::Lite::AllTests');

## t/test.pl

This is the optional script for calling test suite directly.

    #!/usr/bin/perl

    use strict;
    use warnings;

    use File::Basename;
    use File::Spec;
    use Cwd;

    BEGIN {
        chdir dirname(__FILE__) or die "$!";
        chdir '..' or die "$!";

      unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};

        my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
        unshift @INC, File::Spec->catdir($cwd, 'inc');
        unshift @INC, File::Spec->catdir($cwd, 'lib');
    }

    use Test::Unit::Lite;

    local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };

    all_tests;

This is perl equivalent of shell command line:

    perl -Iinc -Ilib -MTest::Unit::Lite -w -e all_tests

# SEE ALSO

[Test::Unit](http://search.cpan.org/perldoc?Test::Unit), [Test::Assert](http://search.cpan.org/perldoc?Test::Assert).

# TESTS

The [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) was tested as a [Test::Unit](http://search.cpan.org/perldoc?Test::Unit) replacement for following
distributions: [Test::C2FIT](http://search.cpan.org/perldoc?Test::C2FIT), [XAO::Base](http://search.cpan.org/perldoc?XAO::Base), [Exception::Base](http://search.cpan.org/perldoc?Exception::Base).

# BUGS

If you find the bug or want to implement new features, please report it at
[https://github.com/dex4er/perl-Test-Unit-Lite/issues](https://github.com/dex4er/perl-Test-Unit-Lite/issues)

The code repository is available at
[http://github.com/dex4er/perl-Test-Unit-Lite](http://github.com/dex4er/perl-Test-Unit-Lite)

# AUTHOR

Piotr Roszatycki <dexter@cpan.org>

# LICENSE

Copyright (c) 2007-2009, 2012 by Piotr Roszatycki <dexter@cpan.org>.

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

See [http://www.perl.com/perl/misc/Artistic.html](http://www.perl.com/perl/misc/Artistic.html)