Commit 3665075a authored by Raymond Toy's avatar Raymond Toy
Browse files

Add test for issue #45

Add the tests given in issue #45.
parent 12018284
......@@ -34,6 +34,12 @@ done
# Shift out the options
shift $[$OPTIND - 1]
# Create the test directory needed issue.45 test.
rm -rf test-tmp
mkdir test-tmp
ln -s /bin/ls test-tmp/ls-link
if [ $# -eq 0 ]; then
# No args so run all the tests
$LISP -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)'
......@@ -405,3 +405,33 @@
(define-test issue.41.2
(:tag :issues)
(issue-41-tester unix:sigtstp))
(define-test issue.45
(:tag :issues)
;; This depends on run-tests to setup the test directory correctly!
(let* ((test-dir #p"test-tmp/")
(test-dir-name (namestring test-dir)))
(flet ((do-test (program)
(with-output-to-string (s)
(let ((process
(ext:run-program program
(list test-dir-name)
:wait t :output s)))
;; Verify process exited without error and that we
;; got the expected output.
(assert-eql 0
(ext:process-exit-code process))
(assert-equal "ls-link
(get-output-stream-string s))))))
;; Test that absolute paths work.
(do-test "/bin/ls")
;; Test that unspecfied path works. This depends on "ls" being
;; somewhere in PATH.
(do-test "ls")
;; Test that relative path to program works. (Issue #45).
(do-test (concatenate 'string
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment