Fix warnings from ScriptRunner

[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_script_test.t

use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

use Test::More;
use Test::Exception;

use Catalyst::Script::Test;
use File::Temp qw/tempfile/;
use IO::Handle;

my ($fh, $fn) = tempfile();

binmode( $fh );
binmode( STDOUT );

{
    local @ARGV = ('/');
    my $i;
    lives_ok {
        $i = Catalyst::Script::Test->new_with_options(application_name => 'TestApp');
    } "new_with_options";
    ok $i;
    my $saved;
    open( $saved, '<&'. STDIN->fileno )
          or croak("Can't dup stdin: $!");
    open( STDOUT, '>&='. $fh->fileno )
        or croak("Can't open stdout: $!");
    eval { $i->run };
    ok !$@, 'Ran ok';

    STDOUT->flush
        or croak("Can't flush stdout: $!");

    open( STDOUT, '>&'. fileno($saved) )
        or croak("Can't restore stdout: $!");
}

my $data = do { my $fh; open($fh, '<', $fn) or die $!; local $/; <$fh>; };
$fh = undef;
unlink $fn if -r $fn;

is $data, "root index\n", 'correct content printed';

done_testing;