Re: [PATCH] Re: Win32 modules & cygwin

From: "Yitzchak Scott-Thoennes" <sthoenna@efn.org>
Message-ID: <1300.63.226.247.142.1172479510.squirrel@63.226.247.142>

(Stops Win32* extension tests from being run when the
corresponding extensions haven't been built)

p4raw-id: //depot/perl@30409

2 files changed, 28 insertions, 2 deletions

diff --git a/ext/Win32API/File/t/file.t b/ext/Win32API/File/t/file.t
index 27cfc28225..d89ea9107f 100644
--- a/ext/Win32API/File/t/file.t
+++ b/ext/Win32API/File/t/file.t
@@ -4,7 +4,20 @@
 
 ######################### We start with some black magic to print on failure.
 
-BEGIN { $|= 1; print "1..267\n"; }
+BEGIN {
+    $|= 1;
+
+    # when building perl, skip this test if Win32API::File isn't being built
+    if ( $ENV{PERL_CORE} ) {
+	require Config;
+	if ( $Config::Config{extensions} !~ m:(?<!\S)Win32API/File(?!\S): ) {
+	    print "1..0 # Skip Win32API::File extension not built\n";
+	    exit();
+	}
+    }
+
+    print "1..267\n";
+}
 END {print "not ok 1\n" unless $loaded;}
 
 # Win32API::File does an implicit "require Win32", but
diff --git a/ext/Win32API/File/t/tie.t b/ext/Win32API/File/t/tie.t
index ec2f7c2cf9..ec4ab83e63 100644
--- a/ext/Win32API/File/t/tie.t
+++ b/ext/Win32API/File/t/tie.t
@@ -1,7 +1,20 @@
 #!perl
 # vim:syntax=perl:
 
-BEGIN { $|= 1; print "1..10\n"; }
+BEGIN {
+    $|= 1;
+
+    # when building perl, skip this test if Win32API::File isn't being built
+    if ( $ENV{PERL_CORE} ) {
+	require Config;
+	if ( $Config::Config{extensions} !~ m:(?<!\S)Win32API/File(?!\S): ) {
+	    print "1..0 # Skip Win32API::File extension not built\n";
+	    exit();
+	}
+    }
+
+    print "1..10\n";
+}
 END   { print "not ok 1\n" unless $main::loaded; }
 
 use strict;