summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorModestas Vainius <modestas@vainius.eu>2009-06-12 20:18:45 +0300
committerModestas Vainius <modestas@vainius.eu>2009-06-13 17:03:26 +0300
commit9be81947e83e65726f2f34311276a153b5178a18 (patch)
tree774b49ebca5a88bf127026430cd0e96679ae6c44 /t
parent3c686f9757f640be742bf1ed4414f2b48c3d88d9 (diff)
Use another root directory in _rel2rel.
Previous one caused test "_rel2rel no4" to fail. Also add a new test for _canonpath and two new tests for _rel2rel (related to "." handling). Signed-off-by: Modestas Vainius <modestas@vainius.eu>
Diffstat (limited to 't')
-rwxr-xr-xt/buildsystems/buildsystem_tests5
1 files changed, 4 insertions, 1 deletions
diff --git a/t/buildsystems/buildsystem_tests b/t/buildsystems/buildsystem_tests
index 27d7b94..e1ca8bb 100755
--- a/t/buildsystems/buildsystem_tests
+++ b/t/buildsystems/buildsystem_tests
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 224;
+use Test::More tests => 227;
use strict;
use warnings;
@@ -63,12 +63,15 @@ is( $BS_CLASS->_canonpath("path/to/../forward/../../somewhere"),
"somewhere","_canonpath no2" );
is( $BS_CLASS->_canonpath("path/to/../../../somewhere"),
"../somewhere","_canonpath no3" );
+is( $BS_CLASS->_canonpath("./"), ".", "_canonpath no4" );
is( $BS_CLASS->_rel2rel("path/my/file", "path/my"),
"file", "_rel2rel no1" );
is( $BS_CLASS->_rel2rel("path/dir/file", "path/my"),
"../dir/file", "_rel2rel no2" );
is( $BS_CLASS->_rel2rel("file", "/root/path/my", "/root"),
"../../file", "_rel2rel no3" );
+is( $BS_CLASS->_rel2rel(".", "."), ".", "_rel2rel no4" );
+is( $BS_CLASS->_rel2rel("path", "path/"), ".", "_rel2rel no5" );
### Test Buildsystem class path API methods under different configurations
sub test_buildsystem_paths_api {