me
/
guix
Archived
1
0
Fork 0
Code

tests: Make sure /run/current-system is a GC root. 

* gnu/tests/base.scm (run-basic-test)["/run/current-system is a GC
root"]: New test.
master
Ludovic Courtès 2016-08-28 23:15:27 +02:00
parent bcce05a00b
commit 40d28609f7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gnu/tests/base.scm
View File

@ -190,6 +190,33 @@ info --version")
(setlocale LC_ALL before))) (setlocale LC_ALL before)))
marionette)) marionette))
(test-assert "/run/current-system is a GC root"
(marionette-eval '(begin
;; Make sure the (guix …) modules are found.
(eval-when (expand load eval)
(set! %load-path
(cons
(string-append
"/run/current-system/profile/share/guile/site/"
(effective-version))
%load-path))
(set! %load-compiled-path
(cons
(string-append
"/run/current-system/profile/share/guile/site/"
(effective-version))
%load-compiled-path)))
(use-modules (srfi srfi-34) (guix store))
(let ((system (readlink "/run/current-system")))
(guard (c ((nix-protocol-error? c)
(file-exists? system)))
(with-store store
(delete-paths store (list system))
#f))))
marionette))
(test-assert "screendump" (test-assert "screendump"
(begin (begin
(marionette-control (string-append "screendump " #$output (marionette-control (string-append "screendump " #$output