source: tags/1.9.2/t/run-program.lisp

Last change on this file was 15130, checked in by Mark Evenson, 6 years ago

Use CL-USER for PROVE package test fragments
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.