source:
trunk/abcl/t/run-program.lisp
| Last change on this file was 15130, checked in by , 6 years ago | |
|---|---|
| File size: 292 bytes | |
| Line | |
|---|---|
| 1 | (in-package :cl-user) |
| 2 | |
| 3 | (prove:plan 2) |
| 4 | |
| 5 | (let ((program (if (uiop:os-unix-p) |
| 6 | "ls" |
| 7 | "dir"))) |
| 8 | (prove:is |
| 9 | (uiop/run-program:run-program program :output t) |
| 10 | nil) |
| 11 | |
| 12 | (prove:ok |
| 13 | (uiop/run-program:run-program program :output :string))) |
| 14 | |
| 15 | (prove:finalize) |
| 16 |
Note: See TracBrowser
for help on using the repository browser.
