mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Some of the changes for the Windows tests broke the Unix platform

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-30 22:09:40 +01:00
parent 0e2095753a
commit ac117cf97a
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/tests/config.lsp.in
View file

@ -21,7 +21,10 @@
(defvar *cache* (merge-pathnames "./cache/" *here*))
(defvar *test-image* (or (ext:getenv "TEST_IMAGE")
(namestring (truename "sys:ecl.exe"))))
#+windows
(namestring (truename #+windows "sys:ecl.exe"))
#-windows
"ecl"))
(defvar *test-image-args*
(cond ((search "ecl" *test-image*)
@ -32,7 +35,7 @@
'())))
#+ecl
(ext:setenv "ECLDIR" (print (namestring (truename "SYS:"))))
(ext:setenv "ECLDIR" (namestring (truename "SYS:")))
(defvar *test-name* (or (ext:getenv "TEST_NAME") "ecl"))
@ -207,7 +210,7 @@
(ext:run-program *test-image*
*test-image-args*
:input (merge-pathnames "doit.lsp" *ansi-tests-sandbox*)
:output t ; output
:output output
:error :output))
(ext:chdir *here*)))