mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 21:13:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: be more windows-friendly (not aux)

Browse source 
also cleanse unused clean symbol
This commit is contained in:
Daniel Kochmański 2016-12-08 13:32:34 +01:00
parent 01e813b87a
commit cb689d3fbc
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/tests/normal-tests/compiler.lsp
View file

@ -523,7 +523,7 @@
;;;
(ext:with-clean-symbols (foo)
(test cmp.0025.paths
(let* ((output (compile-file-pathname "tmp/aux" :type :fasl))
(let* ((output (compile-file-pathname "tmp/ecl-aux" :type :fasl))
#-ecl-bytecmp
(h-file (compile-file-pathname output :type :h))
#-ecl-bytecmp
@ -1104,19 +1104,18 @@
;;; and NaN float values (part of ieee floating point extensions).
#+ieee-floating-point
(ext:with-clean-symbols (infty-test)
(test cmp.0047.infinity-test
(finishes
(compile nil
(lambda ()
(> 0.0 ext:single-float-negative-infinity))))
(is-true
(let ((ofile
(with-compiler ("aux-compiler-0048.infty-test.2.lsp" :load t)
'(defun doit () (> 0.0 ext:single-float-negative-infinity)))))
(delete-file "aux-compiler-0048.infty-test.2.lsp")
(delete-file ofile)
(doit)))))
(test cmp.0047.infinity-test
(finishes
(compile nil
(lambda ()
(> 0.0 ext:single-float-negative-infinity))))
(is-true
(let ((ofile
(with-compiler ("aux-compiler-0048.infty-test.2.lsp" :load t)
'(defun doit () (> 0.0 ext:single-float-negative-infinity)))))
(delete-file "aux-compiler-0048.infty-test.2.lsp")
(delete-file ofile)
(doit))))