kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

reconfigure: Improve tests for system activation.

Browse Source 
* gnu/tests/reconfigure.scm (run-switch-to-system-test): Assert that
'/run/current-system' points to the activated system, and that new user
accounts specified in the operating system declaration are created.
This commit is contained in:
Jakob L. Kreuze 2019-08-07 08:42:42 -04:00 committed by Christopher Lemmer Webber
parent 355ba48c46
commit ec12235ce2
No known key found for this signature in database
GPG Key ID: 4BC025925FF8F4D3
1 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/tests/reconfigure.scm
View File

@ -19,8 +19,10 @@
(define-module (gnu tests reconfigure) (define-module (gnu tests reconfigure)
#:use-module (gnu bootloader) #:use-module (gnu bootloader)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu system vm)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system accounts)
#:use-module (gnu system shadow)
#:use-module (gnu system vm)
#:use-module (gnu tests) #:use-module (gnu tests)
#:use-module (guix derivations) #:use-module (guix derivations)
#:use-module (guix gexp) #:use-module (guix gexp)
@ -43,7 +45,13 @@
generation of the system profile." generation of the system profile."
(define os (define os
(marionette-operating-system (marionette-operating-system
(simple-operating-system) (operating-system
(inherit (simple-operating-system))
(users (cons (user-account
(name "jakob")
(group "users")
(home-directory "/home/jakob"))
%base-user-accounts)))
#:imported-modules '((gnu services herd) #:imported-modules '((gnu services herd)
(guix combinators)))) (guix combinators))))
@ -84,7 +92,25 @@ generation of the system profile."
(test-equal "script created new generation" (test-equal "script created new generation"
(length (system-generations marionette)) (length (system-generations marionette))
(1+ (length generations-prior)))) (1+ (length generations-prior)))
(test-assert "script activated the new generation"
(and (eqv? 'symlink
(marionette-eval
'(stat:type (lstat "/run/current-system"))
marionette))
(string= #$os
(marionette-eval
'(readlink "/run/current-system")
marionette))))
(test-assert "script activated user accounts"
(marionette-eval
'(string-contains (call-with-input-file "/etc/passwd"
(lambda (port)
(get-string-all port)))
"jakob")
marionette)))
(test-end) (test-end)
(exit (= (test-runner-fail-count (test-runner-current)) 0))))) (exit (= (test-runner-fail-count (test-runner-current)) 0)))))