[functional-tests] (device-mapper targets)
This commit is contained in:
@@ -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))))
|
||||
|
||||
|
Reference in New Issue
Block a user