[functional-tests] (device-mapper targets)

This commit is contained in:
Joe Thornber
2017-10-06 15:26:10 +01:00
parent f80200d179
commit d9b3133aca
4 changed files with 49 additions and 6 deletions

View File

@@ -6,6 +6,7 @@
run-fail)
(import (chezscheme)
(fail)
(fmt fmt)
(logging)
(list-utils)
@@ -19,11 +20,6 @@
;;; we need for testing. So we use system, and redirect stderr and stdout to
;;; temporary files, and subsequently read them in. Messy, but fine for tests.
(define (fail msg)
(raise (condition
(make-error)
(make-message-condition msg))))
(define (build-command-line cmd-and-args)
(apply fmt #f (map dsp (intersperse " " cmd-and-args))))