01/05: tests: Strengthen GC root test.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit d5094c81156b587a3403a1881a4952f6d19b2076
Author: Ludovic Courtès <address@hidden>
Date:   Fri May 12 22:05:23 2017 +0200

    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!.
---
 gnu/tests/base.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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