Re: Extra MakeMaker noise in lib/ExtUtils/Embed.t @12791

[p5sagit/p5-mst-13.2.git] / t / op / magic.t

diff --git a/t/op/magic.t b/t/op/magic.t
index bbccd8e..c39ad64 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -35,7 +35,7 @@ sub skip {
     return 1;
 }
 
-print "1..41\n";
+print "1..43\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_NetWare = $^O eq 'NetWare';
@@ -65,7 +65,7 @@ ok $!, $!;
 close FOO; # just mention it, squelch used-only-once
 
 if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE || $Is_MacOS) {
-    skip() for 1..2;
+    skip('SIGINT not safe on this platform') for 1..2;
 }
 else {
   # the next tests are embedded inside system simply because sh spits out
@@ -218,7 +218,7 @@ ok $^O;
 ok $^T > 850000000, $^T;
 
 if ($Is_VMS || $Is_Dos || $Is_MacOS) {
-    skip() for 1..2;
+    skip("cannot test on $^O") for 1..2;
 }
 else {
        $PATH = $ENV{PATH};
@@ -283,3 +283,7 @@ ok ${"!"}{ENOENT};
 ok $^S == 0;
 eval { ok $^S == 1 };
 ok $^S == 0;
+
+ok ${^TAINT} == 0;
+eval { ${^TAINT} = 1 };
+ok ${^TAINT} == 0;