From 0922cd8d4ae80e075dcb94bc549c4f76a14a32b8 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 25 Feb 2013 00:34:24 -0500
Subject: [PATCH] More test tweaks.

Minimally test the REQUIRE feature by hijacking part of test3.script.
Force compile in test-encoding to override any previous encoding.
---
 test/test-encodings.script | 2 +-
 test/test3.script          | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/test/test-encodings.script b/test/test-encodings.script
index 3977c699..9ceb3b34 100644
--- a/test/test-encodings.script
+++ b/test/test-encodings.script
@@ -31,7 +31,7 @@
          (loop :for o :in (output-files 'compile-op c)
                :do (delete-file-if-exists o)))
        ,@(when op
-           `((operate ',op ',(second def-test-system))))
+           `((operate ',op ',(second def-test-system) :force t)))
        ,@body
        (eval `(assert-equal (string-char-codes ,*lambda-string*)
                             (expected-char-codes ',',encoding))))))
diff --git a/test/test3.script b/test/test3.script
index f86806d7..f5e77f67 100644
--- a/test/test3.script
+++ b/test/test3.script
@@ -6,6 +6,12 @@
 (delete-file-if-exists *fasl1*)
 (delete-file-if-exists *fasl2*)
 (DBG "should load file1 but not file2")
+
+;;; Use REQUIRE where we boast integration, load-system where not.
+#+(or abcl clisp clozure cmu ecl mkcl sbcl)
+(require :test3)
+#-(or abcl clisp clozure cmu ecl mkcl sbcl)
 (load-system :test3)
+
 (assert (probe-file *fasl1*))
 (assert (not (probe-file *fasl2*)))
-- 
GitLab