X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Futf8_content_length.t;h=bf71b8e93ff856a8ed8cf947af20da9b80766520;hp=a5eacc41809e5503bd3fb0cdc119363657127f4c;hb=7064f69b1dfb59d1f3bad647b2097d0320acce8a;hpb=9d5277eada8c3be7c5310e56d2168cc95fabc22b

diff --git a/t/aggregate/utf8_content_length.t b/t/aggregate/utf8_content_length.t
index a5eacc4..bf71b8e 100644
--- a/t/aggregate/utf8_content_length.t
+++ b/t/aggregate/utf8_content_length.t
@@ -5,6 +5,8 @@ use lib "$Bin/../lib";
 use File::Spec;
 use Test::More;
 
+BEGIN { delete $ENV{CATALYST_HOME} }
+
 use Catalyst::Test qw/TestAppEncoding/;
 
 if ( $ENV{CATALYST_SERVER} ) {
@@ -20,17 +22,10 @@ my $size = -s $fn;
     is $r->code, 200, '/binary OK';
     is $r->header('Content-Length'), $size, '/binary correct content length';
 }
-SKIP: {
-    # Test that even if what is really binary has been upgraded into character
-    # octets in perl, then when we output it we get the correct content length.
-    # The issue was initially described in the thread 'Avoiding UTF8 in
-    # Catalyst': http://lists.scsys.co.uk/pipermail/catalyst/2009-November/023912.html.
-    # FIXME! (See ml thread re 5.80015 release)
-    skip 'Known not to work on Win32', 2 if ($^O eq 'MSWin32');
+{
     my $r = request('/binary_utf8');
     is $r->code, 200, '/binary_utf8 OK';
     is $r->header('Content-Length'), $size, '/binary_utf8 correct content length';
 }
 
 done_testing;
-