[svn:Module-Build] r12312 - in Module-Build/trunk: . t

[dagolden]

Author: dagolden
Date: Thu Jan  8 19:56:37 2009
New Revision: 12312

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/t/test_type.t
   Module-Build/trunk/t/xs.t

Log:
skip tests on VMS when child process would confuse results (blead backport)


Modified: Module-Build/trunk/t/test_type.t
==============================================================================
--- Module-Build/trunk/t/test_type.t    (original)
+++ Module-Build/trunk/t/test_type.t    Thu Jan  8 19:56:37 2009
@@ -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 => 9;

Modified: Module-Build/trunk/t/xs.t
==============================================================================
--- Module-Build/trunk/t/xs.t   (original)
+++ Module-Build/trunk/t/xs.t   Thu Jan  8 19:56:37 2009
@@ -12,6 +12,8 @@
     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 => 23;
   }