+    # There should be no unexpected successes or failures; check these separately.

+    - grep -a 'No unexpected successes' test.out && grep -a 'No unexpected failures' test.out

+	;; unix-namestring converts "." to "".  Convert it back to

+	;; "." so we can stat the current directory.  (Perhaps

+	;; that's a bug in unix-namestring?)

+	(when (zerop (length name))

+	  (setf name "."))

+	(let (author)

+	  (unwind-protect

+	       (progn

+		 (setf author (alien:alien-funcall

+			       (alien:extern-alien "os_file_author"

+						   (function (alien:* c-call:c-string) c-call:c-string))

+			       (unix::%name->file name)))

+		 (unless (alien:null-alien author)

+		   (alien:cast author c-call:c-string)))

+	    (alien:free-alien author))))))

+#include <assert.h>

+#include <pwd.h>

+#include <stdlib.h>

+#include <unistd.h>

+

+/*

+ * Interface for file-author.  Given a pathname, returns a new string

+ * holding the author of the file or NULL if some error occurred.  The

+ * caller is responsible for freeing the memory used by the string.

+ */

+char *

+os_file_author(const char *path)

+{

+    struct stat sb;

+    char initial[1024];

+    char *buffer, *obuffer;

+    size_t size;

+    struct passwd pwd;

+    struct passwd *ppwd;

+    char *result;

+

+    if (stat(path, &sb) != 0) {

+        return NULL;

+    }

+

+    result = NULL;

+    buffer = initial;

+    obuffer = NULL;

+    size = sizeof(initial) / sizeof(initial[0]);

+

+    /*

+     * Keep trying with larger buffers until a maximum is reached.  We

+     * assume (1 << 20) is large enough for any OS.

+     */

+    while (size <= (1 << 20)) {

+        switch (getpwuid_r(sb.st_uid, &pwd, buffer, size, &ppwd)) {

+          case 0:

+              /* Success, though we might not have a matching entry */

+              result = (ppwd == NULL) ? NULL : strdup(pwd.pw_name);

+              goto exit;

+          case ERANGE:

+              /* Buffer is too small, double its size and try again */

+              size *= 2;

+              obuffer = (buffer == initial) ? NULL : buffer;

+              if ((buffer = realloc(obuffer, size)) == NULL) {

+                  goto exit;

+              }

+              continue;

+          default:

+              /* All other errors */

+              goto exit;

+        }

+    }

+exit:

+    free(obuffer);

+    

+    return result;

+}

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

+

+  (assert-equalp "./" (ext:unix-namestring "."))

+  (unwind-protect

+       (progn

+	 ;; Create a test file in the current directory.

+	 ;; unix-namestring requires files to exist to be able to

+	 ;; return the namestring.

+	 (with-open-file (f1 "foo.txt"

+			     :direction :output

+			     :if-exists :supersede)

+	   (print "foo" f1))

+	 ;; Check unix-namestring and verify that converting the

+	 ;; namestring to a pathname results in the same pathname

+	 ;; object as expected.

+	 (let ((foo (ext:unix-namestring "foo.txt")))

+	   (assert-equalp "foo.txt" foo)

+	   (assert-equalp (make-pathname :name "foo" :type "txt")

+			  (pathname foo)))

+	 (let ((bar (ext:unix-namestring "src/code/filesys.lisp")))

+	   (assert-equalp "./src/code/filesys.lisp" bar)

+	   (assert-equalp (make-pathname :directory '(:relative "src" "code")

+					 :name "filesys"

+					 :type "lisp")

+			  (pathname bar))))

+    (assert-true (delete-file "foo.txt"))))

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

+

+