[Git][cmucl/cmucl][issue-130-file-author-in-c] Add some test for file-author

[Raymond Toy (@rtoy)]

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/3de2409f2e4921ee7de6b8f2ace50f1747885ce6

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3de2409f2e4921ee7de6b8f2ace50f1747885ce6
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220831/d75f7f63/attachment.html>