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