/usr/share/scsh-0.6/scsh/strings-and-chars-test.scm is in scsh-common-0.6 0.6.7-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | (add-test! 'file-name-sans-extension 'string-and-chars
(lambda ()
(and (string=? (file-name-sans-extension ".scm") ".scm")
(string=? (file-name-sans-extension "/.scm") "/.scm")
(string=? (file-name-sans-extension "a/.scm") "a/.scm")
(string=? (file-name-sans-extension "t.scm") "t")
(string=? (file-name-sans-extension "a/t.scm") "a/t")
(string=? (file-name-sans-extension "/a/t.scm") "/a/t")
(string=? (file-name-sans-extension "/a/b.c/t.scm") "/a/b.c/t")
(string=? (file-name-sans-extension "") "")
(string=? (file-name-sans-extension "t") "t")
(string=? (file-name-sans-extension "a/t") "a/t")
(string=? (file-name-sans-extension "/a/t") "/a/t")
(string=? (file-name-sans-extension "/a/b.c/t") "/a/b.c/t"))))
|