Revision: 2127
http://svn.sourceforge.net/poe/?rev=2127&view=rev
Author: rcaputo
Date: 2006-09-15 23:25:20 -0700 (Fri, 15 Sep 2006)
Log Message:
-----------
More workarounds for Vanilla Perl not differentiating itself from
ActivePerl and not including the same modules.
Modified Paths:
--------------
trunk/poe/tests/30_loops/00_base/k_signals_rerun.pm
trunk/poe/tests/30_loops/00_base/wheel_run.pm
trunk/poe/tests/90_regression/broeren-win32-nbio.t
trunk/poe/tests/90_regression/rt1648-tied-stderr.t
Modified: trunk/poe/tests/30_loops/00_base/k_signals_rerun.pm
===================================================================
--- trunk/poe/tests/30_loops/00_base/k_signals_rerun.pm 2006-09-16 05:33:53 UTC (rev 2126)
+++ trunk/poe/tests/30_loops/00_base/k_signals_rerun.pm 2006-09-16 06:25:20 UTC (rev 2127)
@@ -11,12 +11,13 @@
use Test::More;
if ($^O eq "MSWin32") {
- if (exists $INC{'Event.pm'}) {
- plan skip_all => "Event can't catch SIGCHLD on $^O";
- }
if (exists $INC{'Tk.pm'}) {
plan skip_all => "Perl crashes in this test with Tk on $^O";
}
+ eval 'use Win32::Console';
+ if ($@) {
+ plan skip_all => "Win32::Console is required on $^O - try ActivePerl";
+ }
}
plan tests => 9;
Modified: trunk/poe/tests/30_loops/00_base/wheel_run.pm
===================================================================
--- trunk/poe/tests/30_loops/00_base/wheel_run.pm 2006-09-16 05:33:53 UTC (rev 2126)
+++ trunk/poe/tests/30_loops/00_base/wheel_run.pm 2006-09-16 06:25:20 UTC (rev 2127)
@@ -21,7 +21,7 @@
if ($^O eq "MSWin32") {
eval 'use Win32::Console';
if ($@) {
- $error = "$^O needs Win32::Console for this test";
+ $error = "Win32::Console is required on $^O - try ActivePerl";
}
elsif (exists $INC{"Event.pm"}) {
$error = "$^O\'s fork() emulation breaks Event";
Modified: trunk/poe/tests/90_regression/broeren-win32-nbio.t
===================================================================
--- trunk/poe/tests/90_regression/broeren-win32-nbio.t 2006-09-16 05:33:53 UTC (rev 2126)
+++ trunk/poe/tests/90_regression/broeren-win32-nbio.t 2006-09-16 06:25:20 UTC (rev 2127)
@@ -14,7 +14,7 @@
eval 'use Win32::Console';
if ($@) {
- plan skip_all => "Win32::Console is required for this test.";
+ plan skip_all => "Win32::Console is required on $^O - try ActivePerl";
}
}
Modified: trunk/poe/tests/90_regression/rt1648-tied-stderr.t
===================================================================
--- trunk/poe/tests/90_regression/rt1648-tied-stderr.t 2006-09-16 05:33:53 UTC (rev 2126)
+++ trunk/poe/tests/90_regression/rt1648-tied-stderr.t 2006-09-16 06:25:20 UTC (rev 2127)
@@ -15,7 +15,13 @@
$error = "$^O does not support fork";
}
elsif ($^O eq "MSWin32") {
- $error = "$^O does not support fork/exec properly";
+ eval "use Win32::Console";
+ if ($@) {
+ $error = "Win32::Console is required on $^O - try ActivePerl";
+ }
+ else {
+ $error = "$^O does not support fork/exec properly";
+ }
}
if ($error) {
print "1..0 # Skip $error\n";
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|