Fix script test when aggregated

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

diff --git a/t/aggregate/unit_core_script_test.t b/t/aggregate/unit_core_script_test.t
deleted file mode 100644 (file)
index e475651..0000000
--- a/t/aggregate/unit_core_script_test.t
+++ /dev/null
@@ -1,55 +0,0 @@
-use strict;
-use warnings;
-
-use Carp qw(croak);
-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;
-
-is run_test('/'), "root index\n", 'correct content printed';
-is run_test('/moose/get_attribute'), "42\n", 'Correct content printed for non root action';
-
-done_testing;
-
-sub run_test {
-    my $url = shift;
-
-    my ($fh, $fn) = tempfile();
-
-    binmode( $fh );
-    binmode( STDOUT );
-
-    {
-        local @ARGV = ($url);
-        my $i;
-        lives_ok {
-            $i = Catalyst::Script::Test->new_with_options(application_name => 'TestApp');
-        } "new_with_options";
-        ok $i;
-        my $saved;
-        open( $saved, '>&'. STDOUT->fileno )
-            or croak("Can't dup stdout: $!");
-        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;
-
-    return $data;
-}