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

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 @@ ...@@ -31,7 +31,7 @@
(loop :for o :in (output-files 'compile-op c) (loop :for o :in (output-files 'compile-op c)
:do (delete-file-if-exists o))) :do (delete-file-if-exists o)))
,@(when op ,@(when op
`((operate ',op ',(second def-test-system)))) `((operate ',op ',(second def-test-system) :force t)))
,@body ,@body
(eval `(assert-equal (string-char-codes ,*lambda-string*) (eval `(assert-equal (string-char-codes ,*lambda-string*)
(expected-char-codes ',',encoding)))))) (expected-char-codes ',',encoding))))))
......
...@@ -6,6 +6,12 @@ ...@@ -6,6 +6,12 @@
(delete-file-if-exists *fasl1*) (delete-file-if-exists *fasl1*)
(delete-file-if-exists *fasl2*) (delete-file-if-exists *fasl2*)
(DBG "should load file1 but not file2") (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) (load-system :test3)
(assert (probe-file *fasl1*)) (assert (probe-file *fasl1*))
(assert (not (probe-file *fasl2*))) (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