Raymond Toy pushed to branch issue-400-unix-resolve-links at cmucl / cmucl Commits: 2293f000 by Raymond Toy 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. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -1153,3 +1153,16 @@ (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))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27b... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27b... You're receiving this email because of your account on gitlab.common-lisp.net.