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!.

diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 6ce5ab3..8fb978d 100644 (file)
--- 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))))