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 db4169b267a640eae7c1e6dbd222546f7df1e236..748fa8b78720f99c429e06ff1429dd0d8c948d4a 100644 (file)
--- 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 8f14246730fdfd067bba8d80654d25c46455583b..829da4e8cffe3a6ec86c112cd61fd0036a779989 100644 (file)
--- a/tests/runtime/test-mime-codec.scm
+++ b/tests/runtime/test-mime-codec.scm
@@ -28,6 +28,8 @@ USA.
 
 (declare (usual-integrations))
 \f
+(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 e49a0b556d9f0fcc6e77866e8f2dd9854e278243..d21472682e30938e6e77bf4fbf2b63acf40d67fb 100644 (file)
--- a/tests/runtime/test-process.scm
+++ b/tests/runtime/test-process.scm
@@ -28,6 +28,8 @@ USA.
 
 (declare (usual-integrations))
 \f
+(load-option 'subprocess)
+
 (define (shell-subprocess command)
   (start-pipe-subprocess "/bin/sh" `#("/bin/sh" "-c" ,command) '#()))