Loading test/test-encodings.script +1 −1 Original line number Diff line number Diff line Loading @@ -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)))))) Loading test/test3.script +6 −0 Original line number Diff line number Diff line Loading @@ -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*))) Loading
test/test-encodings.script +1 −1 Original line number Diff line number Diff line Loading @@ -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)))))) Loading
test/test3.script +6 −0 Original line number Diff line number Diff line Loading @@ -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*)))