This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Resolve File::Spec test failures on QNX Neutrino
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 2 Aug 2013 21:47:56 +0000 (22:47 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 2 Aug 2013 21:47:56 +0000 (22:47 +0100)
dist/Cwd/t/Spec.t

index aed658d..99f83c4 100644 (file)
@@ -92,7 +92,8 @@ my @tests = (
 [ "Unix->catdir('d1','d2','d3','')",    'd1/d2/d3'  ],
 [ "Unix->catdir('','d1','d2','d3')",    '/d1/d2/d3' ],
 [ "Unix->catdir('d1','d2','d3')",       'd1/d2/d3'  ],
-[ "Unix->catdir('/','d2/d3')",          '/d2/d3'    ],
+# QNX is POSIXly special
+[ "Unix->catdir('/','d2/d3')",          ( $^O =~ m!^(nto|qnx)! ? '//d2/d3' : '/d2/d3' ) ],
 
 [ "Unix->canonpath('///../../..//./././a//b/.././c/././')",   '/a/b/../c' ],
 [ "Unix->canonpath('')",                       ''               ],