#!perl

use Test::More tests => 7;

use strict;
use warnings;

use lib 't';
use File::Temp;
use File::Spec::Functions qw[ catfile ];

use App::Env;

my $script = catfile( qw [ t capture.pl ] );

{
    my $app1 = App::Env->new( 'App1', { Cache => 0 } );

    my ($stdout, $stderr ) = $app1->capture( $^X,  $script );
    is( $?, 0, 'successful system call' );

    is( $stdout, "STDOUT\n", 'success: STDOUT' );
    is( $stderr, "STDERR\n", 'success: STDERR' );
}

{
    my $app1 = App::Env->new( 'App1', { Cache => 0 } );

    my ($stdout, $stderr ) = $app1->capture( $^X,  $script, 'exit' );
    isnt( $?, 0, 'unsuccessful system call' );
}

{
    my $app1 = App::Env->new( 'App1', { Cache => 0, SysFatal => 1 } );

    eval {
	my ($stdout, $stderr ) = $app1->capture( $^X,  $script, 'exit' );
    };
    isnt( $@, '', 'unsuccessful system call: SysFatal' );
}

{
    my $app1 = App::Env->new( 'App1', { Cache => 0 } );

    my $stdout = $app1->qexec( $^X,  $script, 'a', 'b' );

    is( $stdout, "a\nb\n", "qexec scalar" );

    my @stdout = $app1->qexec( $^X,  $script, 'a', 'b' );

    is_deeply( \@stdout, [ "a\n", "b\n" ], "qexec list" );

}