, { Cache => 0 } );
my $res
= ( capture { $app1->system( $^X, $badscript ) } )[-1];
isnt( $res, 0, 'unsuccessful system call' );
App::Env::Site1::App1::reset();
}
{
my $app1 = A
pp1', { Cache => 0, SysFatal => 1 } );
my $output = eval { $app1->qexec( $badscript ) };
isnt( $@, q{}, 'qexec: bad script call: SysFatal' );
is( $output, U(), 'qexec: bad script' );
$app1 = App::Env->new( 'App1', { Cache => 0 } );
$app1->capture( $^X, $script, 'exit' );
isnt( $?, 0, 'unsuccessful system call' );
}
{
my $app1 = App::Env->new( 'App1', { Cache => 0, Sy
oneTest' ), undef, 'check parent env' );
# and ensure that the clone has a new object id
isnt( $app1->lobject_id, $clone->lobject_id, 'clone object id' );
}
# try a cached clone
{
my $