Peter Bex avatar 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

Comments (0)

Files changed (1)

 
 (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.
 
+(test-end)
+
 (test-exit)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.