8 BEGIN { delete $ENV{CATALYST_HOME} }
10 use Catalyst::Test qw/TestAppEncoding/;
12 if ( $ENV{CATALYST_SERVER} ) {
13 plan skip_all => 'This test does not run live';
17 my $fn = "$Bin/../catalyst_130pix.gif";
18 ok -r $fn, 'Can read catalyst_130pix.gif';
21 my $r = request('/binary');
22 is $r->code, 200, '/binary OK';
23 is $r->header('Content-Length'), $size, '/binary correct content length';
26 my $r = request('/binary_utf8');
27 is $r->code, 200, '/binary_utf8 OK';
28 is $r->header('Content-Length'), $size, '/binary_utf8 correct content length';