From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 7 Mar 2017 03:49:40 +0000 (-0700)
Subject: Load necessary options (not loaded when Edwin is not loaded).
X-Git-Tag: mit-scheme-pucked-9.2.12~195^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a90ab84a0be0c62c7a6cd0f2d2bf22209b83f311;p=mit-scheme.git

Load necessary options (not loaded when Edwin is not loaded).
---

diff --git a/tests/ffi/test-ffi.scm b/tests/ffi/test-ffi.scm
index db4169b26..748fa8b78 100644
--- a/tests/ffi/test-ffi.scm
+++ b/tests/ffi/test-ffi.scm
@@ -26,6 +26,7 @@ USA.
 
 ;;;; Build and test the test plugin.
 
+(load-option 'synchronous-subprocess)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (let ((port (notification-output-port)))
diff --git a/tests/runtime/test-mime-codec.scm b/tests/runtime/test-mime-codec.scm
index 8f1424673..829da4e8c 100644
--- a/tests/runtime/test-mime-codec.scm
+++ b/tests/runtime/test-mime-codec.scm
@@ -28,6 +28,8 @@ USA.
 
 (declare (usual-integrations))
 
+(load-option 'mime-codec)
+
 (define (test-encoder n-packets packet-length text? filename
 		      initialize finalize update)
   (call-with-output-file filename
diff --git a/tests/runtime/test-process.scm b/tests/runtime/test-process.scm
index e49a0b556..d21472682 100644
--- a/tests/runtime/test-process.scm
+++ b/tests/runtime/test-process.scm
@@ -28,6 +28,8 @@ USA.
 
 (declare (usual-integrations))
 
+(load-option 'subprocess)
+
 (define (shell-subprocess command)
   (start-pipe-subprocess "/bin/sh" `#("/bin/sh" "-c" ,command) '#()))