Make the test suite pass with -DPERL_DISABLE_PMC

[perl5.git] / t / run / switchM.t

diff --git a/t/run/switchM.t b/t/run/switchM.t
index ac2f5de..9c12a4a 100644 (file)
--- a/t/run/switchM.t
+++ b/t/run/switchM.t
@@ -3,6 +3,9 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require Config;
+    import Config;
+
 }
 use strict;
 
@@ -18,10 +21,16 @@ like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1),
      qr/^Global symbol "\$x" requires explicit package name at run\/flib\/broken.pm line 6\./,
      "Ensure -Irun/flib/ produces correct filename in warnings");
 
-like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1),
-     qr/^t2pmc$/,
-     "Ensure -Irun/flib loads pmc");
+SKIP: {
+    if ( $Config{ccflags} =~ /-DPERL_DISABLE_PMC/ ) {
+        skip('Tests fail without PMC support', 2);
+    }
+
+    like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1),
+         qr/^t2pmc$/,
+         "Ensure -Irun/flib loads pmc");
 
-like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1),
-     qr/^t2pmc$/,
-     "Ensure -Irun/flib/ loads pmc");
+    like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1),
+         qr/^t2pmc$/,
+         "Ensure -Irun/flib/ loads pmc");
+}