summaryrefslogtreecommitdiff
path: root/test-suite/tests/filesys.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/filesys.test')
-rw-r--r--test-suite/tests/filesys.test10
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))