Raymond Toy pushed to branch issue-130-file-author-in-c at cmucl / cmucl

Commits: 3de2409f by Raymond Toy at 2022-08-31T08:59:18-07:00 Add some test for file-author

In particular, check that (file-author ".") returns a non-NIL value. (The first implementation failed this test because the unix-namestring was "" instead of ".")

Also add a simple test for a non-ascii file name name in the file "tests/안녕하십니까.txt" ("Hello" in Korean). This should not fail.

- - - - -

2 changed files:

- tests/issues.lisp - + tests/안녕하십니까.txt

Changes:

===================================== tests/issues.lisp ===================================== @@ -579,3 +579,11 @@ with user-info = (unix:unix-getpwuid uid) while user-info finally (assert-false user-info))) + +(define-test issue.130 + (:tag :issues) + ;; Just verify that file-author works. In particular "." should + ;; work and not return NIL. + (assert-true (file-author ".")) + (assert-true (file-author "bin/build.sh")) + (assert-true (file-author "tests/안녕하십니까.txt")))

===================================== tests/안녕하십니까.txt ===================================== @@ -0,0 +1,3 @@ +The file name of this file is "안녕하십니까.txt" ("Hello" in Korean.) + +

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3de2409f2e4921ee7de6b8f2...