1. Peter Bex
  2. scsh-process


Peter Bex  committed fd47d30

Add wrapper for tests so we get a good summary at the end; also add trailing garbage for run/sexp's test

  • Participants
  • Parent commits b29f484
  • Branches default

Comments (0)

Files changed (1)

File tests/run.scm

View file
 (use test posix)
+(test-begin "scsh-process")
 (test-group "Procedural interface"
   (test "Fork/pipe \"hello world\" example from SCSH reference manual"
         "Hello, world."
                (read-line (open-input-file* 0))))
   (test "run/string* returns a string output in a subprocess"
         "This is a test"
-        (run/string* (lambda () (display "This is a test")))))
+        (run/string* (lambda () (display "This is a test"))))
+  (test-error "run*/string* raises error if subprocess has nonzero exit status"
+              (run*/string* (lambda () (display "ohai") (exit 1)))))
 (test-group "Macro (EPF) interface"
   (delete-file* "outfile")              ; Leftovers from last run
     (test "Simple run/sexp"
           '("hi, there")
-          (run/sexp (echo "(\"hi, there\")")))
+          (run/sexp (echo "(\"hi, there\") trailing stuff is ignored")))
     (test "Simple run/sexps"
           '(("hi, there") (a b c))
 ;;       one from a subshell.  This happened before, but not sure how
 ;;       to detect this except running it manually from the REPL.