[functional-tests] use ../bin in the path for tools, even if they're

failing.
This commit is contained in:
Joe Thornber
2017-10-10 16:51:31 +01:00
parent ad208bd22e
commit 74e2506734
5 changed files with 163 additions and 138 deletions

View File

@@ -1,9 +1,12 @@
(library
(process)
(export run
(export build-command-line
run
run-ok
run-fail)
run-fail
run-ok-rcv
run-fail-rcv)
(import (chezscheme)
(fail)
@@ -58,5 +61,18 @@
(or (= 139 x)
(zero? x))))
(run-with-exit-code fails? cmd-and-args)))
(run-with-exit-code fails? cmd-and-args))
(define-syntax run-ok-rcv
(syntax-rules ()
((_ (stdout stderr) cmd b1 b2 ...)
(receive (stdout stderr) (run-ok cmd)
b1 b2 ...))))
(define-syntax run-fail-rcv
(syntax-rules ()
((_ (stdout stderr) cmd b1 b2 ...)
(receive (stdout stderr) (run-fail cmd)
b1 b2 ...))))
)