02/11: tests: openvswitch: Check whether ovs0 is up.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 33c498b9ee93429adc9e444ffe90df5b158fa0df
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Oct 23 15:04:58 2021 +0200

    tests: openvswitch: Check whether ovs0 is up.
    
    * gnu/tests/networking.scm (run-openvswitch-test)["ovs0 is up"]: New test.
---
 gnu/tests/networking.scm | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/gnu/tests/networking.scm b/gnu/tests/networking.scm
index 5da1c91..131428c 100644
--- a/gnu/tests/networking.scm
+++ b/gnu/tests/networking.scm
@@ -286,12 +286,15 @@ port 7, and a dict service on port 2628."
 (define (run-openvswitch-test)
   (define os
     (marionette-operating-system %openvswitch-os
-                                 #:imported-modules '((gnu services herd))))
+                                 #:imported-modules '((gnu services herd)
+                                                      (guix build syscalls))))
 
   (define test
-    (with-imported-modules '((gnu build marionette))
+    (with-imported-modules '((gnu build marionette)
+                             (guix build syscalls))
       #~(begin
           (use-modules (gnu build marionette)
+                       (guix build syscalls)
                        (ice-9 popen)
                        (ice-9 rdelim)
                        (srfi srfi-64))
@@ -339,6 +342,18 @@ port 7, and a dict service on port 2628."
                        (current-services))))
              marionette))
 
+          (test-equal "ovs0 is up"
+            IFF_UP
+            (marionette-eval
+             '(begin
+                (use-modules (guix build syscalls))
+
+                (let* ((sock  (socket AF_INET SOCK_STREAM 0))
+                       (flags (network-interface-flags sock "ovs0")))
+                  (close-port sock)
+                  (logand flags IFF_UP)))
+             marionette))
+
           (test-end)
           (exit (= (test-runner-fail-count (test-runner-current)) 0)))))