[Catalyst-commits] r12035 - in Catalyst-Runtime/5.80/trunk: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-26 21:29:32 +0000 (Thu, 26 Nov 2009)
New Revision: 12035

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/t/live_fork.t
Log:
Fix test on bleadperl RT#52100

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-11-26 21:02:57 UTC (rev 12034)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-11-26 21:29:32 UTC (rev 12035)
@@ -6,6 +6,7 @@
      upgraded, may get upgraded even after they are encoded, and will
      produce the same output either way, but bytes::length returns too big
      values for upgraded strings containing characters >127
+   - Fix t/live_fork.t with bleadperl (RT#52100)
 
   Refactoring / cleanups:
    - NoTabs and Pod tests moved to t/author so that they're not run

Modified: Catalyst-Runtime/5.80/trunk/t/live_fork.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/live_fork.t	2009-11-26 21:02:57 UTC (rev 12034)
+++ Catalyst-Runtime/5.80/trunk/t/live_fork.t	2009-11-26 21:29:32 UTC (rev 12035)
@@ -26,7 +26,6 @@
 plan tests => 13; # otherwise
 
 {
-  system:
     ok(my $result = get('/fork/system/%2Fbin%2Fls'), 'system');
     my @result = split /$/m, $result;
     $result = join q{}, @result[-4..-1];
@@ -37,7 +36,6 @@
 }
 
 {
-  backticks:
     ok(my $result = get('/fork/backticks/%2Fbin%2Fls'), '`backticks`');
     my @result = split /$/m, $result;
     $result = join q{}, @result[-4..-1];
@@ -49,7 +47,6 @@
     like($result_ref->{result}, qr{\n.*\n}m, 'contains two newlines');
 }
 {
-  fork:
     ok(my $result = get('/fork/fork'), 'fork');
     my @result = split /$/m, $result;
     $result = join q{}, @result[-4..-1];