diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/run/switchM.t | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/t/run/switchM.t b/t/run/switchM.t index ac2f5deb4c..9c12a4a64d 100644 --- 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"); +} |