me
/
guix
Archived
1
0
Fork 0
Code

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!.
master
Ludovic Courtès 2017-05-12 22:05:23 +02:00
parent 2088513214
commit d5094c8115
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/tests/base.scm
View File

@ -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))))