From 9f0a37cd47a33311a869232ba5c78398eb60a02d Mon Sep 17 00:00:00 2001
From: Ygal Blum <ygal.blum@gmail.com>
Date: Mon, 2 Jan 2023 11:55:42 +0200
Subject: [PATCH] System tests: quadlet network test

Signed-off-by: Ygal Blum <ygal.blum@gmail.com>
---
 test/system/252-quadlet.bats     | 68 ++++++++++++++++++++++++++++++++
 test/system/helpers.systemd.bash |  2 +
 2 files changed, 70 insertions(+)

diff --git a/test/system/252-quadlet.bats b/test/system/252-quadlet.bats
index 50c6bee147..4e862c6108 100644
--- a/test/system/252-quadlet.bats
+++ b/test/system/252-quadlet.bats
@@ -293,6 +293,74 @@ EOF
     run_podman volume rm $volume_name
 }
 
+@test "quadlet - network" {
+    local quadlet_file=$PODMAN_TMPDIR/basic_$(random_string).network
+    cat > $quadlet_file <<EOF
+[Network]
+Label=foo=bar other="with space"
+EOF
+
+    run_quadlet "$quadlet_file"
+
+    service_setup $QUADLET_SERVICE_NAME
+
+    local network_name=systemd-$(basename $quadlet_file .network)
+    run_podman network exists $network_name
+
+    run_podman network inspect  --format "{{.Labels.foo}}" $network_name
+    is "$output" "bar"
+    run_podman network inspect  --format "{{.Labels.other}}" $network_name
+    is "$output" "with space"
+
+    service_cleanup $QUADLET_SERVICE_NAME inactive
+}
+
+# A quadlet container depends on a quadlet network
+@test "quadlet - network dependency" {
+    # Save the unit name to use as the network for the container
+    local quadlet_network_unit=dep_$(random_string).network
+    local quadlet_network_file=$PODMAN_TMPDIR/${quadlet_network_unit}
+    cat > $quadlet_network_file <<EOF
+[Network]
+EOF
+
+    # Have quadlet create the systemd unit file for the network unit
+    run_quadlet "$quadlet_network_file"
+
+    # Save the volume service name since the variable will be overwritten
+    local network_service=$QUADLET_SERVICE_NAME
+    local network_name=systemd-$(basename $quadlet_network_file .network)
+
+    local quadlet_file=$PODMAN_TMPDIR/user_$(random_string).container
+    cat > $quadlet_file <<EOF
+[Container]
+Image=$IMAGE
+Exec=top
+Network=$quadlet_network_unit
+EOF
+
+    run_quadlet "$quadlet_file"
+
+    # Save the container service name for readability
+    local container_service=$QUADLET_SERVICE_NAME
+
+    # Network should not exist
+    run_podman 1 network exists $network_name
+
+    service_setup $container_service
+
+    # Network system unit should be active
+    run systemctl show --property=ActiveState "$network_service"
+    assert "$output" = "ActiveState=active" \
+           "network should be active via dependency"
+
+    # Network should exist
+    run_podman network exists $network_name
+
+    service_cleanup $QUADLET_SERVICE_NAME failed
+    run_podman network rm $network_name
+}
+
 @test "quadlet kube - basic" {
     # Create the YAMl file
     yaml_source="$PODMAN_TMPDIR/basic_$(random_string).yaml"
diff --git a/test/system/helpers.systemd.bash b/test/system/helpers.systemd.bash
index 813bd806f5..c8a888bcc5 100644
--- a/test/system/helpers.systemd.bash
+++ b/test/system/helpers.systemd.bash
@@ -55,6 +55,8 @@ quadlet_to_service_name() {
 
     if [ "$extension" == "volume" ]; then
         suffix="-volume"
+    elif [ "$extension" == "network" ]; then
+        suffix="-network"
     fi
 
     echo "$filename$suffix.service"