Lines Matching full:vms
12 if ($^O eq 'VMS') {
13 if (eval 'require VMS::Feature') {
14 $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
22 my $skip_exception = "Needs VMS::Filespec (and thus VMS)" ;
25 require VMS::Filespec ;
30 # on VMS. It might be better to change File::Spec::VMS to do this,
32 # VMS paths.
34 sub File::Spec::VMS::vmsify { die "$skip_exception" }
35 sub File::Spec::VMS::unixify { die "$skip_exception" }
36 sub File::Spec::VMS::vmspath { die "$skip_exception" }
38 $INC{"VMS/Filespec.pm"} = 1 ;
41 foreach (qw(Unix Win32 VMS OS2 Mac Epoc Cygwin)) {
328 [ "VMS->case_tolerant()", '1' ],
330 [ "VMS->catfile('a','b','c')", $vms_unix_rpt ? 'a/b/c' : '[.a.b]c' ],
331 [ "VMS->catfile('a','b','[]c')", $vms_unix_rpt ? 'a/b/c' : '[.a.b]c' ],
332 [ "VMS->catfile('[.a]','b','c')", $vms_unix_rpt ? 'a/b/c' : '[.a.b]c' ],
333 [ "VMS->catfile('a/b/','c')", $vms_unix_rpt ? 'a/b/c' : '[.a.b]c' ],
334 [ "VMS->catfile('c')", 'c' ],
335 [ "VMS->catfile('[]c')", 'c' ],
337 [ "VMS->catfile('0','b','c')", $vms_unix_rpt ? '0/b/c' : '[.0.b]c' ],
338 [ "VMS->catfile('a','0','c')", $vms_unix_rpt ? 'a/0/c' : '[.a.0]c' ],
339 [ "VMS->catfile('a','b','0')", $vms_unix_rpt ? 'a/b/0' : '[.a.b]0' ],
340 [ "VMS->catfile('0','0','c')", $vms_unix_rpt ? '0/0/c' : '[.0.0]c' ],
341 [ "VMS->catfile('a','0','0')", $vms_unix_rpt ? 'a/0/0' : '[.a.0]0' ],
342 [ "VMS->catfile('0','b','0')", $vms_unix_rpt ? '0/b/0' : '[.0.b]0' ],
343 [ "VMS->catfile('0','0','0')", $vms_unix_rpt ? '0/0/0' : '[.0.0]0' ],
346 [ "VMS->splitpath('file')", ',,file' …
347 [ "VMS->splitpath('[d1.d2.d3]')", ',[d1.d2.d3],' …
348 [ "VMS->splitpath('[.d1.d2.d3]')", ',[.d1.d2.d3],' …
349 [ "VMS->splitpath('[d1.d2.d3]file')", ',[d1.d2.d3],file' …
350 [ "VMS->splitpath('d1/d2/d3/file')",
352 [ "VMS->splitpath('/d1/d2/d3/file')",
354 [ "VMS->splitpath('[.d1.d2.d3]file')", ',[.d1.d2.d3],file' …
355 [ "VMS->splitpath('node::volume:[d1.d2.d3]')", 'node::volume:,[d1.d2.d3],' …
356 [ "VMS->splitpath('node::volume:[d1.d2.d3]file')", 'node::volume:,[d1.d2.d3],file' …
357 [ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]')", 'node"access_spec"::volume:,[d1.d…
358 [ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]file')", 'node"access_spec"::volume:,[d1.d…
360 [ "VMS->splitpath('[]')", ',[],' …
361 [ "VMS->splitpath('[-]')", ',[-],' …
362 [ "VMS->splitpath('[]file')", ',[],file' …
363 [ "VMS->splitpath('[-]file')", ',[-],file' …
364 [ "VMS->splitpath('')", ',,' …
365 [ "VMS->splitpath('0')", ',,0' …
366 [ "VMS->splitpath('[0]')", ',[0],' …
367 [ "VMS->splitpath('[.0]')", ',[.0],' …
368 [ "VMS->splitpath('[0.0.0]')", ',[0.0.0],' …
369 [ "VMS->splitpath('[.0.0.0]')", ',[.0.0.0],' …
370 [ "VMS->splitpath('[0]0')", ',[0],0' …
371 [ "VMS->splitpath('[0.0.0]0')", ',[0.0.0],0' …
372 [ "VMS->splitpath('[.0.0.0]0')", ',[.0.0.0],0' …
373 [ "VMS->splitpath('0/0')", $vms_unix_rpt ? ',0/,0' : ',[.0],0' ],
374 [ "VMS->splitpath('0/0/0')", $vms_unix_rpt ? ',0/0/,0' : ',[.0.0],0' ],
375 [ "VMS->splitpath('/0/0')", $vms_unix_rpt ? ',/0/,0' : '0:,[000000],0' ],
376 [ "VMS->splitpath('/0/0/0')", $vms_unix_rpt ? ',/0/0/,0' : '0:,[0],0' ],
377 [ "VMS->splitpath('d1',1)", ',d1,' …
379 [ "VMS->splitpath('[d1.d2.d3]',1)", ',[d1.d2.d3],' …
380 [ "VMS->splitpath('[.d1.d2.d3]',1)", ',[.d1.d2.d3],' …
381 [ "VMS->splitpath('d1/d2/d3',1)", $vms_unix_rpt ? ',d1/d2/d3,' : ',[.d1.d2.d3],' ],
382 [ "VMS->splitpath('/d1/d2/d3',1)", $vms_unix_rpt ? ',/d1/d2/d3,' : 'd1:,[d2.d3],' ],
383 [ "VMS->splitpath('node::volume:[d1.d2.d3]',1)", 'node::volume:,[d1.d2.d3],' …
384 [ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]',1)", 'node"access_spec"::volume:,[d1.d…
385 [ "VMS->splitpath('[]',1)", ',[],' …
386 [ "VMS->splitpath('[-]',1)", ',[-],' …
387 [ "VMS->splitpath('',1)", ',,' …
388 [ "VMS->splitpath('0',1)", ',0,' …
389 [ "VMS->splitpath('[0]',1)", ',[0],' …
390 [ "VMS->splitpath('[.0]',1)", ',[.0],' …
391 [ "VMS->splitpath('[0.0.0]',1)", ',[0.0.0],' …
392 [ "VMS->splitpath('[.0.0.0]',1)", ',[.0.0.0],' …
393 [ "VMS->splitpath('0/0',1)", $vms_unix_rpt ? ',0/0,' : ',[.0.0],' ],
394 [ "VMS->splitpath('0/0/0',1)", $vms_unix_rpt ? ',0/0/0,' : ',[.0.0.0],' ],
395 [ "VMS->splitpath('/0/0',1)", $vms_unix_rpt ? ',/0/0,' : '0:,[000000.0],' ],
396 [ "VMS->splitpath('/0/0/0',1)", $vms_unix_rpt ? ',/0/0/0,' : '0:,[0.0],' ],
398 [ "VMS->catpath('','','file')", 'file' …
399 [ "VMS->catpath('','[d1.d2.d3]','')", '[d1.d2.d3]' …
400 [ "VMS->catpath('','[.d1.d2.d3]','')", '[.d1.d2.d3]' …
401 [ "VMS->catpath('','[d1.d2.d3]','file')", '[d1.d2.d3]file' …
402 [ "VMS->catpath('','[.d1.d2.d3]','file')", '[.d1.d2.d3]file' …
403 [ "VMS->catpath('','d1/d2/d3','file')",
405 [ "VMS->catpath('v','d1/d2/d3','file')", 'v:[.d1.d2.d3]file' ],
406 [ "VMS->catpath('v','','file')", 'v:file' ],
407 [ "VMS->catpath('v','w:[d1.d2.d3]','file')", 'v:[d1.d2.d3]file' …
408 [ "VMS->catpath('node::volume:','[d1.d2.d3]','')", 'node::volume:[d1.d2.d3]' …
409 [ "VMS->catpath('node::volume:','[d1.d2.d3]','file')", 'node::volume:[d1.d2.d3]file'…
410 [ "VMS->catpath('node\"access_spec\"::volume:','[d1.d2.d3]','')", 'node"access_spec"::volume:[d…
411 [ "VMS->catpath('node\"access_spec\"::volume:','[d1.d2.d3]','file')", 'node"access_spec"::volume:[d…
413 [ "VMS->canonpath('')", '' ],
414 [ "VMS->canonpath('volume:[d1]file')", $vms_unix_rpt ? '/volume/d1/file' …
415 [ "VMS->canonpath('volume:[d1.-.d2.][d3.d4.-]')", $vms_unix_rpt ? '/volume/d2/d3/' …
416 [ "VMS->canonpath('volume:[000000.d1]d2.dir;1')", $vms_unix_rpt ? '/volume/d1/d2.dir.1' …
417 [ "VMS->canonpath('volume:[d1.d2.d3]file.txt')", $vms_unix_rpt ? '/volume/d1/d2/d3/file.txt' : …
418 [ "VMS->canonpath('[d1.d2.d3]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/d2/d3/file.txt' : '[d1.d…
419 [ "VMS->canonpath('volume:[-.d1.d2.d3]file.txt')", $vms_unix_rpt ? '/volume/../d1/d2/d3/file.txt' …
420 [ "VMS->canonpath('[-.d1.d2.d3]file.txt')", $vms_unix_rpt ? '../d1/d2/d3/file.txt' : '[-.…
421 [ "VMS->canonpath('volume:[--.d1.d2.d3]file.txt')", $vms_unix_rpt ? '/volume/../../d1/d2/d3/file.t…
422 [ "VMS->canonpath('[--.d1.d2.d3]file.txt')", $vms_unix_rpt ? '../../d1/d2/d3/file.txt' : '[-…
423 [ "VMS->canonpath('volume:[d1.-.d2.d3]file.txt')", $vms_unix_rpt ? '/volume/d2/d3/file.txt' …
424 [ "VMS->canonpath('[d1.-.d2.d3]file.txt')", $vms_unix_rpt ? '/sys$disk/d2/d3/file.txt' : '[d2…
425 [ "VMS->canonpath('volume:[d1.--.d2.d3]file.txt')", $vms_unix_rpt ? '/volume/../d2/d3/file.txt' …
426 [ "VMS->canonpath('[d1.--.d2.d3]file.txt')", $vms_unix_rpt ? '../d2/d3/file.txt' : '[-…
427 [ "VMS->canonpath('volume:[d1.d2.-.d3]file.txt')", $vms_unix_rpt ? '/volume/d1/d3/file.txt' …
428 [ "VMS->canonpath('[d1.d2.-.d3]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/d3/file.txt' : '[d1…
429 [ "VMS->canonpath('volume:[d1.d2.--.d3]file.txt')", $vms_unix_rpt ? '/volume/d3/file.txt' …
430 [ "VMS->canonpath('[d1.d2.--.d3]file.txt')", $vms_unix_rpt ? '/sys$disk/d3/file.txt' : '[d…
431 [ "VMS->canonpath('volume:[d1.d2.d3.-]file.txt')", $vms_unix_rpt ? '/volume/d1/d2/file.txt' …
432 [ "VMS->canonpath('[d1.d2.d3.-]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/d2/file.txt' : '[d1…
433 [ "VMS->canonpath('volume:[d1.d2.d3.--]file.txt')", $vms_unix_rpt ? '/volume/d1/file.txt' …
434 [ "VMS->canonpath('[d1.d2.d3.--]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/file.txt' : '[d…
435 [ "VMS->canonpath('volume:[d1.000000.][000000.][d3.--]file.txt')", $vms_unix_rpt ? '/volume/d1/file…
437 [ "VMS->canonpath('[d1.000000.][000000.][d3.--]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/file.tx…
439 [ "VMS->canonpath('volume:[d1.000000.][000000.][d2.000000]file.txt')", $vms_unix_rpt ? '/volume/d1/…
441 [ "VMS->canonpath('[d1.000000.][000000.][d2.000000]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/0000…
443 [ "VMS->canonpath('volume:[d1.000000.][000000.][d3.--.000000]file.txt')", $vms_unix_rpt ? '/volume/…
445 [ "VMS->canonpath('[d1.000000.][000000.][d3.--.000000]file.txt')", $vms_unix_rpt ? '/sys$disk/d1/0…
447 [ "VMS->canonpath('volume:[d1.000000.][000000.][-.-.000000]file.txt')", $vms_unix_rpt ? '/volume/fi…
449 [ "VMS->canonpath('[d1.000000.][000000.][--.-.000000]file.txt')", $vms_unix_rpt ? '../file.txt' :…
450 [ "VMS->canonpath('[d1.d2.--]file')", $vms_unix_rpt ? '../file.tx…
452 [ "VMS->canonpath('a/../../b/c.dat')", $vms_unix_rpt ? 'a/../../b/c.dat' …
453 [ "VMS->canonpath('^<test^.new.-.caret^ escapes^>')", $vms_unix_rpt ? '/<test.new.-.caret escapes…
455 [ "VMS->canonpath('foo:[bar.coo.kie.--]file.txt')", $vms_unix_rpt ? '/foo/bar/file.txt' …
456 [ "VMS->canonpath('foo:[bar^.coo.kie.--]file.txt')", $vms_unix_rpt ? '/foo/file.txt' …
457 [ "VMS->canonpath('foo:[bar.coo^.kie.--]file.txt')", $vms_unix_rpt ? '/foo/file.txt' …
458 [ "VMS->canonpath('foo:[bar.coo.kie.-]file.txt')", $vms_unix_rpt ? '/foo/bar/coo/file.txt' …
459 [ "VMS->canonpath('foo:[bar^.coo.kie.-]file.txt')", $vms_unix_rpt ? '/foo/bar.coo/file.txt' …
460 [ "VMS->canonpath('foo:[bar.coo^.kie.-]file.txt')", $vms_unix_rpt ? '/foo/bar/file.txt' …
462 [ "VMS->splitdir('')", '' ],
463 [ "VMS->splitdir('[]')", '' ],
464 [ "VMS->splitdir('d1.d2.d3')", 'd1,d2,d3' ],
465 [ "VMS->splitdir('[d1.d2.d3]')", 'd1,d2,d3' ],
466 [ "VMS->splitdir('.d1.d2.d3')", 'd1,d2,d3' ],
467 [ "VMS->splitdir('[.d1.d2.d3]')", 'd1,d2,d3' ],
468 [ "VMS->splitdir('.-.d2.d3')", '-,d2,d3' ],
469 [ "VMS->splitdir('[.-.d2.d3]')", '-,d2,d3' ],
470 [ "VMS->splitdir('[d1.d2]')", 'd1,d2' ],
471 [ "VMS->splitdir('[d1-.--d2]')", 'd1-,--d2' ],
472 [ "VMS->splitdir('[d1---.-.d2]')", 'd1---,-,d2' ],
473 [ "VMS->splitdir('[d1.---.d2]')", 'd1,-,-,-,d2' ],
474 [ "VMS->splitdir('[d1---d2]')", 'd1---d2' ],
475 [ "VMS->splitdir('[d1.][000000.d2]')", 'd1,d2' ],
476 [ "VMS->splitdir('[.d1.d2^.d3]')", 'd1,d2^.d3' ],
478 [ "VMS->catdir('')", '' ],
479 [ "VMS->catdir('foo')", $vms_unix_rpt ? 'foo' : '[.foo]' ],
480 [ "VMS->catdir('d1','d2','d3')", $vms_unix_rpt ? 'd1/d2/d3' : '[.d1.d2.d3]' ],
481 [ "VMS->catdir('d1','d2/','d3')", $vms_unix_rpt ? 'd1/d2/d3' : '[.d1.d2.d3]' ],
482 [ "VMS->catdir('','d1','d2','d3')",$vms_unix_rpt ? '/d1/d2/d3' : '[.d1.d2.d3]' ],
483 [ "VMS->catdir('','-','d2','d3')", $vms_unix_rpt ? '-/d2/d3' : '[-.d2.d3]' ],
484 [ "VMS->catdir('','-','','d3')", $vms_unix_rpt ? '-/d3' : '[-.d3]' ],
485 [ "VMS->catdir('dir.dir','d2.dir','d3.dir')", $vms_unix_rpt ? 'dir/d2/d3'
487 [ "VMS->catdir('[.name]')", $vms_unix_rpt ? 'name/' : '[.name]' ],
488 [ "VMS->catdir('[.name]','[.name]')", $vms_unix_rpt ? 'name/name' :'[.name.name]' ],
489 [ "VMS->catdir('/a/b/c','[-]')", $vms_unix_rpt ? '/a/b/c/..' : 'a:[b]'],
490 [ "VMS->catdir('a:[b.c]','..')", $vms_unix_rpt ? '/a/b/c/..' : 'a:[b]'],
492 [ "VMS->abs2rel('node::volume:[t1.t2.t3]','node::volume:[t1.t2.t3]')", $vms_unix_rpt ? './' : '[]' …
493 [ "VMS->abs2rel('node::volume:[t1.t2.t3]','[t1.t2.t3]')", $vms_unix_rpt ? '/node//volume/t1/t2/t3/'…
494 [ "VMS->abs2rel('node::volume:[t1.t2.t4]','node::volume:[t1.t2.t3]')", $vms_unix_rpt ? '../t4/' : '…
495 [ "VMS->abs2rel('node::volume:[t1.t2.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '/node//volume/t1/t2/t4/'…
496 [ "VMS->abs2rel('/volume/t1/t2/t3','/volume/t1')", $vms_unix_rpt ? 't2/t3' : '[.t2]t3' ],
497 [ "VMS->abs2rel('/volume/t1/t2/t3/t4','/volume/t1/xyz')", $vms_unix_rpt ? '../t2/t3/t4' : '[-.t2.t3…
498 [ "VMS->abs2rel('[t1.t2.t3]','[t1.t2.t3]')", $vms_unix_rpt ? './' : '[]' ],
499 [ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2.t3]')", 'file' ],
500 [ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2]')", $vms_unix_rpt ? 't3/file' : '[.t3]file' ],
501 [ "VMS->abs2rel('v:[t1.t2.t3]file','v:[t1.t2]')", $vms_unix_rpt ? 't3/file' : '[.t3]file' ],
502 [ "VMS->abs2rel('[t1.t2.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '../t4/' : '[-.t4]' ],
503 [ "VMS->abs2rel('[t1.t2]file','[t1.t2.t3]')", $vms_unix_rpt ? '../file' : '[-]file' ],
504 [ "VMS->abs2rel('[t1.t2.t3.t4]','[t1.t2.t3]')", $vms_unix_rpt ? 't4/' : '[.t4]' ],
505 [ "VMS->abs2rel('[t4.t5.t6]','[t1.t2.t3]')", $vms_unix_rpt ? '../../../t4/t5/t6/' : '[…
506 [ "VMS->abs2rel('[000000]','[t1.t2.t3]')", $vms_unix_rpt ? '../../../' : '[…
507 [ "VMS->abs2rel('a:[t1.t2.t4]','a:[t1.t2.t3]')", $vms_unix_rpt ? '../t4/' : '[…
508 [ "VMS->abs2rel('a:[t1.t2.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '/a/t1/t2/t4' : 'a…
509 [ "VMS->abs2rel('[a.-.b.c.-]','[t1.t2.t3]')", $vms_unix_rpt ? '../../../b/' : '…
511 [ "VMS->rel2abs('[.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/t2/t3/t4/' : '[t1…
512 [ "VMS->rel2abs('[.t4.t5]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/t2/t3/t4/t5/' : '[t1…
513 [ "VMS->rel2abs('[]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/t2/t3/' : '[t1…
514 [ "VMS->rel2abs('[-]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/t2/' : '[t1…
515 [ "VMS->rel2abs('[-.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/t2/t4/' : '[t1…
516 [ "VMS->rel2abs('[t1]','[t1.t2.t3]')", $vms_unix_rpt ? '/sys$disk/t1/' : '[t1…
518 [ "VMS->file_name_is_absolute('foo:')", '1' ],
519 [ "VMS->file_name_is_absolute('foo:bar.dat')", '1' ],
520 [ "VMS->file_name_is_absolute('foo:[000000]bar.dat')", '1' ],