GitLab

at 2025-05-05T10:23:00-07:00

Add test for #400

Based on test code from Philip Fominykh.  Instead of using "/tmp", we
create a tmp directory from the current directory which should work
for any OS running CI or locally.

   (assert-true (stream::find-external-format :646 nil))

   (assert-true (eq (stream::find-external-format :646 nil)

 		   (stream::find-external-format :iso646-us nil))))

+

+(define-test issue.400

+    (:tag :issues)

+  (let* ((pl 50)

+	 (nl 250)

+         (p (append (pathname-directory (ext:default-directory))

+                    (list "tmp")

+                    (list (make-string pl :initial-element #\a))))

+         (n (make-string nl :initial-element #\b))

+         (pn (make-pathname :name n :directory p)))

+    (ensure-directories-exist pn)

+    (close (open pn :direction :output :if-exists :supersede))

+    (assert-true (unix::unix-resolve-links (namestring pn)))))

Raymond Toy pushed to branch issue-400-unix-resolve-links at cmucl / cmucl

Commits:

1 changed file:

Changes: