test.lisp

#+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"))

(defun do-test-inferior-shell ()
  (is (equal (run/ss "echo 1 2 3") "1 2 3"))
  (is (equal (run/ss `(pipe (echo (+ hel "lo,") world)
                            (tr "hw" "HW") (sed -e "s/$/!/")))
             "Hello, World!")))

(deftest test-inferior-shell ()
  (let ((*backend* :auto))
    (do-test-inferior-shell))
  #+(and sbcl sb-thread unix)
  (let ((*backend* :sbcl))
    (do-test-inferior-shell)))