From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 26 Feb 2007 00:45:10 +0000 (-0800)
Subject: Re: [PATCH] Re: Win32 modules & cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57d226e4c036539e44197f78a5d0e896298c6424;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/Win32API/File/t/file.t b/ext/Win32API/File/t/file.t
index 27cfc28..d89ea91 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 ec2f7c2..ec4ab83 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;
diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t
index 2231530..7c637bb 100644
--- a/ext/Win32CORE/t/win32core.t
+++ b/ext/Win32CORE/t/win32core.t
@@ -1,6 +1,15 @@
 #!perl
 
-use Test;
-BEGIN { plan tests => 1 };
-use Win32CORE;
-ok(1);
+use Test::More;
+BEGIN {
+    if ( $ENV{PERL_CORE} ) {
+    require Config;
+	if ( $Config::Config{extensions} !~ /(?<!\S)Win32CORE(?!\S)/ ) {
+	    plan skip_all => "Win32CORE extension not built";
+	    exit();
+	}
+    }
+
+    plan tests => 1;
+};
+use_ok( "Win32CORE" );