GitLab

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.

 (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

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl

Commits:

1 changed file:

Changes: