Silence ill-behaved or failing Module::Build tests on VMS.

p4raw-id: //depot/perl@32351

diff --git a/lib/Module/Build/t/test_type.t b/lib/Module/Build/t/test_type.t
index dcc2ef9..99ae121 100644 (file)
--- a/lib/Module/Build/t/test_type.t
+++ b/lib/Module/Build/t/test_type.t
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+    if ($^O eq 'VMS') {
+        print '1..0 # Child test output confuses harness';
+        exit;
+    }
+}
+
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
 use MBTest tests => 8;

diff --git a/lib/Module/Build/t/tilde.t b/lib/Module/Build/t/tilde.t
index bf16152..71d3500 100644 (file)
--- a/lib/Module/Build/t/tilde.t
+++ b/lib/Module/Build/t/tilde.t
@@ -39,6 +39,7 @@ my $p = 'install_base';
 
 SKIP: {
     my $home = $ENV{HOME} ? $ENV{HOME} : undef;
+    skip "Needs case and syntax tweaks for VMS", 14 if $^O eq 'VMS';
     unless (defined $home) {
       my @info = eval { getpwuid $> };
       skip "No home directory for tilde-expansion tests", 14 if $@;
@@ -82,6 +83,7 @@ SKIP: {
 
 # Again, with named users
 SKIP: {
+    skip "Needs case and syntax tweaks for VMS", 1 if $^O eq 'VMS';
     my @info = eval { getpwuid $> };
     skip "No home directory for tilde-expansion tests", 1 if $@;
     my ($me, $home) = @info[0,7];

diff --git a/lib/Module/Build/t/xs.t b/lib/Module/Build/t/xs.t
index 25e1759..e5e13a0 100644 (file)
--- a/lib/Module/Build/t/xs.t
+++ b/lib/Module/Build/t/xs.t
@@ -12,6 +12,8 @@ use Module::Build;
     plan skip_all => 'C_support not enabled';
   } elsif ( !$have_c_compiler ) {
     plan skip_all => 'C_support enabled, but no compiler found';
+  } elsif ( $^O eq 'VMS' ) {
+    plan skip_all => 'Child test output confuses harness';
   } else {
     plan tests => 22;
   }