From 588d0d281a98482c4cabb01581cf8d7d913c2e6f Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Tue, 4 Aug 2026 00:33:34 +0300 Subject: [PATCH] Fix a test lseek on /dev/zero returns zero on linux --- tests/stream.pure.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp index 83ac08f15..3b321c6cb 100644 --- a/tests/stream.pure.lisp +++ b/tests/stream.pure.lisp @@ -547,17 +547,17 @@ (assert (equalp x #(0)))))) (with-test (:name :composite-streams-file-position) - (with-open-file (str (or #+win32 "zero" "/dev/zero")) + (with-open-file (str "zero") (read-char str) (assert (= (file-position (make-concatenated-stream str)) (file-position str)))) - (with-open-file (str (or #+win32 "/dev/null" "/dev/zero") :if-exists :append :direction :output) + (with-open-file (str (or #+win32 "nul" "/dev/null") :if-exists :append :direction :output) (write-char #\a str) (assert (= (file-position (make-broadcast-stream str)) (file-position str)))) - (with-open-file (i (or #+win32 "zero" "/dev/zero")) - (with-open-file (o (or #+win32 "/dev/null" "/dev/zero") :if-exists :append :direction :output) + (with-open-file (i "zero") + (with-open-file (o (or #+win32 "nul" "/dev/null") :if-exists :append :direction :output) (assert (null (file-position (make-echo-stream i o)))))) - (with-open-file (i (or #+win32 "zero" "/dev/zero")) - (with-open-file (o (or #+win32 "/dev/null" "/dev/zero") :if-exists :append :direction :output) + (with-open-file (i "zero") + (with-open-file (o (or #+win32 "nul" "/dev/null") :if-exists :append :direction :output) (assert (null (file-position (make-two-way-stream i o)))))))