Skip to content

Commit

Permalink
Tests for perl #111510
Browse files Browse the repository at this point in the history
  • Loading branch information
Volker Schatz authored and Father Chrysostomos committed May 26, 2012
1 parent 70b6afc commit 593dacf
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions dist/Cwd/t/Spec.t
View file
Expand Up @@ -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' ],
Expand Down

0 comments on commit 593dacf

Please sign in to comment.