use lib '.'; use lib qw(t); use T; my $t = T->new();
use Carp;
chdir('t');
$SIG{__DIE__} = \&Carp::confess;
$main::TestLoad = 0;
Apache::ASP->Loader('load.inc', undef, Debug => 1, Execute => 1);
$t->eok($main::TestLoad, "failed to execute load.inc while loading");
my $error_mark;
{
# Apache::ASP->Loader() uses warn() aliased to Apache::ASP::Warn() to put out error messages
local *Apache::ASP::Warn = sub {
my $log_output = join("", @_);
if($log_output =~ /not_scoped_variable/is) {
$error_mark = $log_output;
} else {
warn(@_);
}
};
Apache::ASP->Loader('load_error.inc', undef, Debug => 1, UseStrict => 1);
}
$t->eok($error_mark, "failed to catch compile error of load_error.inc while loading");
$t->done;