[shepherd] 01/02: guix: Add “root-unmount” system test.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 0b54a86f8ab7cad47f76675b1932f84c571b1179
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jun 9 18:17:24 2024 +0200

    guix: Add “root-unmount” system test.
    
    * .guix/manifest.scm (system-test/root-unmount): New variable.
    (system-tests): Add it.
---
 .guix/manifest.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/.guix/manifest.scm b/.guix/manifest.scm
index 3a741b3..460e3ae 100644
--- a/.guix/manifest.scm
+++ b/.guix/manifest.scm
@@ -97,6 +97,19 @@ TARGET."
                       #~(list #$vm)
                       name)))))
 
+(define system-test/root-unmount
+  ;; Halt a system with the 'halt' command, and check whether its root file
+  ;; system was cleanly unmounted.
+  (let ((run-root-unmount-test (@@ (gnu tests base)
+                                   run-root-unmount-test)))
+    (system-test
+     (inherit %test-root-unmount)
+     (name "system-test-root-unmount")
+     (value
+      (let ((os (marionette-operating-system
+                 (operating-system-with-latest-shepherd %simple-os))))
+        (run-root-unmount-test os))))))
+
 (define (system-test->manifest-entry test)
   "Return a manifest entry for @var{test}, a system test."
   (manifest-entry
@@ -111,6 +124,6 @@ TARGET."
 (define system-tests
   (manifest
    (map system-test->manifest-entry
-        (list system-test/base))))
+        (list system-test/base system-test/root-unmount))))
 
 (concatenate-manifests (list native-builds cross-builds system-tests))