fix sb-posix tests on OpenBSD

[sbcl.git] / contrib / sb-simple-streams / simple-stream-tests.lisp

diff --git a/contrib/sb-simple-streams/simple-stream-tests.lisp b/contrib/sb-simple-streams/simple-stream-tests.lisp
index 2371fc8..f0d5a73 100644 (file)
--- a/contrib/sb-simple-streams/simple-stream-tests.lisp
+++ b/contrib/sb-simple-streams/simple-stream-tests.lisp
@@ -941,7 +941,9 @@ Nothing to see here, move along.")
                  (sb-simple-streams::read-vector b stream
                                                  :endian-swap :network-order)
                  (aref b 0))))
-      (with-open-file (stream "lp491087.txt" :class 'file-simple-stream)
+      (with-open-file (stream
+                       (merge-pathnames #P"lp491087.txt" *test-path*)
+                       :class 'file-simple-stream)
         (let* ((start (file-position stream))
                (integer (read-big-int stream))
                (end (file-position stream)))