summaryrefslogtreecommitdiff
path: root/gnu/tests/base.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-05-12 22:05:23 +0200
committerLudovic Courtès <ludo@gnu.org>2017-05-13 00:03:46 +0200
commitd5094c81156b587a3403a1881a4952f6d19b2076 (patch)
tree7cff76ec122f9da94ea5174247c18dbe81bceb8a /gnu/tests/base.scm
parent2088513214cc6d03bcb303a951d2df14ec6b57b5 (diff)
downloadpatches-d5094c81156b587a3403a1881a4952f6d19b2076.tar
patches-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.scm6
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))))