From 91b267562d94064d00c709fcdcef29f225a80c5b Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Tue, 4 Dec 2018 19:28:54 +1100 Subject: * lib/utils.exp (relative_filename): New proc. * runtest.exp: Use it. * doc/dejagnu.texi (relative_filename procedure): Document it. * testsuite/runtest.all/utils.test: Add tests for relative_filename. Signed-off-by: Ben Elliston --- testsuite/runtest.all/utils.test | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'testsuite') 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*]"] { -- cgit v1.1