summaryrefslogtreecommitdiff
path: root/dist/ExtUtils-CBuilder
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2010-12-28 22:09:31 +1100
committerTony Cook <tony@develop-help.com>2010-12-28 22:12:36 +1100
commit277441df047f92a89eb3171fb2ad4cdb3c656355 (patch)
tree4c05f0738ba5d48b50afdfb978dcfad8437face1 /dist/ExtUtils-CBuilder
parent51087808ceed79175a75ce3a398a755b78f57a75 (diff)
downloadperl-277441df047f92a89eb3171fb2ad4cdb3c656355.tar.gz
skip ExtUtils-CBuilder base tests expected and known to fail on Win32
Diffstat (limited to 'dist/ExtUtils-CBuilder')
-rw-r--r--dist/ExtUtils-CBuilder/t/04-base.t56
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};