summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVolker Schatz <perldoc@volkerschatz.com>2012-05-26 13:29:54 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-05-26 13:29:54 -0700
commit593dacfb29387de8197b6010886993f5bfd9f041 (patch)
tree9cb3583d55b7504aace820641613470a36efc8af
parent70b6afc16df4c7a694abcf12330e74113a1b3cee (diff)
downloadperl-593dacfb29387de8197b6010886993f5bfd9f041.tar.gz
Tests for perl #111510
-rw-r--r--dist/Cwd/t/Spec.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/dist/Cwd/t/Spec.t b/dist/Cwd/t/Spec.t
index be3139cd1e..de6d23792d 100644
--- a/dist/Cwd/t/Spec.t
+++ b/dist/Cwd/t/Spec.t
@@ -120,6 +120,10 @@ my @tests = (
[ "Unix->abs2rel('/t1/t2/t3', '/t1')", 't2/t3' ],
[ "Unix->abs2rel('t1/t2/t3', 't1')", 't2/t3' ],
[ "Unix->abs2rel('t1/t2/t3', 't4')", '../t1/t2/t3' ],
+ [ "Unix->abs2rel('.', '.')", '.' ],
+ [ "Unix->abs2rel('/', '/')", '.' ],
+ [ "Unix->abs2rel('../t1', 't2/t3')", '../../../t1' ],
+ [ "Unix->abs2rel('t1', 't2/../t3')", '../t1' ],
[ "Unix->rel2abs('t4','/t1/t2/t3')", '/t1/t2/t3/t4' ],
[ "Unix->rel2abs('t4/t5','/t1/t2/t3')", '/t1/t2/t3/t4/t5' ],