7 use File::Temp qw/ tempfile /;
10 use_ok('Catalyst::ScriptRunner');
11 use_ok('ScriptTestApp');
13 is ScriptTestApp->run_options, undef;
15 my ($fh, $fn) = tempfile();
24 open( $saved, '>&'. STDOUT->fileno )
25 or croak("Can't dup stdout: $!");
26 open( STDOUT, '>&='. $fh->fileno )
27 or croak("Can't open stdout: $!");
28 local $SIG{__WARN__} = sub {}; # Shut up warnings...
29 try { Catalyst::ScriptRunner->run('ScriptTestApp', 'CGI'); pass("Ran ok") }
30 catch { fail "Failed to run $_" };
33 or croak("Can't flush stdout: $!");
35 open( STDOUT, '>&'. fileno($saved) )
36 or croak("Can't restore stdout: $!");
38 is_deeply ScriptTestApp->run_options, { argv => [], extra_argv => [] };