diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-12 22:05:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-13 00:03:46 +0200 |
| commit | d5094c81156b587a3403a1881a4952f6d19b2076 (patch) | |
| tree | 7cff76ec122f9da94ea5174247c18dbe81bceb8a /gnu/tests/base.scm | |
| parent | 2088513214cc6d03bcb303a951d2df14ec6b57b5 (diff) | |
| download | gnu-guix-d5094c81156b587a3403a1881a4952f6d19b2076.tar gnu-guix-d5094c81156b587a3403a1881a4952f6d19b2076.tar.gz | |
tests: Strengthen GC root test.
* gnu/tests/base.scm (run-basic-test)["/run/current-system is a GC
root"]: Check for a specific return value, 'success!.
Diffstat (limited to 'gnu/tests/base.scm')
| -rw-r--r-- | gnu/tests/base.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 6ce5ab3de1..8fb978dde1 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -296,7 +296,8 @@ info --version") (setlocale LC_ALL before)) marionette)) - (test-assert "/run/current-system is a GC root" + (test-eq "/run/current-system is a GC root" + 'success! (marionette-eval '(begin ;; Make sure the (guix …) modules are found. (eval-when (expand load eval) @@ -317,7 +318,8 @@ info --version") (let ((system (readlink "/run/current-system"))) (guard (c ((nix-protocol-error? c) - (file-exists? system))) + (and (file-exists? system) + 'success!))) (with-store store (delete-paths store (list system)) #f)))) |