diff options
author | Modestas Vainius <modestas@vainius.eu> | 2009-06-29 19:36:28 +0300 |
---|---|---|
committer | Modestas Vainius <modestas@vainius.eu> | 2009-06-30 00:53:07 +0300 |
commit | 961d75b2c35d7afcf6f7954604f9442db31eec90 (patch) | |
tree | 566730d1dca57fa3daecd0392ebfae9f93fbd9db | |
parent | 4769644604ccd4a49ca242e3461fffdc37927f1d (diff) |
Add absolute path test for canonpath.
Signed-off-by: Modestas Vainius <modestas@vainius.eu>
-rwxr-xr-x | t/buildsystems/buildsystem_tests | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/buildsystems/buildsystem_tests b/t/buildsystems/buildsystem_tests index 0c4fcd5c..e54663c8 100755 --- a/t/buildsystems/buildsystem_tests +++ b/t/buildsystems/buildsystem_tests @@ -1,6 +1,6 @@ #!/usr/bin/perl -use Test::More tests => 227; +use Test::More tests => 228; use strict; use warnings; @@ -64,6 +64,8 @@ is( $BS_CLASS->canonpath("path/to/../forward/../../somewhere"), is( $BS_CLASS->canonpath("path/to/../../../somewhere"), "../somewhere","canonpath no3" ); is( $BS_CLASS->canonpath("./"), ".", "canonpath no4" ); +is( $BS_CLASS->canonpath("/absolute/path/./somewhere/../to/nowhere"), + "/absolute/path/to/nowhere", "canonpath no5" ); is( $BS_CLASS->_rel2rel("path/my/file", "path/my"), "file", "_rel2rel no1" ); is( $BS_CLASS->_rel2rel("path/dir/file", "path/my"), |