(address . guix-patches@gnu.org)
87r25x4059.fsf@sdf.lonestar.org
* 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.
---
gnu/tests/reconfigure.scm | 32 +++++++++++++++++++++++++++++---
1 file changed, 29 insertions(+), 3 deletions(-)
Toggle diff (60 lines)
diff --git a/gnu/tests/reconfigure.scm b/gnu/tests/reconfigure.scm
index 3a2f0a2e53..fb11e6164e 100644
--- a/gnu/tests/reconfigure.scm
+++ b/gnu/tests/reconfigure.scm
@@ -19,8 +19,10 @@
(define-module (gnu tests reconfigure)
#:use-module (gnu bootloader)
#:use-module (gnu services shepherd)
- #:use-module (gnu system vm)
#: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 (guix derivations)
#:use-module (guix gexp)
@@ -43,7 +45,13 @@
generation of the system profile."
(define os
(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)
(guix combinators))))
@@ -84,7 +92,25 @@ generation of the system profile."
(test-equal "script created new generation"
(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)
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
--
2.22.0
-----BEGIN PGP SIGNATURE-----
iQIzBAEBCAAdFiEEa1VJLOiXAjQ2BGSm9Qb9Fp2P2VoFAl1Kx0IACgkQ9Qb9Fp2P
2VotMBAAmeGeO4/GRlk+YqPjTUIpqSdmgymQ0JbjshdjGjHR767Bb9bjCvYkFOc7
4C4OHGGaedVk2UxwCs5m68O61dWTwPN4TMWiGKYnlxtt3t6R02xtQw4rUoQ0lJ94
N25NyAXx563jqqcrHvubCCkT97JfVPSCNaRHlxjDMyEVNsfxalwLBvaRmU3zzGzv
qICgCjnaldkgrzgWsxYzYi8sB4WRaD3Rid7unxezlzEMEpE/KnY0L+u4YwII7A8Y
dfogNNfgcrmlRvyhtLxN+e0mDa/xmeY+HqMlYbJ9rmVkSg5rjqENPviYfAzVzcUu
VnRlFT2Pkz9BXMCJlUcUyCrLkuj565v9CR2zv2Cukph+8zl7NIzdeGBfeaZHFZCA
6cePiS/yLaRMxLiCPYYQJCtQeWs6G2cp+bwv7X7FcRhhB9VIQmfCpsL89qcdhMLv
7QLG6xoR+QXSpTbTZL4jl2hfQbqbzEF2CDy84p+gqdOH9pmZb8niW7coYmovhT2X
pcUCKAeCy+4g4EXxZl2YJ+NEvXhHFyFZDQYtNOW/yVAZ8S5gS/uWS16E13AhLI5I
RM9DtN7maj3mUjt5eR4GdwKo9xliUw3RmMqsNjr7MJepj4Cmyh3GTIALCPo1Mifx
TCc4BxGNqZS5UTPXFC1m/Ph5Qd02TkJyRkVophWY3xVG43qhap0=
=4wDU
-----END PGP SIGNATURE-----