mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-27 06:51:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

improve paths tests

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-08 13:50:00 +01:00
parent cb689d3fbc
commit 643b64d0ef
1 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -530,22 +530,24 @@
(c-file (compile-file-pathname output :type :c))
#-ecl-bytecmp
(data-file (compile-file-pathname output :type :data)))
(is-true
(and
(zerop (si::system "rm -rf tmp; mkdir -p tmp"))
(with-compiler ("aux-compiler.0103-paths.lsp"
:output-file output
:c-file t :h-file t :data-file t)
'(defun foo (x) (1+ x)))
(probe-file output)
#-ecl-bytecmp
(probe-file c-file)
#-ecl-bytecmp
(probe-file h-file)
#-ecl-bytecmp
(probe-file data-file)
(zerop (si::system "rm -rf tmp; mkdir -p tmp"))
(delete-file "aux-compiler.0103-paths.lsp"))))))
(and
(zerop (si::system "rm -rf tmp; mkdir -p tmp"))
(null (nth-value 2 (ext:run-program "rm" '("-rf" "tmp"))))
(null (nth-value 2 (ext:run-program "mkdir" '("-p" "tmp"))))
(is (with-compiler ("aux-compiler.0103-paths.lsp"
:output-file output
:c-file t :h-file t :data-file t)
'(defun foo (x) (1+ x))))
(is (probe-file output))
#-ecl-bytecmp
(is (probe-file c-file))
#-ecl-bytecmp
(is (probe-file h-file))
#-ecl-bytecmp
(is (probe-file data-file))
(null (nth-value 2 (ext:run-program "rm" '("-rf" "tmp"))))
(null (nth-value 2 (ext:run-program "mkdir" '("-p" "tmp"))))
(delete-file "aux-compiler.0103-paths.lsp")))))
;;; Date: 08/03/2006
;;; From: Dan Corkill