[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/10: tests: openvswitch: Check whether ovs0 is up.
From: |
guix-commits |
Subject: |
02/10: tests: openvswitch: Check whether ovs0 is up. |
Date: |
Wed, 17 Nov 2021 12:08:36 -0500 (EST) |
civodul pushed a commit to branch wip-networking-netlink
in repository guix.
commit 2cd6f49b5e80e087f0483cdadbd51fe8d5527f4c
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)))))
- branch wip-networking-netlink created (now 3d1265a), guix-commits, 2021/11/17
- 09/10: services: Define '%loopback-static-networking'., guix-commits, 2021/11/17
- 07/10: services: static-networking: Change interface to mimic netlink., guix-commits, 2021/11/17
- 03/10: doc: Add new "Networking Setup" node for the main setup options., guix-commits, 2021/11/17
- 08/10: services: Define '%qemu-static-networking'., guix-commits, 2021/11/17
- 05/10: services: static-networking: Use Guile-Netlink on GNU/Linux., guix-commits, 2021/11/17
- 04/10: gnu: guile-netlink: Allow cross-compilation., guix-commits, 2021/11/17
- 10/10: tests: Replace uses of deprecated 'static-networking-service'., guix-commits, 2021/11/17
- 02/10: tests: openvswitch: Check whether ovs0 is up.,
guix-commits <=
- 06/10: services: secret-service: Turn into a Shepherd service., guix-commits, 2021/11/17
- 01/10: tests: Add 'static-networking' test., guix-commits, 2021/11/17