Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: fef970d5 by Raymond Toy at 2025-11-10T10:14:36-08:00 Remove nil'ed out test code. The original clear-output-1 test has been replaced with a version that uses with-temporary-file. - - - - - 1 changed file: - tests/fd-streams.lisp Changes: ===================================== tests/fd-streams.lisp ===================================== @@ -17,25 +17,6 @@ (eval-when (:load-toplevel) (ensure-directories-exist *test-path* :verbose t)) -#+nil -(define-test clear-output-1 - (:tag :trac) - (assert-eql - 0 - (unwind-protect - (let ((s (open *test-file* - :direction :output - :if-exists :supersede))) - ;; Write a character to the (fully buffered) output - ;; stream. Clear the output and close the file. Nothing - ;; should have been written to the file. - (write-char #\a s) - (clear-output s) - (close s) - (setf s (open *test-file*)) - (file-length s)) - (delete-file *test-file*)))) - (define-test clear-output-1 (:tag :trac) (assert-eql View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fef970d55aac584f24ed2ccb... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fef970d55aac584f24ed2ccb... You're receiving this email because of your account on gitlab.common-lisp.net.