skip ExtUtils-CBuilder base tests expected and known to fail on Win32

1 files changed, 31 insertions, 25 deletions

diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t
index 988f7ae49e..533abd6f9c 100644
--- a/dist/ExtUtils-CBuilder/t/04-base.t
+++ b/dist/ExtUtils-CBuilder/t/04-base.t
@@ -152,34 +152,40 @@ $lib_file = $base->lib_file($object_file);
 ok( $lib_file, "lib_file() returned true value" );
 
 my ($lib, @temps);
-($lib, @temps) = $base->link(
-    objects     => $object_file,
-    module_name => 'compilet',
-);
-$lib =~ tr/"'//d; #"
-is($lib_file, $lib, "lib_file(): got expected value for $lib");
+SKIP:
+{
+    skip "Base can't link on Win32", 4
+	if $^O eq "MSWin32";
+    ($lib, @temps) = $base->link(
+	objects     => $object_file,
+	module_name => 'compilet',
+	);
+    $lib =~ tr/"'//d; #"
+    is($lib_file, $lib, "lib_file(): got expected value for $lib");
+
+    ($lib, @temps) = $base->link(
+	objects     => [ $object_file ],
+	module_name => 'compilet',
+    );
+    $lib =~ tr/"'//d; #"
+    is($lib_file, $lib, "lib_file(): got expected value for $lib");
 
-($lib, @temps) = $base->link(
-    objects     => [ $object_file ],
-    module_name => 'compilet',
-);
-$lib =~ tr/"'//d; #"
-is($lib_file, $lib, "lib_file(): got expected value for $lib");
+    ($lib, @temps) = $base->link(
+	lib_file    => $lib_file,
+	objects     => [ $object_file ],
+	module_name => 'compilet',
+    );
+    $lib =~ tr/"'//d; #"
+    is($lib_file, $lib, "lib_file(): got expected value for $lib");
 
-($lib, @temps) = $base->link(
-    lib_file    => $lib_file,
-    objects     => [ $object_file ],
-    module_name => 'compilet',
-);
-$lib =~ tr/"'//d; #"
-is($lib_file, $lib, "lib_file(): got expected value for $lib");
+    $lib = $base->link(
+	objects     => $object_file,
+	module_name => 'compilet',
+    );
+    $lib =~ tr/"'//d; #"
+    is($lib_file, $lib, "lib_file(): got expected value for $lib");
+}
 
-$lib = $base->link(
-    objects     => $object_file,
-    module_name => 'compilet',
-);
-$lib =~ tr/"'//d; #"
-is($lib_file, $lib, "lib_file(): got expected value for $lib");
 
 {
     local $ENV{PERL_CORE} = '' unless $ENV{PERL_CORE};