master: Fix a test

stassats via Sbcl-commits <[email protected]> Mon, 03 Aug 2026 21:34:35 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  588d0d281a98482c4cabb01581cf8d7d913c2e6f (commit)
      from  bf87e9ab2c426d2231c2bcc14f77ce35c112d20e (commit)

- Log -----------------------------------------------------------------
commit 588d0d281a98482c4cabb01581cf8d7d913c2e6f
Author: Stas Boukarev <[email protected]>
Date:   Tue Aug 4 00:33:34 2026 +0300

    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)))))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL