diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-27 20:05:58 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-27 21:35:43 -0400 |
| commit | 1e868858fd2de0d1125e6191be5e28df22fe6665 (patch) | |
| tree | b18fbcb775fa8f79cf12402cf67a6d249e9a742a /tests/profiles.scm | |
| parent | e3cfef22c4a18cacf33356a70788503fd689b96d (diff) | |
| download | guix-1e868858fd2de0d1125e6191be5e28df22fe6665.tar.gz | |
tests: Use invoke and return #t from all builders.
* tests/packages.scm ("package-source-derivation, snippet", "trivial")
("trivial with local file as input", "trivial with source")
("trivial with system-dependent input", "trivial with #:allowed-references")
("--search-paths with pattern", "--search-paths with single-item search path")
("replacement also grafted"): In the builders, raise an exception on errors
and otherwise return #t. Use invoke.
Diffstat (limited to 'tests/profiles.scm')
| -rw-r--r-- | tests/profiles.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm index 92eb08cb9e..eba79d4e31 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -453,7 +453,8 @@ (mkdir (string-append out "/etc")) (call-with-output-file (string-append out "/etc/foo") (lambda (port) - (display "foo!" port)))))))) + (display "foo!" port))) + #t))))) (entry -> (package->manifest-entry thing)) (drv (profile-derivation (manifest (list entry)) #:hooks '() @@ -482,7 +483,8 @@ (symlink "foo" (string-append out "/etc")) (call-with-output-file (string-append out "/etc/bar") (lambda (port) - (display "foo!" port)))))))) + (display "foo!" port))) + #t))))) (entry -> (package->manifest-entry thing)) (drv (profile-derivation (manifest (list entry)) #:hooks '() |