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:

 	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")))

+The file name of this file is "안녕하십니까.txt" ("Hello" in Korean.)

+

+