sub file :Local {
my ($self, $c) = @_;
close *STDERR; # i am evil.
- $c->response->body($main::TEST_FILE); # filehandle from test file
+ open my $test_file, '<', \"this is a test";
+ $c->response->body($test_file);
}
sub capture : Chained('/') CaptureArgs(1) {}
use strict;
use warnings;
use Test::More;
-use IO::Scalar;
# setup library path
use FindBin qw($Bin);
# make sure testapp works
use_ok('TestAppUnicode') or BAIL_OUT($@);
-our $TEST_FILE = IO::Scalar->new(\"this is a test");
-sub IO::Scalar::FILENO { -1 }; # needed?
-
# a live test against TestAppUnicode, the test application
use Test::WWW::Mechanize::Catalyst 'TestAppUnicode';
my $mech = Test::WWW::Mechanize::Catalyst->new;