diff options
Diffstat (limited to 'test-suite/tests/filesys.test')
-rw-r--r-- | test-suite/tests/filesys.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test index 45e77c823..fa8d6f797 100644 --- a/test-suite/tests/filesys.test +++ b/test-suite/tests/filesys.test @@ -311,7 +311,15 @@ (pass-if-equal "/" "/" (basename "/")) (pass-if-equal "//" "/" (basename "//")) - (pass-if-equal "a/b/c" "c" (basename "a/b/c"))) + (pass-if-equal "a/b/c" "c" (basename "a/b/c")) + + (pass-if-equal "a.b" (basename "a.b" "a.b")) + (pass-if-equal "a.b" (basename "/a.b" "a.b")) + (pass-if-equal "a" (basename "a.b" ".b")) + (pass-if-equal "a" (basename "/a.b" ".b")) + + ;; https://debbugs.gnu.org/69437 + (pass-if-equal "bar" (basename "foo/bar" "o/bar"))) (delete-file (test-file)) (when (file-exists? (test-symlink)) |