From 1d775c5a752048466f19c5f3f67706bf3678a555 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 17 Dec 2023 19:11:55 -0800
Subject: [PATCH] Add cond-expand for memory streams

---
 tests/base.scm | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/tests/base.scm b/tests/base.scm
index 506a46b8..ef6e19ec 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -30,18 +30,22 @@
   (test '() (make-list -2))
 )
 
-(test-group
-  "I/O"
-  (define p (open-input-string "one\ntwo\n"))
-  (test #\o (read-char p))
-  (test "ne" (read-line p))
-  (test "two" (read-line p))
-  (test (eof-object) (read-line p))
-  (define p (open-input-string "one\ntwo\n"))
-  (test "one" (read-line p))
-  (test #\t (read-char p))
-  (test #\w (read-char p))
-  (test "o" (read-line p))
+(cond-expand
+  (memory streams
+    (test-group
+      "I/O"
+      (define p (open-input-string "one\ntwo\n"))
+      (test #\o (read-char p))
+      (test "ne" (read-line p))
+      (test "two" (read-line p))
+      (test (eof-object) (read-line p))
+      (define p (open-input-string "one\ntwo\n"))
+      (test "one" (read-line p))
+      (test #\t (read-char p))
+      (test #\w (read-char p))
+      (test "o" (read-line p))
+    )
+  )
 )
 
 (test-group