Tru64: the cluster filesystem is special.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 7 Oct 2014 18:28:20 +0000 (20:28 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 7 Oct 2014 18:31:50 +0000 (20:31 +0200)
(It has non-POSIX interfaces and semantics which probably should
 be left outside e.g. Cwd::realpath()).

dist/ExtUtils-CBuilder/t/04-base.t

index beffe7f..1acc3ea 100644 (file)
@@ -264,7 +264,13 @@ is_deeply( \%split_seen, \%exp,
     touch_file($exporter);
     $rv = $base->perl_src();
     ok( -d $rv, "perl_src(): returned a directory" );
-    is( uc($rv), uc(Cwd::realpath($subdir)), "perl_src(): identified directory" );
+    my $rp = Cwd::realpath($subdir);
+  SKIP: {
+      if ($^O eq 'dec_osf' && $rp =~ m[^/cluster/members/]) {
+          skip "Tru64 cluster filesystem", 1;
+      } # SKIP
+      is( uc($rv), uc($rp), "perl_src(): identified directory" );
+    }
     is( $capture, q{}, "perl_src(): no warning, as expected" );
 
     chdir $cwd