Group
Extension

Matches 3

App-Env ( D/DJ/DJERIUS/App-Env-1.04.tar.gz, DJERIUS, 2024; MetaCPAN )
App-Env/t/system.t ( view source; MetaCPAN )
, { 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' );
   
App-Env ( D/DJ/DJERIUS/App-Env-1.04.tar.gz, DJERIUS, 2024; MetaCPAN )
App-Env/t/capture.t ( view source; MetaCPAN )
$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
App-Env ( D/DJ/DJERIUS/App-Env-1.04.tar.gz, DJERIUS, 2024; MetaCPAN )
App-Env/t/clone.t ( view source; MetaCPAN )
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 $

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.