Searched refs:safe_rel (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/
H A Drel2abs2rel.t28 sub safe_rel { subroutine
58 my $perl = safe_rel($^X);
67 $perl = safe_rel(File::Spec->abs2rel($perl));
68 is( sayok($perl), "ok\n", "safe_rel(abs2rel(canonpath(rel2abs($^X)))) = $perl" );
70 $perl = safe_rel(File::Spec->canonpath($^X));
71 is( sayok($perl), "ok\n", "safe_rel(canonpath($^X)) = $perl" );

Completed in 15 milliseconds