diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/fileio-tests.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 80afeae41ba..702659fa395 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el @@ -162,10 +162,16 @@ Also check that an encoding error can appear in a symlink." (ert-deftest fileio-tests/directory-append () (should (equal (directory-append "foo" "bar") "foo/bar")) + (should (equal (directory-append "foo" "bar") "foo/bar")) + (should (equal (directory-append "foo" "bar" "zot") "foo/bar/zot")) (should (equal (directory-append "foo/" "bar") "foo/bar")) (should (equal (directory-append "foo//" "bar") "foo//bar")) + (should (equal (directory-append "foo/" "bar/" "zot") "foo/bar/zot")) + (should (equal (directory-append "fóo" "bar") "fóo/bar")) + (should (equal (directory-append "foo" "bár") "foo/bár")) + (should (equal (directory-append "fóo" "bár") "fóo/bár")) (should-error (directory-append "foo" "")) - (should (equal (directory-append "" "bar") "bar")) + (should-error (directory-append "" "bar")) (should-error (directory-append "" ""))) ;;; fileio-tests.el ends here |