# SPDX-License-Identifier: GPL-2.0
source "$net_forwarding_dir/mirror_lib.sh"
quick_test_span_gre_dir_ips()
{
local tundev=$1; shift
local ip1=$1; shift
local ip2=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
do_test_span_dir_ips 10 h3-$tundev "$ip1" "$ip2" \
"$forward_type" "$backward_type"
}
fail_test_span_gre_dir_ips()
{
local tundev=$1; shift
local ip1=$1; shift
local ip2=$1; shift
do_test_span_dir_ips 0 h3-$tundev "$ip1" "$ip2"
}
test_span_gre_dir_ips()
{
local tundev=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local ip1=$1; shift
local ip2=$1; shift
test_span_dir_ips h3-$tundev "$forward_type" \
"$backward_type" "$ip1" "$ip2"
}
full_test_span_gre_dir_ips()
{
local tundev=$1; shift
local direction=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local what=$1; shift
local ip1=$1; shift
local ip2=$1; shift
RET=0
mirror_install $swp1 $direction $tundev "matchall"
test_span_dir_ips "h3-$tundev" "$forward_type" \
"$backward_type" "$ip1" "$ip2"
mirror_uninstall $swp1 $direction
log_test "$direction $what"
}
full_test_span_gre_dir_vlan_ips()
{
local tundev=$1; shift
local direction=$1; shift
local vlan_match=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local what=$1; shift
local ip1=$1; shift
local ip2=$1; shift
RET=0
mirror_install $swp1 $direction $tundev "matchall"
test_span_dir_ips "h3-$tundev" "$forward_type" \
"$backward_type" "$ip1" "$ip2"
tc filter add dev $h3 ingress pref 77 prot 802.1q \
flower $vlan_match \
action pass
mirror_test v$h1 $ip1 $ip2 $h3 77 '>= 10'
tc filter del dev $h3 ingress pref 77
mirror_uninstall $swp1 $direction
log_test "$direction $what"
}
quick_test_span_gre_dir()
{
local tundev=$1; shift
local forward_type=${1-8}; shift
local backward_type=${1-0}; shift
quick_test_span_gre_dir_ips "$tundev" 192.0.2.1 192.0.2.2 \
"$forward_type" "$backward_type"
}
fail_test_span_gre_dir()
{
local tundev=$1; shift
fail_test_span_gre_dir_ips "$tundev" 192.0.2.1 192.0.2.2
}
full_test_span_gre_dir()
{
local tundev=$1; shift
local direction=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local what=$1; shift
full_test_span_gre_dir_ips "$tundev" "$direction" "$forward_type" \
"$backward_type" "$what" 192.0.2.1 192.0.2.2
}
full_test_span_gre_dir_vlan()
{
local tundev=$1; shift
local direction=$1; shift
local vlan_match=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local what=$1; shift
full_test_span_gre_dir_vlan_ips "$tundev" "$direction" "$vlan_match" \
"$forward_type" "$backward_type" \
"$what" 192.0.2.1 192.0.2.2
}
full_test_span_gre_stp_ips()
{
local tundev=$1; shift
local nbpdev=$1; shift
local what=$1; shift
local ip1=$1; shift
local ip2=$1; shift
local forward_type=$1; shift
local backward_type=$1; shift
local h3mac=$(mac_get $h3)
RET=0
mirror_install $swp1 ingress $tundev "matchall"
quick_test_span_gre_dir_ips $tundev $ip1 $ip2 \
"$forward_type" "$backward_type"
bridge link set dev $nbpdev state disabled
sleep 1
fail_test_span_gre_dir_ips $tundev $ip1 $ip2
bridge link set dev $nbpdev state forwarding
sleep 1
quick_test_span_gre_dir_ips $tundev $ip1 $ip2 \
"$forward_type" "$backward_type"
mirror_uninstall $swp1 ingress
log_test "$what: STP state"
}
full_test_span_gre_stp()
{
local tundev=$1; shift
local nbpdev=$1; shift
local what=$1; shift
local forward_type=${1-8}; shift
local backward_type=${1-0}; shift
full_test_span_gre_stp_ips "$tundev" "$nbpdev" "$what" \
192.0.2.1 192.0.2.2 \
"$forward_type" "$backward_type"
}