tests: Make ‘operating-system-with-console-syslog’ public.

* gnu/tests/install.scm (operating-system-with-console-syslog): Move to…
* gnu/tests.scm (operating-system-with-console-syslog): … here.  New
procedure.

Reviewed-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: I015e24525140365d09f22127d366107fdc9ca902

1 files changed, 21 insertions, 0 deletions

diff --git a/gnu/tests.scm b/gnu/tests.scm
index 84298de448d..abb70762089 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.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.