Lines Matching full:unix
31 # making it more usable when running on (say) Unix but working with
41 foreach (qw(Unix Win32 VMS OS2 Mac Epoc Cygwin)) {
52 [ "Unix->case_tolerant()", '0' ],
54 [ "Unix->catfile('a','b','c')", 'a/b/c' ],
55 [ "Unix->catfile('a','b','./c')", 'a/b/c' ],
56 [ "Unix->catfile('./a','b','c')", 'a/b/c' ],
57 [ "Unix->catfile('c')", 'c' ],
58 [ "Unix->catfile('./c')", 'c' ],
59 [ "Unix->catfile('a', 'b'.chr(0xaf))", 'a/b'.chr(0xaf) ],
61 [ "Unix->catfile('a', do { my \$x = 'b'.chr(0xaf); use utf8 (); utf8::upgrade(\$x); \$x })", 'a/b…
63 [ "Unix->catfile(substr('foo', 2))", 'o' ],
66 [ "Unix->catfile('.', 'hints', 'Makefile.PL')", 'hints/Makefile.PL' ],
68 [ "Unix->splitpath('file')", ',,file' ],
69 [ "Unix->splitpath('/d1/d2/d3/')", ',/d1/d2/d3/,' ],
70 [ "Unix->splitpath('d1/d2/d3/')", ',d1/d2/d3/,' ],
71 [ "Unix->splitpath('/d1/d2/d3/.')", ',/d1/d2/d3/.,' ],
72 [ "Unix->splitpath('/d1/d2/d3/..')", ',/d1/d2/d3/..,' ],
73 [ "Unix->splitpath('/d1/d2/d3/.file')", ',/d1/d2/d3/,.file' ],
74 [ "Unix->splitpath('d1/d2/d3/file')", ',d1/d2/d3/,file' ],
75 [ "Unix->splitpath('/../../d1/')", ',/../../d1/,' ],
76 [ "Unix->splitpath('/././d1/')", ',/././d1/,' ],
78 [ "Unix->catpath('','','file')", 'file' ],
79 [ "Unix->catpath('','/d1/d2/d3/','')", '/d1/d2/d3/' ],
80 [ "Unix->catpath('','d1/d2/d3/','')", 'd1/d2/d3/' ],
81 [ "Unix->catpath('','/d1/d2/d3/.','')", '/d1/d2/d3/.' ],
82 [ "Unix->catpath('','/d1/d2/d3/..','')", '/d1/d2/d3/..' ],
83 [ "Unix->catpath('','/d1/d2/d3/','.file')", '/d1/d2/d3/.file' ],
84 [ "Unix->catpath('','d1/d2/d3/','file')", 'd1/d2/d3/file' ],
85 [ "Unix->catpath('','/../../d1/','')", '/../../d1/' ],
86 [ "Unix->catpath('','/././d1/','')", '/././d1/' ],
87 [ "Unix->catpath('d1','d2/d3/','')", 'd2/d3/' ],
88 [ "Unix->catpath('d1','d2','d3/')", 'd2/d3/' ],
90 [ "Unix->splitdir('')", '' ],
91 [ "Unix->splitdir('/d1/d2/d3/')", ',d1,d2,d3,' ],
92 [ "Unix->splitdir('d1/d2/d3/')", 'd1,d2,d3,' ],
93 [ "Unix->splitdir('/d1/d2/d3')", ',d1,d2,d3' ],
94 [ "Unix->splitdir('d1/d2/d3')", 'd1,d2,d3' ],
96 [ "Unix->catdir()", '' ],
97 [ "Unix->catdir('')", '/' ],
98 [ "Unix->catdir('/')", '/' ],
99 [ "Unix->catdir('','d1','d2','d3','')", '/d1/d2/d3' ],
100 [ "Unix->catdir('d1','d2','d3','')", 'd1/d2/d3' ],
101 [ "Unix->catdir('','d1','d2','d3')", '/d1/d2/d3' ],
102 [ "Unix->catdir('d1','d2','d3')", 'd1/d2/d3' ],
104 [ "Unix->catdir('/','d2/d3')", ( $^O =~ m!^(nto|qnx)! ? '//d2/d3' : '/d2/d3' ) ],
105 [ "Unix->catdir('a', 'b'.chr(0xaf))", 'a/b'.chr(0xaf) ],
107 [ "Unix->catdir('a', do { my \$x = 'b'.chr(0xaf); use utf8 (); utf8::upgrade(\$x); \$x })", 'a/b'…
110 [ "Unix->canonpath('///../../..//./././a//b/.././c/././')", '/a/b/../c' ],
111 [ "Unix->canonpath('')", '' ],
113 [ "Unix->canonpath('a/../../b/c')", 'a/../../b/c' ],
114 [ "Unix->canonpath('/')", '/' ],
115 [ "Unix->canonpath('///')", '/' ],
116 [ "Unix->canonpath('/.')", '/' ],
117 [ "Unix->canonpath('/./')", '/' ],
118 [ "Unix->canonpath('///.')", '/' ],
119 [ "Unix->canonpath('///.///')", '/' ],
120 [ "Unix->canonpath('///..')", '/' ],
121 [ "Unix->canonpath('///..///')", '/' ],
122 [ "Unix->canonpath('///..///.///..///')", '/' ],
123 [ "Unix->canonpath('.')", '.' ],
124 [ "Unix->canonpath('.///')", '.' ],
125 [ "Unix->canonpath('.///.')", '.' ],
126 [ "Unix->canonpath('.///.///')", '.' ],
127 [ "Unix->canonpath('..')", '..' ],
128 [ "Unix->canonpath('..///')", '..' ],
129 [ "Unix->canonpath('../..')", '../..' ],
130 [ "Unix->canonpath('../../')", '../..' ],
131 [ "Unix->canonpath('..///.///..///')", '../..' ],
132 [ "Unix->canonpath('///../../..//./././a//b/.././c/././')", '/a/b/../c' ],
133 [ "Unix->canonpath('a/../../b/c')", 'a/../../b/c' ],
134 [ "Unix->canonpath('a///..///..///b////c')", 'a/../../b/c' ],
135 [ "Unix->canonpath('.///a///.///..///.///..///.///b///.////c///.')", 'a/../../b/c' ],
136 [ "Unix->canonpath('/a/./')", '/a' ],
137 [ "Unix->canonpath('/a/.')", '/a' ],
138 [ "Unix->canonpath('/../../')", '/' ],
139 [ "Unix->canonpath('/../..')", '/' ],
140 [ "Unix->canonpath('/foo', '/bar')", '/foo' ],
141 [ "Unix->canonpath('///a'.chr(0xaf))", '/a'.chr(0xaf) ],
143 [ "Unix->canonpath(do { my \$x = '///a'.chr(0xaf); use utf8 (); utf8::upgrade(\$x); \$x })", '/a'…
145 [ "Unix->canonpath(1)", '1' ],
147 [ "Unix->abs2rel('/t1/t2/t3','/t1/t2/t3')", '.' ],
148 [ "Unix->abs2rel('/t1/t2/t4','/t1/t2/t3')", '../t4' ],
149 [ "Unix->abs2rel('/t1/t2','/t1/t2/t3')", '..' ],
150 [ "Unix->abs2rel('/t1/t2/t3/t4','/t1/t2/t3')", 't4' ],
151 [ "Unix->abs2rel('/t4/t5/t6','/t1/t2/t3')", '../../../t4/t5/t6' ],
152 #[ "Unix->abs2rel('../t4','/t1/t2/t3')", '../t4' ],
153 [ "Unix->abs2rel('/','/t1/t2/t3')", '../../..' ],
154 [ "Unix->abs2rel('///','/t1/t2/t3')", '../../..' ],
155 [ "Unix->abs2rel('/.','/t1/t2/t3')", '../../..' ],
156 [ "Unix->abs2rel('/./','/t1/t2/t3')", '../../..' ],
157 [ "Unix->abs2rel('/t1/t2/t3', '/')", 't1/t2/t3' ],
158 [ "Unix->abs2rel('/t1/t2/t3', '/t1')", 't2/t3' ],
159 [ "Unix->abs2rel('t1/t2/t3', 't1')", 't2/t3' ],
160 [ "Unix->abs2rel('t1/t2/t3', 't4')", '../t1/t2/t3' ],
161 [ "Unix->abs2rel('.', '.')", '.' ],
162 [ "Unix->abs2rel('/', '/')", '.' ],
163 [ "Unix->abs2rel('../t1', 't2/t3')", '../../../t1' ],
164 [ "Unix->abs2rel('t1', 't2/../t3')", '../t1' ],
166 [ "Unix->rel2abs('t4','/t1/t2/t3')", '/t1/t2/t3/t4' ],
167 [ "Unix->rel2abs('t4/t5','/t1/t2/t3')", '/t1/t2/t3/t4/t5' ],
168 [ "Unix->rel2abs('.','/t1/t2/t3')", '/t1/t2/t3' ],
169 [ "Unix->rel2abs('..','/t1/t2/t3')", '/t1/t2/t3/..' ],
170 [ "Unix->rel2abs('../t4','/t1/t2/t3')", '/t1/t2/t3/../t4' ],
171 [ "Unix->rel2abs('/t1','/t1/t2/t3')", '/t1' ],
451 # During the Perl 5.8 era, FS::Unix stopped eliminating redundant path elements, so mimic that here.
720 # XXX Todo, copied from Unix, but fail. Should they? 2003-07-07 Tels
856 is +File::Spec::Unix->canonpath(), undef;