diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 5103d2f21e6..ac5d533e63b 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -44,3 +44,22 @@ | |||
| 44 | "Check that any non-NULL ASCII character can appear in a symlink. | 44 | "Check that any non-NULL ASCII character can appear in a symlink. |
| 45 | Also check that an encoding error can appear in a symlink." | 45 | Also check that an encoding error can appear in a symlink." |
| 46 | (should (equal nil (fileio-tests--symlink-failure)))) | 46 | (should (equal nil (fileio-tests--symlink-failure)))) |
| 47 | |||
| 48 | (ert-deftest fileio-tests--directory-file-name () | ||
| 49 | (should (equal (directory-file-name "/") "/")) | ||
| 50 | (should (equal (directory-file-name "//") "//")) | ||
| 51 | (should (equal (directory-file-name "///") "/")) | ||
| 52 | (should (equal (directory-file-name "////") "/")) | ||
| 53 | (should (equal (directory-file-name "/abc") "/abc")) | ||
| 54 | (should (equal (directory-file-name "/abc/") "/abc")) | ||
| 55 | (should (equal (directory-file-name "/abc//") "/abc"))) | ||
| 56 | |||
| 57 | (ert-deftest fileio-tests--file-name-as-directory () | ||
| 58 | (should (equal (file-name-as-directory "") "./")) | ||
| 59 | (should (equal (file-name-as-directory "/") "/")) | ||
| 60 | (should (equal (file-name-as-directory "//") "//")) | ||
| 61 | (should (equal (file-name-as-directory "///") "///")) | ||
| 62 | (should (equal (file-name-as-directory "////") "////")) | ||
| 63 | (should (equal (file-name-as-directory "/abc") "/abc/")) | ||
| 64 | (should (equal (file-name-as-directory "/abc/") "/abc/")) | ||
| 65 | (should (equal (file-name-as-directory "/abc//") "/abc//"))) | ||