From 643b64d0efe8e3db85934ba4962e48aca3908446 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 8 Dec 2016 13:50:00 +0100 Subject: [PATCH] improve paths tests --- src/tests/normal-tests/compiler.lsp | 34 +++++++++++++++-------------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index 67f43041c..1d7999526 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -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