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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3de2409f2e4921ee7de6b8f2... You're receiving this email because of your account on gitlab.common-lisp.net.