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

tests: fix embedding tests on mingw

Browse source 
We need to set the path environment variable for the test programs to
    find ecl.dll
This commit is contained in:
Marius Gerbershagen 2018-07-07 22:07:24 +02:00
parent 2ad7cef5dd
commit aad6d252d6
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/tests/normal-tests/embedding.lsp
View file

@ -18,10 +18,15 @@
(c::linker-cc "tmp/ecl-aux.exe" '("tmp/ecl-aux.o"))
(ecase capture-output
((nil)
(return-from test-C-program (zerop (si::system "tmp/ecl-aux.exe"))))
(return-from test-C-program (zerop (si::system #+mingw32 (format nil "PATH=%PATH%;~a tmp\\ecl-aux.exe" c::*ecl-library-directory*)
#-mingw32 "tmp/ecl-aux.exe"))))
((string :string)
(with-output-to-string (s)
(let ((in (si::run-program "tmp/ecl-aux.exe" '() :output :stream))
(let ((in (si::run-program "tmp/ecl-aux.exe" '() :output :stream
:environ (append #+mingw32 (list (format nil "PATH=~a;~a"
(ext:getenv "PATH")
c::*ecl-library-directory*))
(ext:environ))))
line)
(loop
(setf line (read-line in nil))
@ -30,7 +35,11 @@
((t forms :forms)
(do* ((all '())
(x t)
(in (si::run-program "tmp/ecl-aux.exe" '() :output :stream)))
(in (si::run-program "tmp/ecl-aux.exe" '() :output :stream
:environ (append #+mingw32 (list (format nil "PATH=~a;~a"
(ext:getenv "PATH")
c::*ecl-library-directory*))
(ext:environ)))))
((null in) all)
(setf x (ignore-errors (read in nil nil)))
(unless x (return all))