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