Newer
Older
Francois-Rene Rideau
committed
#+xcvb (module (:depends-on ("/inferior-shell" :asdf "hu.dwim.stefil")))
(in-package :cl)
(defpackage :inferior-shell-test
(:use :cl :inferior-shell :hu.dwim.stefil))
(in-package :inferior-shell-test)
(declaim (optimize (speed 1) (debug 3) (space 3)))
(defsuite* (test-suite
:in root-suite
:documentation "Testing inferior-shell"))
Francois-Rene Rideau
committed
(defun do-test-inferior-shell ()
(is (equal (run/ss '(echo (1) "2" (+ 3))) "1 2 3"))
(is (equal (run/ss "echo 1 2 3") "1 2 3"))
Francois-Rene Rideau
committed
(is (equal (run/ss `(pipe (echo (+ hel "lo,") world)
(tr "hw" "HW") (sed -e "s/$/!/")))
"Hello, World!")))
Nathan Hawkins
committed
Francois-Rene Rideau
committed
(deftest test-inferior-shell ()
Francois-Rene Rideau
committed
(let ((*backend* :auto))
(do-test-inferior-shell))
#+(and sbcl sb-thread unix)
(let ((*backend* :sbcl))
(do-test-inferior-shell)))