Skip to content
Snippets Groups Projects
Commit 87de1860 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

More enhancements to test-run-program for Windows.

parent 3edd1a70
No related branches found
No related tags found
No related merge requests found
...@@ -18,9 +18,13 @@ ...@@ -18,9 +18,13 @@
(DBG "Testing bad shell command via run-shell-command") (DBG "Testing bad shell command via run-shell-command")
(unless (< 0 (run-shell-command "./bad-shell-command")) (unless (< 0 (run-shell-command "./bad-shell-command"))
(error "Failed to capture exit status indicating shell command failure.")) (error "Failed to capture exit status indicating shell command failure."))
(DBG "Testing good shell command in current directory via run-shell-command")
(unless (equal 0 (run-shell-command "./good-shell-command")) #+asdf-unix
(error "Failed to capture exit status indicating shell command failure.")) (progn
(DBG "Testing good shell command in current directory via run-shell-command")
(unless (equal 0 (run-shell-command "./good-shell-command"))
(error "Failed to capture exit status indicating shell command success.")))
(DBG "Testing awkward legacy output capture via run-shell-command") (DBG "Testing awkward legacy output capture via run-shell-command")
(let ((ok1 (format nil "; $ echo ok 1~%ok 1~%"))) (let ((ok1 (format nil "; $ echo ok 1~%ok 1~%")))
(assert-equal (assert-equal
...@@ -37,6 +41,7 @@ ...@@ -37,6 +41,7 @@
(unless (zerop status) (unless (zerop status)
(error "Didn't get good exit status."))))) (error "Didn't get good exit status.")))))
ok1)) ok1))
;; NB1: run-shell-command is deprecated. Use run-program instead. ;; NB1: run-shell-command is deprecated. Use run-program instead.
;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command. ;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command.
;; If you want 2>&1 redirection, you know where to find it. ;; If you want 2>&1 redirection, you know where to find it.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment