diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/runtest.all/utils.test | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/runtest.all/utils.test b/testsuite/runtest.all/utils.test index be13982..b8e05da 100644 --- a/testsuite/runtest.all/utils.test +++ b/testsuite/runtest.all/utils.test @@ -42,6 +42,29 @@ if [lib_pat_test "getdirs" "${srcdir}/runtest.all/topdir" "subdir1*subdir2" ] { puts "PASSED: getdirs toplevel, two subdirs" } +# Test relative_filename: +# +if { [relative_filename "/foo/test" "/foo/test/bar/baz" ] == "bar/baz" } { + puts "PASSED: relative_filename, simple prefix" +} else { + puts "FAILED: relative_filename, simple prefix" +} +if { [relative_filename "/foo/test" "/bar/test" ] == "../../bar/test" } { + puts "PASSED: relative_filename, up to top" +} else { + puts "FAILED: relative_filename, up to top" +} +if { [relative_filename "/tmp/foo-test" "/tmp/bar/test" ] == "../bar/test" } { + puts "PASSED: relative_filename, up one level" +} else { + puts "FAILED: relative_filename, up one level" +} +if { [relative_filename "/tmp/foo-test" "/tmp/foo-test" ] == "" } { + puts "PASSED: relative_filename, same name" +} else { + puts "FAILED: relative_filename, same name" +} + # Test find: # if [string match "*/subdir2/subfile2" "[find ${srcdir}/runtest.all/topdir/subdir2 sub*]"] { |