10 use Catalyst::Script::Test;
11 use File::Temp qw/tempfile/;
14 my ($fh, $fn) = tempfile();
23 $i = Catalyst::Script::Test->new_with_options(application_name => 'TestApp');
27 open( $saved, '<&'. STDIN->fileno )
28 or croak("Can't dup stdin: $!");
29 open( STDOUT, '>&='. $fh->fileno )
30 or croak("Can't open stdout: $!");
35 or croak("Can't flush stdout: $!");
37 open( STDOUT, '>&'. fileno($saved) )
38 or croak("Can't restore stdout: $!");
41 my $data = do { my $fh; open($fh, '<', $fn) or die $!; local $/; <$fh>; };
45 is $data, "root index\n", 'correct content printed';