Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Gary Palter
asdf
Commits
7b1eeff3
Commit
7b1eeff3
authored
Mar 14, 2021
by
Robert Goldman
Browse files
Add tests demonstrating issue 61.
See #61
parent
33dc3301
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-run-program-unix.script
View file @
7b1eeff3
...
...
@@ -51,7 +51,7 @@
(defvar *test-number*)
(defvar *suites* nil)
(defvar *suites-reversed* t)
(defvar *letters* "abcdefghijklmnopqrstuvwxyz")
(defvar *letters* "abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ
")
(defvar *number-of-failed-tests* 0)
(defvar *number-of-skipped-tests* 0)
(defvar *number-of-unsupported-tests* 0)
...
...
@@ -205,7 +205,21 @@
(run-program (format nil "./exiter.sh 0 ~a" output-string)
:error-output :output))
(define-test
"run-program :output t"
(run-program (list "/bin/echo" "echoing output")
:output t))
(define-test
"launch-program :output t"
(launch-program (list "echo" "echoing output")
:output t))
(define-test
"launch-program :error-output t"
(uiop:wait-process
(launch-program (format nil "./exiter.sh 0 ~a" output-string)
:error-output t)))
(define-test
":output <file> (file e.)"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment