Commit 0922cd8d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

More test tweaks.

Minimally test the REQUIRE feature by hijacking part of test3.script.
Force compile in test-encoding to override any previous encoding.
parent 16cd39e6
......@@ -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))))))
......
......@@ -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*)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment