2 files changed, 21 insertions(+), 20 deletions(-)

M gnu/tests.scm
M gnu/tests/install.scm

@@ 53,6 53,7 @@
 
             %simple-os
             simple-operating-system
+            operating-system-with-console-syslog
 
             system-test
             system-test?


@@ 268,6 269,26 @@ the system under test."
                     (services (cons* user-services ... %base-services))))
 
 
+(define (operating-system-with-console-syslog os)
+  "Return OS with a system log service that writes to /dev/console."
+  (operating-system
+    (inherit os)
+    (services
+     (modify-services (operating-system-user-services os)
+       (shepherd-system-log-service-type
+        config
+        =>
+        (system-log-configuration
+         (inherit config)
+         (message-destination
+          #~(lambda (message)
+              (let ((destinations ((default-message-destination-procedure)
+                                   message)))
+                (if (<= (system-log-message-priority message)
+                        (system-log-priority info))
+                    (cons "/dev/console" destinations)
+                    destinations))))))))))
+
 
 ;;;
 ;;; Tests.

@@ 1784,26 1784,6 @@ build (current-guix) and then store a couple of full system images.")
 ;;; Installation through the graphical interface.
 ;;;
 
-(define (operating-system-with-console-syslog os)
-  "Return OS with a syslog service that writes to /dev/console."
-  (operating-system
-    (inherit os)
-    (services
-     (modify-services (operating-system-user-services os)
-       (shepherd-system-log-service-type
-        config
-        =>
-        (system-log-configuration
-         (inherit config)
-         (message-destination
-          #~(lambda (message)
-              (let ((destinations ((default-message-destination-procedure)
-                                   message)))
-                (if (<= (system-log-message-priority message)
-                        (system-log-priority info))
-                    (cons "/dev/console" destinations)
-                    destinations))))))))))
-
 (define %root-password "foo")
 
 (define* (gui-test-program marionette