This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
_perl_abs_path() symlink tests fail on QNX Neutrino
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 2 Aug 2013 22:53:15 +0000 (23:53 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 2 Aug 2013 22:53:15 +0000 (23:53 +0100)
dist/Cwd/t/cwd.t

index f7b03ed..62426ff 100644 (file)
@@ -183,7 +183,7 @@ rmtree($test_dirs[0], 0, 0);
 }
 
 SKIP: {
 }
 
 SKIP: {
-    skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink};
+    skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink} && $^O !~ m!^(qnx|nto)!;
 
     my $file = "linktest";
     mkpath([$Test_Dir], 0, 0777);
 
     my $file = "linktest";
     mkpath([$Test_Dir], 0, 0777);