From: Peter Prymmer Date: Fri, 5 Sep 2003 17:46:48 +0000 (-0400) Subject: Re: Decreasing VMS tests in File::Spec::VMS? X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cda9bddd77013edbd57cb623ff508e27625d6156;p=p5sagit%2Fp5-mst-13.2.git Re: Decreasing VMS tests in File::Spec::VMS? Message-ID: Date: Fri, 5 Sep 2003 17:46:48 -0400 p4raw-id: //depot/perl@21160 --- diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t index 60505dd..bcd0990 100644 --- a/lib/File/Spec/t/Spec.t +++ b/lib/File/Spec/t/Spec.t @@ -305,7 +305,9 @@ if ($^O eq 'MacOS') { [ "VMS->catdir('[.name]','[.name]')", '[.name.name]'], [ "VMS->abs2rel('node::volume:[t1.t2.t3]','node::volume:[t1.t2.t3]')", '' ], +[ "VMS->abs2rel('node::volume:[t1.t2.t3]','[t1.t2.t3]')", 'node::volume:[t1.t2.t3]' ], [ "VMS->abs2rel('node::volume:[t1.t2.t4]','node::volume:[t1.t2.t3]')", '[-.t4]' ], +[ "VMS->abs2rel('node::volume:[t1.t2.t4]','[t1.t2.t3]')", 'node::volume:[t1.t2.t4]' ], [ "VMS->abs2rel('[t1.t2.t3]','[t1.t2.t3]')", '' ], [ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2.t3]')", 'file' ], [ "VMS->abs2rel('[t1.t2.t4]','[t1.t2.t3]')", '[-.t4]' ], @@ -314,6 +316,7 @@ if ($^O eq 'MacOS') { [ "VMS->abs2rel('[t4.t5.t6]','[t1.t2.t3]')", '[---.t4.t5.t6]' ], [ "VMS->abs2rel('[000000]','[t1.t2.t3]')", '[---]' ], [ "VMS->abs2rel('a:[t1.t2.t4]','a:[t1.t2.t3]')", '[-.t4]' ], +[ "VMS->abs2rel('a:[t1.t2.t4]','[t1.t2.t3]')", 'a:[t1.t2.t4]' ], [ "VMS->abs2rel('[a.-.b.c.-]','[t1.t2.t3]')", '[---.b]' ], [ "VMS->rel2abs('[.t4]','[t1.t2.t3]')", '[t1.t2.t3.t4]' ],