# SPDX-License-Identifier: GPL-2.0-or-later
#
# PASST - Plug A Simple Socket Transport
#  for qemu/UNIX domain socket mode
#
# PASTA - Pack A Subtle Tap Abstraction
#  for network namespace/tap device mode
#
# test/pasta/dhcp - Check DHCP and DHCPv6 functionality in pasta mode
#
# Copyright (c) 2021 Red Hat GmbH
# Author: Stefano Brivio <sbrivio@redhat.com>

nstools	ip jq /sbin/dhclient
htools	ip jq

test	Interface name
nsout	IFNAME ip -j link show | jq -rM '.[] | select(.link_type == "ether").ifname'
check	[ -n "__IFNAME__" ]

test	DHCP: address
ns	cp /sbin/dhclient __STATEDIR__/dhclient
ns	__STATEDIR__/dhclient -4 --no-pid -lf __STATEDIR__/dhclient4.leases __IFNAME__
sleep	1
nsout	ADDR ip -j -4 addr show|jq -rM '.[] | select(.ifname == "__IFNAME__").addr_info[0].local'
hout	HOST_ADDR ip -j -4 addr show|jq -rM '.[] | select(.ifname == "__IFNAME__").addr_info[0].local'
check	[ "__ADDR__" = "__HOST_ADDR__" ]

test	DHCP: route
nsout	GW ip -j -4 route show|jq -rM '.[] | select(.dst == "default").gateway'
hout	HOST_GW ip -j -4 route show|jq -rM '[.[] | select(.dst == "default").gateway] | .[0]'
check	[ "__GW__" = "__HOST_GW__" ]

test	DHCP: MTU
nsout	MTU ip -j link show | jq -rM '.[] | select(.ifname == "__IFNAME__").mtu'
check	[ __MTU__ = 65520 ]

test	DHCPv6: address
ns	__STATEDIR__/dhclient -6 -sf __BASEPATH__/lib/dhclient-script --no-pid -lf __STATEDIR__/dhclient6.leases __IFNAME__
# Wait for DAD to complete
ns	while ip -j -6 addr show tentative | jq -e '.[].addr_info'; do sleep 0.1; done
hout	HOST_IFNAME6 ip -j -6 route show|jq -rM '[.[] | select(.dst == "default").dev] | .[0]'
nsout	ADDR6 ip -j -6 addr show|jq -rM '[.[] | select(.ifname == "__IFNAME__").addr_info[] | select(.scope == "global").local] | .[0]'
hout	HOST_ADDR6 ip -j -6 addr show|jq -rM '[.[] | select(.ifname == "__HOST_IFNAME6__").addr_info[] | select(.scope != "host" and .scope != "link" and .deprecated != true).local] | join(" ")'
check	echo "__HOST_ADDR6__" | grep -wq "__ADDR6__"

test	DHCPv6: route
nsout	GW6 ip -j -6 route show|jq -rM '.[] | select(.dst == "default").gateway'
hout	HOST_GW6 ip -j -6 route show|jq -rM '[.[] | select(.dst == "default").gateway] | .[0]'
check	[ "__GW6__" = "__HOST_GW6__" ]