view release on metacpan or  search on metacpan

t/71-config.t  view on Meta::CPAN

use Test::More tests => 3;

if (${^TAINT}) {
    use Config;
    $^X = $Config::Config{perlpath};
    $ENV{PATH} = "";
    delete $ENV{ENV};
}

open T1, '>', "t/out/71a.$$.pl";
print T1 qq[
use Forks::Super CONFIG => 't/out/71a.$$.cfg';
print "MAX_PROC:\$Forks::Super::MAX_PROC\\n";
print "MAX_LOAD:\$Forks::Super::MAX_LOAD\\n";
print "ON_BUSY:\$Forks::Super::ON_BUSY\\n";
];
close T1;

open CFG, '>', "t/out/71a.$$.cfg";
print CFG q[# -- test config
max.proc=17.3
MAX_LOAD=qwerty
on_busy=bogus
];
close CFG;

my @j = qx($^X -Iblib/lib t/out/71a.$$.pl);
ok($j[0] =~ /17.3/, "respects config file directive");
ok($j[1] =~ /qwerty/, "respects improper config file directive");
ok($j[2] =~ /block|queue|fail/ && $j[2] !~ /bogus/,
   "handles improper config file directive");

unlink "t/out/71a.$$.pl";
unlink "t/out/71a.$$.cfg";