diff options
| author | Volker Schatz <perldoc@volkerschatz.com> | 2012-05-26 13:29:54 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-26 13:29:54 -0700 |
| commit | 593dacfb29387de8197b6010886993f5bfd9f041 (patch) | |
| tree | 9cb3583d55b7504aace820641613470a36efc8af | |
| parent | 70b6afc16df4c7a694abcf12330e74113a1b3cee (diff) | |
| download | perl-593dacfb29387de8197b6010886993f5bfd9f041.tar.gz | |
Tests for perl #111510
| -rw-r--r-- | dist/Cwd/t/Spec.t | 4 |
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' ], |