Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -34,6 +34,12 @@ done ...@@ -34,6 +34,12 @@ done
# Shift out the options # Shift out the options
shift $[$OPTIND - 1] 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 if [ $# -eq 0 ]; then
# No args so run all the tests # No args so run all the tests
$LISP -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)' $LISP -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)'
......
...@@ -405,3 +405,33 @@ ...@@ -405,3 +405,33 @@
(define-test issue.41.2 (define-test issue.41.2
(:tag :issues) (:tag :issues)
(issue-41-tester unix:sigtstp)) (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
"./"
test-dir-name
"ls-link")))))
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