03/12: tests: security: Fix fail2ban-extension-test.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 0d7e40473b1054b23307e5362e9f4b1ef2766f5b
Author: Tomas Volf <~@wolfsden.cz>
AuthorDate: Fri Jan 12 00:42:55 2024 +0100

    tests: security: Fix fail2ban-extension-test.
    
    The openssh-service-type requires 'networking to be setup.  So add a
    static-networking-service-type that provides it.
    
    * gnu/tests/security.scm
    (run-fail2ban-extension-test)[simple-operating-system]: Add
    static-networking-service-type service.
    
    Change-Id: I8d736cbf3fcaa54f86fbd60c52b3595b647731e2
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/tests/security.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/tests/security.scm b/gnu/tests/security.scm
index ca6c857899..93cbe4a977 100644
--- a/gnu/tests/security.scm
+++ b/gnu/tests/security.scm
@@ -20,6 +20,7 @@
   #:use-module (guix gexp)
   #:use-module (gnu packages admin)
   #:use-module (gnu services)
+  #:use-module (gnu services base)
   #:use-module (gnu services security)
   #:use-module (gnu services ssh)
   #:use-module (gnu system)
@@ -176,7 +177,9 @@
    (simple-operating-system
     (service (fail2ban-jail-service openssh-service-type 
(fail2ban-jail-configuration
                                                           (name "sshd") 
(enabled? #t)))
-             (openssh-configuration)))
+             (openssh-configuration))
+    (service static-networking-service-type
+             (list %qemu-static-networking)))
 
    (test-equal "fail2ban sshd jail running status output"
      '("Status for the jail: sshd"