view release on metacpan or  search on metacpan

t/01-simple.t  view on Meta::CPAN

use App::Math::Tutor;

use File::Path qw(mkpath rmtree);

my $test_dir;
my $keep;
my $format;

BEGIN
{
    defined $ENV{KEEP_TEST_OUTPUT} and $keep = $ENV{KEEP_TEST_OUTPUT};
    defined $ENV{TEST_OUTPUT_TYPE} and $format = $ENV{TEST_OUTPUT_TYPE};
    if ( defined( $ENV{TEST_DIR} ) )
    {
        $test_dir = $ENV{TEST_DIR};
        -d $test_dir or mkpath $test_dir;
        $keep = 1;
    }
    else
    {
        $test_dir = File::Spec->rel2abs( File::Spec->curdir() );
        $test_dir = File::Spec->catdir( $test_dir, "test_output_" . $$ );