1890 lines
36 KiB
Bash
1890 lines
36 KiB
Bash
|
#!/bin/bash
|
||
|
|
# SPDX-License-Identifier: GPL-2.0
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Defines
|
||
|
|
|
||
|
|
# Kselftest framework requirement - SKIP code is 4.
|
||
|
|
ksft_skip=4
|
||
|
|
|
||
|
|
# Can be overridden by the configuration file.
|
||
|
|
PING=${PING:=ping}
|
||
|
|
PING6=${PING6:=ping6}
|
||
|
|
MZ=${MZ:=mausezahn}
|
||
|
|
ARPING=${ARPING:=arping}
|
||
|
|
TEAMD=${TEAMD:=teamd}
|
||
|
|
WAIT_TIME=${WAIT_TIME:=5}
|
||
|
|
PAUSE_ON_FAIL=${PAUSE_ON_FAIL:=no}
|
||
|
|
PAUSE_ON_CLEANUP=${PAUSE_ON_CLEANUP:=no}
|
||
|
|
NETIF_TYPE=${NETIF_TYPE:=veth}
|
||
|
|
NETIF_CREATE=${NETIF_CREATE:=yes}
|
||
|
|
MCD=${MCD:=smcrouted}
|
||
|
|
MC_CLI=${MC_CLI:=smcroutectl}
|
||
|
|
PING_COUNT=${PING_COUNT:=10}
|
||
|
|
PING_TIMEOUT=${PING_TIMEOUT:=5}
|
||
|
|
WAIT_TIMEOUT=${WAIT_TIMEOUT:=20}
|
||
|
|
INTERFACE_TIMEOUT=${INTERFACE_TIMEOUT:=600}
|
||
|
|
LOW_AGEING_TIME=${LOW_AGEING_TIME:=1000}
|
||
|
|
REQUIRE_JQ=${REQUIRE_JQ:=yes}
|
||
|
|
REQUIRE_MZ=${REQUIRE_MZ:=yes}
|
||
|
|
REQUIRE_MTOOLS=${REQUIRE_MTOOLS:=no}
|
||
|
|
STABLE_MAC_ADDRS=${STABLE_MAC_ADDRS:=no}
|
||
|
|
TCPDUMP_EXTRA_FLAGS=${TCPDUMP_EXTRA_FLAGS:=}
|
||
|
|
|
||
|
|
relative_path="${BASH_SOURCE%/*}"
|
||
|
|
if [[ "$relative_path" == "${BASH_SOURCE}" ]]; then
|
||
|
|
relative_path="."
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ -f $relative_path/forwarding.config ]]; then
|
||
|
|
source "$relative_path/forwarding.config"
|
||
|
|
fi
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Sanity checks
|
||
|
|
|
||
|
|
check_tc_version()
|
||
|
|
{
|
||
|
|
tc -j &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc is missing JSON support"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
# Old versions of tc don't understand "mpls_uc"
|
||
|
|
check_tc_mpls_support()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
|
||
|
|
tc filter add dev $dev ingress protocol mpls_uc pref 1 handle 1 \
|
||
|
|
matchall action pipe &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc is missing MPLS support"
|
||
|
|
return $ksft_skip
|
||
|
|
fi
|
||
|
|
tc filter del dev $dev ingress protocol mpls_uc pref 1 handle 1 \
|
||
|
|
matchall
|
||
|
|
}
|
||
|
|
|
||
|
|
# Old versions of tc produce invalid json output for mpls lse statistics
|
||
|
|
check_tc_mpls_lse_stats()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local ret;
|
||
|
|
|
||
|
|
tc filter add dev $dev ingress protocol mpls_uc pref 1 handle 1 \
|
||
|
|
flower mpls lse depth 2 \
|
||
|
|
action continue &> /dev/null
|
||
|
|
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc-flower is missing extended MPLS support"
|
||
|
|
return $ksft_skip
|
||
|
|
fi
|
||
|
|
|
||
|
|
tc -j filter show dev $dev ingress protocol mpls_uc | jq . &> /dev/null
|
||
|
|
ret=$?
|
||
|
|
tc filter del dev $dev ingress protocol mpls_uc pref 1 handle 1 \
|
||
|
|
flower
|
||
|
|
|
||
|
|
if [[ $ret -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc-flower produces invalid json output for extended MPLS filters"
|
||
|
|
return $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_tc_shblock_support()
|
||
|
|
{
|
||
|
|
tc filter help 2>&1 | grep block &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc is missing shared block support"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_tc_chain_support()
|
||
|
|
{
|
||
|
|
tc help 2>&1|grep chain &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc is missing chain support"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_tc_action_hw_stats_support()
|
||
|
|
{
|
||
|
|
tc actions help 2>&1 | grep -q hw_stats
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: iproute2 too old; tc is missing action hw_stats support"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_ethtool_lanes_support()
|
||
|
|
{
|
||
|
|
ethtool --help 2>&1| grep lanes &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: ethtool too old; it is missing lanes support"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_locked_port_support()
|
||
|
|
{
|
||
|
|
if ! bridge -d link show | grep -q " locked"; then
|
||
|
|
echo "SKIP: iproute2 too old; Locked port feature not supported."
|
||
|
|
return $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_port_mab_support()
|
||
|
|
{
|
||
|
|
if ! bridge -d link show | grep -q "mab"; then
|
||
|
|
echo "SKIP: iproute2 too old; MacAuth feature not supported."
|
||
|
|
return $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
if [[ "$(id -u)" -ne 0 ]]; then
|
||
|
|
echo "SKIP: need root privileges"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ "$CHECK_TC" = "yes" ]]; then
|
||
|
|
check_tc_version
|
||
|
|
fi
|
||
|
|
|
||
|
|
require_command()
|
||
|
|
{
|
||
|
|
local cmd=$1; shift
|
||
|
|
|
||
|
|
if [[ ! -x "$(command -v "$cmd")" ]]; then
|
||
|
|
echo "SKIP: $cmd not installed"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
if [[ "$REQUIRE_JQ" = "yes" ]]; then
|
||
|
|
require_command jq
|
||
|
|
fi
|
||
|
|
if [[ "$REQUIRE_MZ" = "yes" ]]; then
|
||
|
|
require_command $MZ
|
||
|
|
fi
|
||
|
|
if [[ "$REQUIRE_MTOOLS" = "yes" ]]; then
|
||
|
|
# https://github.com/vladimiroltean/mtools/
|
||
|
|
# patched for IPv6 support
|
||
|
|
require_command msend
|
||
|
|
require_command mreceive
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ ! -v NUM_NETIFS ]]; then
|
||
|
|
echo "SKIP: importer does not define \"NUM_NETIFS\""
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Command line options handling
|
||
|
|
|
||
|
|
count=0
|
||
|
|
|
||
|
|
while [[ $# -gt 0 ]]; do
|
||
|
|
if [[ "$count" -eq "0" ]]; then
|
||
|
|
unset NETIFS
|
||
|
|
declare -A NETIFS
|
||
|
|
fi
|
||
|
|
count=$((count + 1))
|
||
|
|
NETIFS[p$count]="$1"
|
||
|
|
shift
|
||
|
|
done
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Network interfaces configuration
|
||
|
|
|
||
|
|
create_netif_veth()
|
||
|
|
{
|
||
|
|
local i
|
||
|
|
|
||
|
|
for ((i = 1; i <= NUM_NETIFS; ++i)); do
|
||
|
|
local j=$((i+1))
|
||
|
|
|
||
|
|
ip link show dev ${NETIFS[p$i]} &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
ip link add ${NETIFS[p$i]} type veth \
|
||
|
|
peer name ${NETIFS[p$j]}
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "Failed to create netif"
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
i=$j
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
create_netif()
|
||
|
|
{
|
||
|
|
case "$NETIF_TYPE" in
|
||
|
|
veth) create_netif_veth
|
||
|
|
;;
|
||
|
|
*) echo "Can not create interfaces of type \'$NETIF_TYPE\'"
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
declare -A MAC_ADDR_ORIG
|
||
|
|
mac_addr_prepare()
|
||
|
|
{
|
||
|
|
local new_addr=
|
||
|
|
local dev=
|
||
|
|
|
||
|
|
for ((i = 1; i <= NUM_NETIFS; ++i)); do
|
||
|
|
dev=${NETIFS[p$i]}
|
||
|
|
new_addr=$(printf "00:01:02:03:04:%02x" $i)
|
||
|
|
|
||
|
|
MAC_ADDR_ORIG["$dev"]=$(ip -j link show dev $dev | jq -e '.[].address')
|
||
|
|
# Strip quotes
|
||
|
|
MAC_ADDR_ORIG["$dev"]=${MAC_ADDR_ORIG["$dev"]//\"/}
|
||
|
|
ip link set dev $dev address $new_addr
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
mac_addr_restore()
|
||
|
|
{
|
||
|
|
local dev=
|
||
|
|
|
||
|
|
for ((i = 1; i <= NUM_NETIFS; ++i)); do
|
||
|
|
dev=${NETIFS[p$i]}
|
||
|
|
ip link set dev $dev address ${MAC_ADDR_ORIG["$dev"]}
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
if [[ "$NETIF_CREATE" = "yes" ]]; then
|
||
|
|
create_netif
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ "$STABLE_MAC_ADDRS" = "yes" ]]; then
|
||
|
|
mac_addr_prepare
|
||
|
|
fi
|
||
|
|
|
||
|
|
for ((i = 1; i <= NUM_NETIFS; ++i)); do
|
||
|
|
ip link show dev ${NETIFS[p$i]} &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
echo "SKIP: could not find all required interfaces"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Helpers
|
||
|
|
|
||
|
|
# Exit status to return at the end. Set in case one of the tests fails.
|
||
|
|
EXIT_STATUS=0
|
||
|
|
# Per-test return value. Clear at the beginning of each test.
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
check_err()
|
||
|
|
{
|
||
|
|
local err=$1
|
||
|
|
local msg=$2
|
||
|
|
|
||
|
|
if [[ $RET -eq 0 && $err -ne 0 ]]; then
|
||
|
|
RET=$err
|
||
|
|
retmsg=$msg
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_fail()
|
||
|
|
{
|
||
|
|
local err=$1
|
||
|
|
local msg=$2
|
||
|
|
|
||
|
|
if [[ $RET -eq 0 && $err -eq 0 ]]; then
|
||
|
|
RET=1
|
||
|
|
retmsg=$msg
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
check_err_fail()
|
||
|
|
{
|
||
|
|
local should_fail=$1; shift
|
||
|
|
local err=$1; shift
|
||
|
|
local what=$1; shift
|
||
|
|
|
||
|
|
if ((should_fail)); then
|
||
|
|
check_fail $err "$what succeeded, but should have failed"
|
||
|
|
else
|
||
|
|
check_err $err "$what failed"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
log_test()
|
||
|
|
{
|
||
|
|
local test_name=$1
|
||
|
|
local opt_str=$2
|
||
|
|
|
||
|
|
if [[ $# -eq 2 ]]; then
|
||
|
|
opt_str="($opt_str)"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ $RET -ne 0 ]]; then
|
||
|
|
EXIT_STATUS=1
|
||
|
|
printf "TEST: %-60s [FAIL]\n" "$test_name $opt_str"
|
||
|
|
if [[ ! -z "$retmsg" ]]; then
|
||
|
|
printf "\t%s\n" "$retmsg"
|
||
|
|
fi
|
||
|
|
if [ "${PAUSE_ON_FAIL}" = "yes" ]; then
|
||
|
|
echo "Hit enter to continue, 'q' to quit"
|
||
|
|
read a
|
||
|
|
[ "$a" = "q" ] && exit 1
|
||
|
|
fi
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
printf "TEST: %-60s [ OK ]\n" "$test_name $opt_str"
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
log_test_skip()
|
||
|
|
{
|
||
|
|
local test_name=$1
|
||
|
|
local opt_str=$2
|
||
|
|
|
||
|
|
printf "TEST: %-60s [SKIP]\n" "$test_name $opt_str"
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
log_info()
|
||
|
|
{
|
||
|
|
local msg=$1
|
||
|
|
|
||
|
|
echo "INFO: $msg"
|
||
|
|
}
|
||
|
|
|
||
|
|
busywait()
|
||
|
|
{
|
||
|
|
local timeout=$1; shift
|
||
|
|
|
||
|
|
local start_time="$(date -u +%s%3N)"
|
||
|
|
while true
|
||
|
|
do
|
||
|
|
local out
|
||
|
|
out=$("$@")
|
||
|
|
local ret=$?
|
||
|
|
if ((!ret)); then
|
||
|
|
echo -n "$out"
|
||
|
|
return 0
|
||
|
|
fi
|
||
|
|
|
||
|
|
local current_time="$(date -u +%s%3N)"
|
||
|
|
if ((current_time - start_time > timeout)); then
|
||
|
|
echo -n "$out"
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
not()
|
||
|
|
{
|
||
|
|
"$@"
|
||
|
|
[[ $? != 0 ]]
|
||
|
|
}
|
||
|
|
|
||
|
|
get_max()
|
||
|
|
{
|
||
|
|
local arr=("$@")
|
||
|
|
|
||
|
|
max=${arr[0]}
|
||
|
|
for cur in ${arr[@]}; do
|
||
|
|
if [[ $cur -gt $max ]]; then
|
||
|
|
max=$cur
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
echo $max
|
||
|
|
}
|
||
|
|
|
||
|
|
grep_bridge_fdb()
|
||
|
|
{
|
||
|
|
local addr=$1; shift
|
||
|
|
local word
|
||
|
|
local flag
|
||
|
|
|
||
|
|
if [ "$1" == "self" ] || [ "$1" == "master" ]; then
|
||
|
|
word=$1; shift
|
||
|
|
if [ "$1" == "-v" ]; then
|
||
|
|
flag=$1; shift
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
$@ | grep $addr | grep $flag "$word"
|
||
|
|
}
|
||
|
|
|
||
|
|
wait_for_port_up()
|
||
|
|
{
|
||
|
|
"$@" | grep -q "Link detected: yes"
|
||
|
|
}
|
||
|
|
|
||
|
|
wait_for_offload()
|
||
|
|
{
|
||
|
|
"$@" | grep -q offload
|
||
|
|
}
|
||
|
|
|
||
|
|
wait_for_trap()
|
||
|
|
{
|
||
|
|
"$@" | grep -q trap
|
||
|
|
}
|
||
|
|
|
||
|
|
until_counter_is()
|
||
|
|
{
|
||
|
|
local expr=$1; shift
|
||
|
|
local current=$("$@")
|
||
|
|
|
||
|
|
echo $((current))
|
||
|
|
((current $expr))
|
||
|
|
}
|
||
|
|
|
||
|
|
busywait_for_counter()
|
||
|
|
{
|
||
|
|
local timeout=$1; shift
|
||
|
|
local delta=$1; shift
|
||
|
|
|
||
|
|
local base=$("$@")
|
||
|
|
busywait "$timeout" until_counter_is ">= $((base + delta))" "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_wait_dev()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local wait_time=${1:-$WAIT_TIME}; shift
|
||
|
|
|
||
|
|
setup_wait_dev_with_timeout "$dev" $INTERFACE_TIMEOUT $wait_time
|
||
|
|
|
||
|
|
if (($?)); then
|
||
|
|
check_err 1
|
||
|
|
log_test setup_wait_dev ": Interface $dev does not come up."
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_wait_dev_with_timeout()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local max_iterations=${1:-$WAIT_TIMEOUT}; shift
|
||
|
|
local wait_time=${1:-$WAIT_TIME}; shift
|
||
|
|
local i
|
||
|
|
|
||
|
|
for ((i = 1; i <= $max_iterations; ++i)); do
|
||
|
|
ip link show dev $dev up \
|
||
|
|
| grep 'state UP' &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
sleep 1
|
||
|
|
else
|
||
|
|
sleep $wait_time
|
||
|
|
return 0
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
return 1
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_wait()
|
||
|
|
{
|
||
|
|
local num_netifs=${1:-$NUM_NETIFS}
|
||
|
|
local i
|
||
|
|
|
||
|
|
for ((i = 1; i <= num_netifs; ++i)); do
|
||
|
|
setup_wait_dev ${NETIFS[p$i]} 0
|
||
|
|
done
|
||
|
|
|
||
|
|
# Make sure links are ready.
|
||
|
|
sleep $WAIT_TIME
|
||
|
|
}
|
||
|
|
|
||
|
|
cmd_jq()
|
||
|
|
{
|
||
|
|
local cmd=$1
|
||
|
|
local jq_exp=$2
|
||
|
|
local jq_opts=$3
|
||
|
|
local ret
|
||
|
|
local output
|
||
|
|
|
||
|
|
output="$($cmd)"
|
||
|
|
# it the command fails, return error right away
|
||
|
|
ret=$?
|
||
|
|
if [[ $ret -ne 0 ]]; then
|
||
|
|
return $ret
|
||
|
|
fi
|
||
|
|
output=$(echo $output | jq -r $jq_opts "$jq_exp")
|
||
|
|
ret=$?
|
||
|
|
if [[ $ret -ne 0 ]]; then
|
||
|
|
return $ret
|
||
|
|
fi
|
||
|
|
echo $output
|
||
|
|
# return success only in case of non-empty output
|
||
|
|
[ ! -z "$output" ]
|
||
|
|
}
|
||
|
|
|
||
|
|
pre_cleanup()
|
||
|
|
{
|
||
|
|
if [ "${PAUSE_ON_CLEANUP}" = "yes" ]; then
|
||
|
|
echo "Pausing before cleanup, hit any key to continue"
|
||
|
|
read
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ "$STABLE_MAC_ADDRS" = "yes" ]]; then
|
||
|
|
mac_addr_restore
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
vrf_prepare()
|
||
|
|
{
|
||
|
|
ip -4 rule add pref 32765 table local
|
||
|
|
ip -4 rule del pref 0
|
||
|
|
ip -6 rule add pref 32765 table local
|
||
|
|
ip -6 rule del pref 0
|
||
|
|
}
|
||
|
|
|
||
|
|
vrf_cleanup()
|
||
|
|
{
|
||
|
|
ip -6 rule add pref 0 table local
|
||
|
|
ip -6 rule del pref 32765
|
||
|
|
ip -4 rule add pref 0 table local
|
||
|
|
ip -4 rule del pref 32765
|
||
|
|
}
|
||
|
|
|
||
|
|
__last_tb_id=0
|
||
|
|
declare -A __TB_IDS
|
||
|
|
|
||
|
|
__vrf_td_id_assign()
|
||
|
|
{
|
||
|
|
local vrf_name=$1
|
||
|
|
|
||
|
|
__last_tb_id=$((__last_tb_id + 1))
|
||
|
|
__TB_IDS[$vrf_name]=$__last_tb_id
|
||
|
|
return $__last_tb_id
|
||
|
|
}
|
||
|
|
|
||
|
|
__vrf_td_id_lookup()
|
||
|
|
{
|
||
|
|
local vrf_name=$1
|
||
|
|
|
||
|
|
return ${__TB_IDS[$vrf_name]}
|
||
|
|
}
|
||
|
|
|
||
|
|
vrf_create()
|
||
|
|
{
|
||
|
|
local vrf_name=$1
|
||
|
|
local tb_id
|
||
|
|
|
||
|
|
__vrf_td_id_assign $vrf_name
|
||
|
|
tb_id=$?
|
||
|
|
|
||
|
|
ip link add dev $vrf_name type vrf table $tb_id
|
||
|
|
ip -4 route add table $tb_id unreachable default metric 4278198272
|
||
|
|
ip -6 route add table $tb_id unreachable default metric 4278198272
|
||
|
|
}
|
||
|
|
|
||
|
|
vrf_destroy()
|
||
|
|
{
|
||
|
|
local vrf_name=$1
|
||
|
|
local tb_id
|
||
|
|
|
||
|
|
__vrf_td_id_lookup $vrf_name
|
||
|
|
tb_id=$?
|
||
|
|
|
||
|
|
ip -6 route del table $tb_id unreachable default metric 4278198272
|
||
|
|
ip -4 route del table $tb_id unreachable default metric 4278198272
|
||
|
|
ip link del dev $vrf_name
|
||
|
|
}
|
||
|
|
|
||
|
|
__addr_add_del()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local add_del=$2
|
||
|
|
local array
|
||
|
|
|
||
|
|
shift
|
||
|
|
shift
|
||
|
|
array=("${@}")
|
||
|
|
|
||
|
|
for addrstr in "${array[@]}"; do
|
||
|
|
ip address $add_del $addrstr dev $if_name
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
__simple_if_init()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local vrf_name=$1; shift
|
||
|
|
local addrs=("${@}")
|
||
|
|
|
||
|
|
ip link set dev $if_name master $vrf_name
|
||
|
|
ip link set dev $if_name up
|
||
|
|
|
||
|
|
__addr_add_del $if_name add "${addrs[@]}"
|
||
|
|
}
|
||
|
|
|
||
|
|
__simple_if_fini()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local addrs=("${@}")
|
||
|
|
|
||
|
|
__addr_add_del $if_name del "${addrs[@]}"
|
||
|
|
|
||
|
|
ip link set dev $if_name down
|
||
|
|
ip link set dev $if_name nomaster
|
||
|
|
}
|
||
|
|
|
||
|
|
simple_if_init()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local vrf_name
|
||
|
|
local array
|
||
|
|
|
||
|
|
shift
|
||
|
|
vrf_name=v$if_name
|
||
|
|
array=("${@}")
|
||
|
|
|
||
|
|
vrf_create $vrf_name
|
||
|
|
ip link set dev $vrf_name up
|
||
|
|
__simple_if_init $if_name $vrf_name "${array[@]}"
|
||
|
|
}
|
||
|
|
|
||
|
|
simple_if_fini()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local vrf_name
|
||
|
|
local array
|
||
|
|
|
||
|
|
shift
|
||
|
|
vrf_name=v$if_name
|
||
|
|
array=("${@}")
|
||
|
|
|
||
|
|
__simple_if_fini $if_name "${array[@]}"
|
||
|
|
vrf_destroy $vrf_name
|
||
|
|
}
|
||
|
|
|
||
|
|
tunnel_create()
|
||
|
|
{
|
||
|
|
local name=$1; shift
|
||
|
|
local type=$1; shift
|
||
|
|
local local=$1; shift
|
||
|
|
local remote=$1; shift
|
||
|
|
|
||
|
|
ip link add name $name type $type \
|
||
|
|
local $local remote $remote "$@"
|
||
|
|
ip link set dev $name up
|
||
|
|
}
|
||
|
|
|
||
|
|
tunnel_destroy()
|
||
|
|
{
|
||
|
|
local name=$1; shift
|
||
|
|
|
||
|
|
ip link del dev $name
|
||
|
|
}
|
||
|
|
|
||
|
|
vlan_create()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local vid=$1; shift
|
||
|
|
local vrf=$1; shift
|
||
|
|
local ips=("${@}")
|
||
|
|
local name=$if_name.$vid
|
||
|
|
|
||
|
|
ip link add name $name link $if_name type vlan id $vid
|
||
|
|
if [ "$vrf" != "" ]; then
|
||
|
|
ip link set dev $name master $vrf
|
||
|
|
fi
|
||
|
|
ip link set dev $name up
|
||
|
|
__addr_add_del $name add "${ips[@]}"
|
||
|
|
}
|
||
|
|
|
||
|
|
vlan_destroy()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local vid=$1; shift
|
||
|
|
local name=$if_name.$vid
|
||
|
|
|
||
|
|
ip link del dev $name
|
||
|
|
}
|
||
|
|
|
||
|
|
team_create()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local mode=$1; shift
|
||
|
|
|
||
|
|
require_command $TEAMD
|
||
|
|
$TEAMD -t $if_name -d -c '{"runner": {"name": "'$mode'"}}'
|
||
|
|
for slave in "$@"; do
|
||
|
|
ip link set dev $slave down
|
||
|
|
ip link set dev $slave master $if_name
|
||
|
|
ip link set dev $slave up
|
||
|
|
done
|
||
|
|
ip link set dev $if_name up
|
||
|
|
}
|
||
|
|
|
||
|
|
team_destroy()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
|
||
|
|
$TEAMD -t $if_name -k
|
||
|
|
}
|
||
|
|
|
||
|
|
master_name_get()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
|
||
|
|
ip -j link show dev $if_name | jq -r '.[]["master"]'
|
||
|
|
}
|
||
|
|
|
||
|
|
link_stats_get()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local dir=$1; shift
|
||
|
|
local stat=$1; shift
|
||
|
|
|
||
|
|
ip -j -s link show dev $if_name \
|
||
|
|
| jq '.[]["stats64"]["'$dir'"]["'$stat'"]'
|
||
|
|
}
|
||
|
|
|
||
|
|
link_stats_tx_packets_get()
|
||
|
|
{
|
||
|
|
link_stats_get $1 tx packets
|
||
|
|
}
|
||
|
|
|
||
|
|
link_stats_rx_errors_get()
|
||
|
|
{
|
||
|
|
link_stats_get $1 rx errors
|
||
|
|
}
|
||
|
|
|
||
|
|
tc_rule_stats_get()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local pref=$1; shift
|
||
|
|
local dir=$1; shift
|
||
|
|
local selector=${1:-.packets}; shift
|
||
|
|
|
||
|
|
tc -j -s filter show dev $dev ${dir:-ingress} pref $pref \
|
||
|
|
| jq ".[1].options.actions[].stats$selector"
|
||
|
|
}
|
||
|
|
|
||
|
|
tc_rule_handle_stats_get()
|
||
|
|
{
|
||
|
|
local id=$1; shift
|
||
|
|
local handle=$1; shift
|
||
|
|
local selector=${1:-.packets}; shift
|
||
|
|
|
||
|
|
tc -j -s filter show $id \
|
||
|
|
| jq ".[] | select(.options.handle == $handle) | \
|
||
|
|
.options.actions[0].stats$selector"
|
||
|
|
}
|
||
|
|
|
||
|
|
ethtool_stats_get()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local stat=$1; shift
|
||
|
|
|
||
|
|
ethtool -S $dev | grep "^ *$stat:" | head -n 1 | cut -d: -f2
|
||
|
|
}
|
||
|
|
|
||
|
|
qdisc_stats_get()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local handle=$1; shift
|
||
|
|
local selector=$1; shift
|
||
|
|
|
||
|
|
tc -j -s qdisc show dev "$dev" \
|
||
|
|
| jq '.[] | select(.handle == "'"$handle"'") | '"$selector"
|
||
|
|
}
|
||
|
|
|
||
|
|
qdisc_parent_stats_get()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local parent=$1; shift
|
||
|
|
local selector=$1; shift
|
||
|
|
|
||
|
|
tc -j -s qdisc show dev "$dev" invisible \
|
||
|
|
| jq '.[] | select(.parent == "'"$parent"'") | '"$selector"
|
||
|
|
}
|
||
|
|
|
||
|
|
ipv6_stats_get()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local stat=$1; shift
|
||
|
|
|
||
|
|
cat /proc/net/dev_snmp6/$dev | grep "^$stat" | cut -f2
|
||
|
|
}
|
||
|
|
|
||
|
|
hw_stats_get()
|
||
|
|
{
|
||
|
|
local suite=$1; shift
|
||
|
|
local if_name=$1; shift
|
||
|
|
local dir=$1; shift
|
||
|
|
local stat=$1; shift
|
||
|
|
|
||
|
|
ip -j stats show dev $if_name group offload subgroup $suite |
|
||
|
|
jq ".[0].stats64.$dir.$stat"
|
||
|
|
}
|
||
|
|
|
||
|
|
humanize()
|
||
|
|
{
|
||
|
|
local speed=$1; shift
|
||
|
|
|
||
|
|
for unit in bps Kbps Mbps Gbps; do
|
||
|
|
if (($(echo "$speed < 1024" | bc))); then
|
||
|
|
break
|
||
|
|
fi
|
||
|
|
|
||
|
|
speed=$(echo "scale=1; $speed / 1024" | bc)
|
||
|
|
done
|
||
|
|
|
||
|
|
echo "$speed${unit}"
|
||
|
|
}
|
||
|
|
|
||
|
|
rate()
|
||
|
|
{
|
||
|
|
local t0=$1; shift
|
||
|
|
local t1=$1; shift
|
||
|
|
local interval=$1; shift
|
||
|
|
|
||
|
|
echo $((8 * (t1 - t0) / interval))
|
||
|
|
}
|
||
|
|
|
||
|
|
packets_rate()
|
||
|
|
{
|
||
|
|
local t0=$1; shift
|
||
|
|
local t1=$1; shift
|
||
|
|
local interval=$1; shift
|
||
|
|
|
||
|
|
echo $(((t1 - t0) / interval))
|
||
|
|
}
|
||
|
|
|
||
|
|
mac_get()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
|
||
|
|
ip -j link show dev $if_name | jq -r '.[]["address"]'
|
||
|
|
}
|
||
|
|
|
||
|
|
ipv6_lladdr_get()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
|
||
|
|
ip -j addr show dev $if_name | \
|
||
|
|
jq -r '.[]["addr_info"][] | select(.scope == "link").local' | \
|
||
|
|
head -1
|
||
|
|
}
|
||
|
|
|
||
|
|
bridge_ageing_time_get()
|
||
|
|
{
|
||
|
|
local bridge=$1
|
||
|
|
local ageing_time
|
||
|
|
|
||
|
|
# Need to divide by 100 to convert to seconds.
|
||
|
|
ageing_time=$(ip -j -d link show dev $bridge \
|
||
|
|
| jq '.[]["linkinfo"]["info_data"]["ageing_time"]')
|
||
|
|
echo $((ageing_time / 100))
|
||
|
|
}
|
||
|
|
|
||
|
|
declare -A SYSCTL_ORIG
|
||
|
|
sysctl_set()
|
||
|
|
{
|
||
|
|
local key=$1; shift
|
||
|
|
local value=$1; shift
|
||
|
|
|
||
|
|
SYSCTL_ORIG[$key]=$(sysctl -n $key)
|
||
|
|
sysctl -qw $key="$value"
|
||
|
|
}
|
||
|
|
|
||
|
|
sysctl_restore()
|
||
|
|
{
|
||
|
|
local key=$1; shift
|
||
|
|
|
||
|
|
sysctl -qw $key="${SYSCTL_ORIG[$key]}"
|
||
|
|
}
|
||
|
|
|
||
|
|
forwarding_enable()
|
||
|
|
{
|
||
|
|
sysctl_set net.ipv4.conf.all.forwarding 1
|
||
|
|
sysctl_set net.ipv6.conf.all.forwarding 1
|
||
|
|
}
|
||
|
|
|
||
|
|
forwarding_restore()
|
||
|
|
{
|
||
|
|
sysctl_restore net.ipv6.conf.all.forwarding
|
||
|
|
sysctl_restore net.ipv4.conf.all.forwarding
|
||
|
|
}
|
||
|
|
|
||
|
|
declare -A MTU_ORIG
|
||
|
|
mtu_set()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local mtu=$1; shift
|
||
|
|
|
||
|
|
MTU_ORIG["$dev"]=$(ip -j link show dev $dev | jq -e '.[].mtu')
|
||
|
|
ip link set dev $dev mtu $mtu
|
||
|
|
}
|
||
|
|
|
||
|
|
mtu_restore()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
|
||
|
|
ip link set dev $dev mtu ${MTU_ORIG["$dev"]}
|
||
|
|
}
|
||
|
|
|
||
|
|
tc_offload_check()
|
||
|
|
{
|
||
|
|
local num_netifs=${1:-$NUM_NETIFS}
|
||
|
|
|
||
|
|
for ((i = 1; i <= num_netifs; ++i)); do
|
||
|
|
ethtool -k ${NETIFS[p$i]} \
|
||
|
|
| grep "hw-tc-offload: on" &> /dev/null
|
||
|
|
if [[ $? -ne 0 ]]; then
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
trap_install()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local direction=$1; shift
|
||
|
|
|
||
|
|
# Some devices may not support or need in-hardware trapping of traffic
|
||
|
|
# (e.g. the veth pairs that this library creates for non-existent
|
||
|
|
# loopbacks). Use continue instead, so that there is a filter in there
|
||
|
|
# (some tests check counters), and so that other filters are still
|
||
|
|
# processed.
|
||
|
|
tc filter add dev $dev $direction pref 1 \
|
||
|
|
flower skip_sw action trap 2>/dev/null \
|
||
|
|
|| tc filter add dev $dev $direction pref 1 \
|
||
|
|
flower action continue
|
||
|
|
}
|
||
|
|
|
||
|
|
trap_uninstall()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local direction=$1; shift
|
||
|
|
|
||
|
|
tc filter del dev $dev $direction pref 1 flower
|
||
|
|
}
|
||
|
|
|
||
|
|
slow_path_trap_install()
|
||
|
|
{
|
||
|
|
# For slow-path testing, we need to install a trap to get to
|
||
|
|
# slow path the packets that would otherwise be switched in HW.
|
||
|
|
if [ "${tcflags/skip_hw}" != "$tcflags" ]; then
|
||
|
|
trap_install "$@"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
slow_path_trap_uninstall()
|
||
|
|
{
|
||
|
|
if [ "${tcflags/skip_hw}" != "$tcflags" ]; then
|
||
|
|
trap_uninstall "$@"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
__icmp_capture_add_del()
|
||
|
|
{
|
||
|
|
local add_del=$1; shift
|
||
|
|
local pref=$1; shift
|
||
|
|
local vsuf=$1; shift
|
||
|
|
local tundev=$1; shift
|
||
|
|
local filter=$1; shift
|
||
|
|
|
||
|
|
tc filter $add_del dev "$tundev" ingress \
|
||
|
|
proto ip$vsuf pref $pref \
|
||
|
|
flower ip_proto icmp$vsuf $filter \
|
||
|
|
action pass
|
||
|
|
}
|
||
|
|
|
||
|
|
icmp_capture_install()
|
||
|
|
{
|
||
|
|
__icmp_capture_add_del add 100 "" "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
icmp_capture_uninstall()
|
||
|
|
{
|
||
|
|
__icmp_capture_add_del del 100 "" "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
icmp6_capture_install()
|
||
|
|
{
|
||
|
|
__icmp_capture_add_del add 100 v6 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
icmp6_capture_uninstall()
|
||
|
|
{
|
||
|
|
__icmp_capture_add_del del 100 v6 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
__vlan_capture_add_del()
|
||
|
|
{
|
||
|
|
local add_del=$1; shift
|
||
|
|
local pref=$1; shift
|
||
|
|
local dev=$1; shift
|
||
|
|
local filter=$1; shift
|
||
|
|
|
||
|
|
tc filter $add_del dev "$dev" ingress \
|
||
|
|
proto 802.1q pref $pref \
|
||
|
|
flower $filter \
|
||
|
|
action pass
|
||
|
|
}
|
||
|
|
|
||
|
|
vlan_capture_install()
|
||
|
|
{
|
||
|
|
__vlan_capture_add_del add 100 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
vlan_capture_uninstall()
|
||
|
|
{
|
||
|
|
__vlan_capture_add_del del 100 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
__dscp_capture_add_del()
|
||
|
|
{
|
||
|
|
local add_del=$1; shift
|
||
|
|
local dev=$1; shift
|
||
|
|
local base=$1; shift
|
||
|
|
local dscp;
|
||
|
|
|
||
|
|
for prio in {0..7}; do
|
||
|
|
dscp=$((base + prio))
|
||
|
|
__icmp_capture_add_del $add_del $((dscp + 100)) "" $dev \
|
||
|
|
"skip_hw ip_tos $((dscp << 2))"
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
dscp_capture_install()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local base=$1; shift
|
||
|
|
|
||
|
|
__dscp_capture_add_del add $dev $base
|
||
|
|
}
|
||
|
|
|
||
|
|
dscp_capture_uninstall()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local base=$1; shift
|
||
|
|
|
||
|
|
__dscp_capture_add_del del $dev $base
|
||
|
|
}
|
||
|
|
|
||
|
|
dscp_fetch_stats()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local base=$1; shift
|
||
|
|
|
||
|
|
for prio in {0..7}; do
|
||
|
|
local dscp=$((base + prio))
|
||
|
|
local t=$(tc_rule_stats_get $dev $((dscp + 100)))
|
||
|
|
echo "[$dscp]=$t "
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
matchall_sink_create()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
|
||
|
|
tc qdisc add dev $dev clsact
|
||
|
|
tc filter add dev $dev ingress \
|
||
|
|
pref 10000 \
|
||
|
|
matchall \
|
||
|
|
action drop
|
||
|
|
}
|
||
|
|
|
||
|
|
tests_run()
|
||
|
|
{
|
||
|
|
local current_test
|
||
|
|
|
||
|
|
for current_test in ${TESTS:-$ALL_TESTS}; do
|
||
|
|
$current_test
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
multipath_eval()
|
||
|
|
{
|
||
|
|
local desc="$1"
|
||
|
|
local weight_rp12=$2
|
||
|
|
local weight_rp13=$3
|
||
|
|
local packets_rp12=$4
|
||
|
|
local packets_rp13=$5
|
||
|
|
local weights_ratio packets_ratio diff
|
||
|
|
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
if [[ "$weight_rp12" -gt "$weight_rp13" ]]; then
|
||
|
|
weights_ratio=$(echo "scale=2; $weight_rp12 / $weight_rp13" \
|
||
|
|
| bc -l)
|
||
|
|
else
|
||
|
|
weights_ratio=$(echo "scale=2; $weight_rp13 / $weight_rp12" \
|
||
|
|
| bc -l)
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ "$packets_rp12" -eq "0" || "$packets_rp13" -eq "0" ]]; then
|
||
|
|
check_err 1 "Packet difference is 0"
|
||
|
|
log_test "Multipath"
|
||
|
|
log_info "Expected ratio $weights_ratio"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [[ "$weight_rp12" -gt "$weight_rp13" ]]; then
|
||
|
|
packets_ratio=$(echo "scale=2; $packets_rp12 / $packets_rp13" \
|
||
|
|
| bc -l)
|
||
|
|
else
|
||
|
|
packets_ratio=$(echo "scale=2; $packets_rp13 / $packets_rp12" \
|
||
|
|
| bc -l)
|
||
|
|
fi
|
||
|
|
|
||
|
|
diff=$(echo $weights_ratio - $packets_ratio | bc -l)
|
||
|
|
diff=${diff#-}
|
||
|
|
|
||
|
|
test "$(echo "$diff / $weights_ratio > 0.15" | bc -l)" -eq 0
|
||
|
|
check_err $? "Too large discrepancy between expected and measured ratios"
|
||
|
|
log_test "$desc"
|
||
|
|
log_info "Expected ratio $weights_ratio Measured ratio $packets_ratio"
|
||
|
|
}
|
||
|
|
|
||
|
|
in_ns()
|
||
|
|
{
|
||
|
|
local name=$1; shift
|
||
|
|
|
||
|
|
ip netns exec $name bash <<-EOF
|
||
|
|
NUM_NETIFS=0
|
||
|
|
source lib.sh
|
||
|
|
$(for a in "$@"; do printf "%q${IFS:0:1}" "$a"; done)
|
||
|
|
EOF
|
||
|
|
}
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
# Tests
|
||
|
|
|
||
|
|
ping_do()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local dip=$2
|
||
|
|
local args=$3
|
||
|
|
local vrf_name
|
||
|
|
|
||
|
|
vrf_name=$(master_name_get $if_name)
|
||
|
|
ip vrf exec $vrf_name \
|
||
|
|
$PING $args $dip -c $PING_COUNT -i 0.1 \
|
||
|
|
-w $PING_TIMEOUT &> /dev/null
|
||
|
|
}
|
||
|
|
|
||
|
|
ping_test()
|
||
|
|
{
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
ping_do $1 $2
|
||
|
|
check_err $?
|
||
|
|
log_test "ping$3"
|
||
|
|
}
|
||
|
|
|
||
|
|
ping6_do()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local dip=$2
|
||
|
|
local args=$3
|
||
|
|
local vrf_name
|
||
|
|
|
||
|
|
vrf_name=$(master_name_get $if_name)
|
||
|
|
ip vrf exec $vrf_name \
|
||
|
|
$PING6 $args $dip -c $PING_COUNT -i 0.1 \
|
||
|
|
-w $PING_TIMEOUT &> /dev/null
|
||
|
|
}
|
||
|
|
|
||
|
|
ping6_test()
|
||
|
|
{
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
ping6_do $1 $2
|
||
|
|
check_err $?
|
||
|
|
log_test "ping6$3"
|
||
|
|
}
|
||
|
|
|
||
|
|
learning_test()
|
||
|
|
{
|
||
|
|
local bridge=$1
|
||
|
|
local br_port1=$2 # Connected to `host1_if`.
|
||
|
|
local host1_if=$3
|
||
|
|
local host2_if=$4
|
||
|
|
local mac=de:ad:be:ef:13:37
|
||
|
|
local ageing_time
|
||
|
|
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
bridge -j fdb show br $bridge brport $br_port1 \
|
||
|
|
| jq -e ".[] | select(.mac == \"$mac\")" &> /dev/null
|
||
|
|
check_fail $? "Found FDB record when should not"
|
||
|
|
|
||
|
|
# Disable unknown unicast flooding on `br_port1` to make sure
|
||
|
|
# packets are only forwarded through the port after a matching
|
||
|
|
# FDB entry was installed.
|
||
|
|
bridge link set dev $br_port1 flood off
|
||
|
|
|
||
|
|
ip link set $host1_if promisc on
|
||
|
|
tc qdisc add dev $host1_if ingress
|
||
|
|
tc filter add dev $host1_if ingress protocol ip pref 1 handle 101 \
|
||
|
|
flower dst_mac $mac action drop
|
||
|
|
|
||
|
|
$MZ $host2_if -c 1 -p 64 -b $mac -t ip -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
tc -j -s filter show dev $host1_if ingress \
|
||
|
|
| jq -e ".[] | select(.options.handle == 101) \
|
||
|
|
| select(.options.actions[0].stats.packets == 1)" &> /dev/null
|
||
|
|
check_fail $? "Packet reached first host when should not"
|
||
|
|
|
||
|
|
$MZ $host1_if -c 1 -p 64 -a $mac -t ip -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
bridge -j fdb show br $bridge brport $br_port1 \
|
||
|
|
| jq -e ".[] | select(.mac == \"$mac\")" &> /dev/null
|
||
|
|
check_err $? "Did not find FDB record when should"
|
||
|
|
|
||
|
|
$MZ $host2_if -c 1 -p 64 -b $mac -t ip -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
tc -j -s filter show dev $host1_if ingress \
|
||
|
|
| jq -e ".[] | select(.options.handle == 101) \
|
||
|
|
| select(.options.actions[0].stats.packets == 1)" &> /dev/null
|
||
|
|
check_err $? "Packet did not reach second host when should"
|
||
|
|
|
||
|
|
# Wait for 10 seconds after the ageing time to make sure FDB
|
||
|
|
# record was aged-out.
|
||
|
|
ageing_time=$(bridge_ageing_time_get $bridge)
|
||
|
|
sleep $((ageing_time + 10))
|
||
|
|
|
||
|
|
bridge -j fdb show br $bridge brport $br_port1 \
|
||
|
|
| jq -e ".[] | select(.mac == \"$mac\")" &> /dev/null
|
||
|
|
check_fail $? "Found FDB record when should not"
|
||
|
|
|
||
|
|
bridge link set dev $br_port1 learning off
|
||
|
|
|
||
|
|
$MZ $host1_if -c 1 -p 64 -a $mac -t ip -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
bridge -j fdb show br $bridge brport $br_port1 \
|
||
|
|
| jq -e ".[] | select(.mac == \"$mac\")" &> /dev/null
|
||
|
|
check_fail $? "Found FDB record when should not"
|
||
|
|
|
||
|
|
bridge link set dev $br_port1 learning on
|
||
|
|
|
||
|
|
tc filter del dev $host1_if ingress protocol ip pref 1 handle 101 flower
|
||
|
|
tc qdisc del dev $host1_if ingress
|
||
|
|
ip link set $host1_if promisc off
|
||
|
|
|
||
|
|
bridge link set dev $br_port1 flood on
|
||
|
|
|
||
|
|
log_test "FDB learning"
|
||
|
|
}
|
||
|
|
|
||
|
|
flood_test_do()
|
||
|
|
{
|
||
|
|
local should_flood=$1
|
||
|
|
local mac=$2
|
||
|
|
local ip=$3
|
||
|
|
local host1_if=$4
|
||
|
|
local host2_if=$5
|
||
|
|
local err=0
|
||
|
|
|
||
|
|
# Add an ACL on `host2_if` which will tell us whether the packet
|
||
|
|
# was flooded to it or not.
|
||
|
|
ip link set $host2_if promisc on
|
||
|
|
tc qdisc add dev $host2_if ingress
|
||
|
|
tc filter add dev $host2_if ingress protocol ip pref 1 handle 101 \
|
||
|
|
flower dst_mac $mac action drop
|
||
|
|
|
||
|
|
$MZ $host1_if -c 1 -p 64 -b $mac -B $ip -t ip -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
tc -j -s filter show dev $host2_if ingress \
|
||
|
|
| jq -e ".[] | select(.options.handle == 101) \
|
||
|
|
| select(.options.actions[0].stats.packets == 1)" &> /dev/null
|
||
|
|
if [[ $? -ne 0 && $should_flood == "true" || \
|
||
|
|
$? -eq 0 && $should_flood == "false" ]]; then
|
||
|
|
err=1
|
||
|
|
fi
|
||
|
|
|
||
|
|
tc filter del dev $host2_if ingress protocol ip pref 1 handle 101 flower
|
||
|
|
tc qdisc del dev $host2_if ingress
|
||
|
|
ip link set $host2_if promisc off
|
||
|
|
|
||
|
|
return $err
|
||
|
|
}
|
||
|
|
|
||
|
|
flood_unicast_test()
|
||
|
|
{
|
||
|
|
local br_port=$1
|
||
|
|
local host1_if=$2
|
||
|
|
local host2_if=$3
|
||
|
|
local mac=de:ad:be:ef:13:37
|
||
|
|
local ip=192.0.2.100
|
||
|
|
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
bridge link set dev $br_port flood off
|
||
|
|
|
||
|
|
flood_test_do false $mac $ip $host1_if $host2_if
|
||
|
|
check_err $? "Packet flooded when should not"
|
||
|
|
|
||
|
|
bridge link set dev $br_port flood on
|
||
|
|
|
||
|
|
flood_test_do true $mac $ip $host1_if $host2_if
|
||
|
|
check_err $? "Packet was not flooded when should"
|
||
|
|
|
||
|
|
log_test "Unknown unicast flood"
|
||
|
|
}
|
||
|
|
|
||
|
|
flood_multicast_test()
|
||
|
|
{
|
||
|
|
local br_port=$1
|
||
|
|
local host1_if=$2
|
||
|
|
local host2_if=$3
|
||
|
|
local mac=01:00:5e:00:00:01
|
||
|
|
local ip=239.0.0.1
|
||
|
|
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
bridge link set dev $br_port mcast_flood off
|
||
|
|
|
||
|
|
flood_test_do false $mac $ip $host1_if $host2_if
|
||
|
|
check_err $? "Packet flooded when should not"
|
||
|
|
|
||
|
|
bridge link set dev $br_port mcast_flood on
|
||
|
|
|
||
|
|
flood_test_do true $mac $ip $host1_if $host2_if
|
||
|
|
check_err $? "Packet was not flooded when should"
|
||
|
|
|
||
|
|
log_test "Unregistered multicast flood"
|
||
|
|
}
|
||
|
|
|
||
|
|
flood_test()
|
||
|
|
{
|
||
|
|
# `br_port` is connected to `host2_if`
|
||
|
|
local br_port=$1
|
||
|
|
local host1_if=$2
|
||
|
|
local host2_if=$3
|
||
|
|
|
||
|
|
flood_unicast_test $br_port $host1_if $host2_if
|
||
|
|
flood_multicast_test $br_port $host1_if $host2_if
|
||
|
|
}
|
||
|
|
|
||
|
|
__start_traffic()
|
||
|
|
{
|
||
|
|
local pktsize=$1; shift
|
||
|
|
local proto=$1; shift
|
||
|
|
local h_in=$1; shift # Where the traffic egresses the host
|
||
|
|
local sip=$1; shift
|
||
|
|
local dip=$1; shift
|
||
|
|
local dmac=$1; shift
|
||
|
|
|
||
|
|
$MZ $h_in -p $pktsize -A $sip -B $dip -c 0 \
|
||
|
|
-a own -b $dmac -t "$proto" -q "$@" &
|
||
|
|
sleep 1
|
||
|
|
}
|
||
|
|
|
||
|
|
start_traffic_pktsize()
|
||
|
|
{
|
||
|
|
local pktsize=$1; shift
|
||
|
|
|
||
|
|
__start_traffic $pktsize udp "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
start_tcp_traffic_pktsize()
|
||
|
|
{
|
||
|
|
local pktsize=$1; shift
|
||
|
|
|
||
|
|
__start_traffic $pktsize tcp "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
start_traffic()
|
||
|
|
{
|
||
|
|
start_traffic_pktsize 8000 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
start_tcp_traffic()
|
||
|
|
{
|
||
|
|
start_tcp_traffic_pktsize 8000 "$@"
|
||
|
|
}
|
||
|
|
|
||
|
|
stop_traffic()
|
||
|
|
{
|
||
|
|
# Suppress noise from killing mausezahn.
|
||
|
|
{ kill %% && wait %%; } 2>/dev/null
|
||
|
|
}
|
||
|
|
|
||
|
|
declare -A cappid
|
||
|
|
declare -A capfile
|
||
|
|
declare -A capout
|
||
|
|
|
||
|
|
tcpdump_start()
|
||
|
|
{
|
||
|
|
local if_name=$1; shift
|
||
|
|
local ns=$1; shift
|
||
|
|
|
||
|
|
capfile[$if_name]=$(mktemp)
|
||
|
|
capout[$if_name]=$(mktemp)
|
||
|
|
|
||
|
|
if [ -z $ns ]; then
|
||
|
|
ns_cmd=""
|
||
|
|
else
|
||
|
|
ns_cmd="ip netns exec ${ns}"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ -z $SUDO_USER ] ; then
|
||
|
|
capuser=""
|
||
|
|
else
|
||
|
|
capuser="-Z $SUDO_USER"
|
||
|
|
fi
|
||
|
|
|
||
|
|
$ns_cmd tcpdump $TCPDUMP_EXTRA_FLAGS -e -n -Q in -i $if_name \
|
||
|
|
-s 65535 -B 32768 $capuser -w ${capfile[$if_name]} \
|
||
|
|
> "${capout[$if_name]}" 2>&1 &
|
||
|
|
cappid[$if_name]=$!
|
||
|
|
|
||
|
|
sleep 1
|
||
|
|
}
|
||
|
|
|
||
|
|
tcpdump_stop()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local pid=${cappid[$if_name]}
|
||
|
|
|
||
|
|
$ns_cmd kill "$pid" && wait "$pid"
|
||
|
|
sleep 1
|
||
|
|
}
|
||
|
|
|
||
|
|
tcpdump_cleanup()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
|
||
|
|
rm ${capfile[$if_name]} ${capout[$if_name]}
|
||
|
|
}
|
||
|
|
|
||
|
|
tcpdump_show()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
|
||
|
|
tcpdump -e -n -r ${capfile[$if_name]} 2>&1
|
||
|
|
}
|
||
|
|
|
||
|
|
# return 0 if the packet wasn't seen on host2_if or 1 if it was
|
||
|
|
mcast_packet_test()
|
||
|
|
{
|
||
|
|
local mac=$1
|
||
|
|
local src_ip=$2
|
||
|
|
local ip=$3
|
||
|
|
local host1_if=$4
|
||
|
|
local host2_if=$5
|
||
|
|
local seen=0
|
||
|
|
local tc_proto="ip"
|
||
|
|
local mz_v6arg=""
|
||
|
|
|
||
|
|
# basic check to see if we were passed an IPv4 address, if not assume IPv6
|
||
|
|
if [[ ! $ip =~ ^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$ ]]; then
|
||
|
|
tc_proto="ipv6"
|
||
|
|
mz_v6arg="-6"
|
||
|
|
fi
|
||
|
|
|
||
|
|
# Add an ACL on `host2_if` which will tell us whether the packet
|
||
|
|
# was received by it or not.
|
||
|
|
tc qdisc add dev $host2_if ingress
|
||
|
|
tc filter add dev $host2_if ingress protocol $tc_proto pref 1 handle 101 \
|
||
|
|
flower ip_proto udp dst_mac $mac action drop
|
||
|
|
|
||
|
|
$MZ $host1_if $mz_v6arg -c 1 -p 64 -b $mac -A $src_ip -B $ip -t udp "dp=4096,sp=2048" -q
|
||
|
|
sleep 1
|
||
|
|
|
||
|
|
tc -j -s filter show dev $host2_if ingress \
|
||
|
|
| jq -e ".[] | select(.options.handle == 101) \
|
||
|
|
| select(.options.actions[0].stats.packets == 1)" &> /dev/null
|
||
|
|
if [[ $? -eq 0 ]]; then
|
||
|
|
seen=1
|
||
|
|
fi
|
||
|
|
|
||
|
|
tc filter del dev $host2_if ingress protocol $tc_proto pref 1 handle 101 flower
|
||
|
|
tc qdisc del dev $host2_if ingress
|
||
|
|
|
||
|
|
return $seen
|
||
|
|
}
|
||
|
|
|
||
|
|
brmcast_check_sg_entries()
|
||
|
|
{
|
||
|
|
local report=$1; shift
|
||
|
|
local slist=("$@")
|
||
|
|
local sarg=""
|
||
|
|
|
||
|
|
for src in "${slist[@]}"; do
|
||
|
|
sarg="${sarg} and .source_list[].address == \"$src\""
|
||
|
|
done
|
||
|
|
bridge -j -d -s mdb show dev br0 \
|
||
|
|
| jq -e ".[].mdb[] | \
|
||
|
|
select(.grp == \"$TEST_GROUP\" and .source_list != null $sarg)" &>/dev/null
|
||
|
|
check_err $? "Wrong *,G entry source list after $report report"
|
||
|
|
|
||
|
|
for sgent in "${slist[@]}"; do
|
||
|
|
bridge -j -d -s mdb show dev br0 \
|
||
|
|
| jq -e ".[].mdb[] | \
|
||
|
|
select(.grp == \"$TEST_GROUP\" and .src == \"$sgent\")" &>/dev/null
|
||
|
|
check_err $? "Missing S,G entry ($sgent, $TEST_GROUP)"
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
brmcast_check_sg_fwding()
|
||
|
|
{
|
||
|
|
local should_fwd=$1; shift
|
||
|
|
local sources=("$@")
|
||
|
|
|
||
|
|
for src in "${sources[@]}"; do
|
||
|
|
local retval=0
|
||
|
|
|
||
|
|
mcast_packet_test $TEST_GROUP_MAC $src $TEST_GROUP $h2 $h1
|
||
|
|
retval=$?
|
||
|
|
if [ $should_fwd -eq 1 ]; then
|
||
|
|
check_fail $retval "Didn't forward traffic from S,G ($src, $TEST_GROUP)"
|
||
|
|
else
|
||
|
|
check_err $retval "Forwarded traffic for blocked S,G ($src, $TEST_GROUP)"
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
brmcast_check_sg_state()
|
||
|
|
{
|
||
|
|
local is_blocked=$1; shift
|
||
|
|
local sources=("$@")
|
||
|
|
local should_fail=1
|
||
|
|
|
||
|
|
if [ $is_blocked -eq 1 ]; then
|
||
|
|
should_fail=0
|
||
|
|
fi
|
||
|
|
|
||
|
|
for src in "${sources[@]}"; do
|
||
|
|
bridge -j -d -s mdb show dev br0 \
|
||
|
|
| jq -e ".[].mdb[] | \
|
||
|
|
select(.grp == \"$TEST_GROUP\" and .source_list != null) |
|
||
|
|
.source_list[] |
|
||
|
|
select(.address == \"$src\") |
|
||
|
|
select(.timer == \"0.00\")" &>/dev/null
|
||
|
|
check_err_fail $should_fail $? "Entry $src has zero timer"
|
||
|
|
|
||
|
|
bridge -j -d -s mdb show dev br0 \
|
||
|
|
| jq -e ".[].mdb[] | \
|
||
|
|
select(.grp == \"$TEST_GROUP\" and .src == \"$src\" and \
|
||
|
|
.flags[] == \"blocked\")" &>/dev/null
|
||
|
|
check_err_fail $should_fail $? "Entry $src has blocked flag"
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
mc_join()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local group=$2
|
||
|
|
local vrf_name=$(master_name_get $if_name)
|
||
|
|
|
||
|
|
# We don't care about actual reception, just about joining the
|
||
|
|
# IP multicast group and adding the L2 address to the device's
|
||
|
|
# MAC filtering table
|
||
|
|
ip vrf exec $vrf_name \
|
||
|
|
mreceive -g $group -I $if_name > /dev/null 2>&1 &
|
||
|
|
mreceive_pid=$!
|
||
|
|
|
||
|
|
sleep 1
|
||
|
|
}
|
||
|
|
|
||
|
|
mc_leave()
|
||
|
|
{
|
||
|
|
kill "$mreceive_pid" && wait "$mreceive_pid"
|
||
|
|
}
|
||
|
|
|
||
|
|
mc_send()
|
||
|
|
{
|
||
|
|
local if_name=$1
|
||
|
|
local groups=$2
|
||
|
|
local vrf_name=$(master_name_get $if_name)
|
||
|
|
|
||
|
|
ip vrf exec $vrf_name \
|
||
|
|
msend -g $groups -I $if_name -c 1 > /dev/null 2>&1
|
||
|
|
}
|
||
|
|
|
||
|
|
start_ip_monitor()
|
||
|
|
{
|
||
|
|
local mtype=$1; shift
|
||
|
|
local ip=${1-ip}; shift
|
||
|
|
|
||
|
|
# start the monitor in the background
|
||
|
|
tmpfile=`mktemp /var/run/nexthoptestXXX`
|
||
|
|
mpid=`($ip monitor $mtype > $tmpfile & echo $!) 2>/dev/null`
|
||
|
|
sleep 0.2
|
||
|
|
echo "$mpid $tmpfile"
|
||
|
|
}
|
||
|
|
|
||
|
|
stop_ip_monitor()
|
||
|
|
{
|
||
|
|
local mpid=$1; shift
|
||
|
|
local tmpfile=$1; shift
|
||
|
|
local el=$1; shift
|
||
|
|
local what=$1; shift
|
||
|
|
|
||
|
|
sleep 0.2
|
||
|
|
kill $mpid
|
||
|
|
local lines=`grep '^\w' $tmpfile | wc -l`
|
||
|
|
test $lines -eq $el
|
||
|
|
check_err $? "$what: $lines lines of events, expected $el"
|
||
|
|
rm -rf $tmpfile
|
||
|
|
}
|
||
|
|
|
||
|
|
hw_stats_monitor_test()
|
||
|
|
{
|
||
|
|
local dev=$1; shift
|
||
|
|
local type=$1; shift
|
||
|
|
local make_suitable=$1; shift
|
||
|
|
local make_unsuitable=$1; shift
|
||
|
|
local ip=${1-ip}; shift
|
||
|
|
|
||
|
|
RET=0
|
||
|
|
|
||
|
|
# Expect a notification about enablement.
|
||
|
|
local ipmout=$(start_ip_monitor stats "$ip")
|
||
|
|
$ip stats set dev $dev ${type}_stats on
|
||
|
|
stop_ip_monitor $ipmout 1 "${type}_stats enablement"
|
||
|
|
|
||
|
|
# Expect a notification about offload.
|
||
|
|
local ipmout=$(start_ip_monitor stats "$ip")
|
||
|
|
$make_suitable
|
||
|
|
stop_ip_monitor $ipmout 1 "${type}_stats installation"
|
||
|
|
|
||
|
|
# Expect a notification about loss of offload.
|
||
|
|
local ipmout=$(start_ip_monitor stats "$ip")
|
||
|
|
$make_unsuitable
|
||
|
|
stop_ip_monitor $ipmout 1 "${type}_stats deinstallation"
|
||
|
|
|
||
|
|
# Expect a notification about disablement
|
||
|
|
local ipmout=$(start_ip_monitor stats "$ip")
|
||
|
|
$ip stats set dev $dev ${type}_stats off
|
||
|
|
stop_ip_monitor $ipmout 1 "${type}_stats disablement"
|
||
|
|
|
||
|
|
log_test "${type}_stats notifications"
|
||
|
|
}
|
||
|
|
|
||
|
|
ipv4_to_bytes()
|
||
|
|
{
|
||
|
|
local IP=$1; shift
|
||
|
|
|
||
|
|
printf '%02x:' ${IP//./ } |
|
||
|
|
sed 's/:$//'
|
||
|
|
}
|
||
|
|
|
||
|
|
# Convert a given IPv6 address, `IP' such that the :: token, if present, is
|
||
|
|
# expanded, and each 16-bit group is padded with zeroes to be 4 hexadecimal
|
||
|
|
# digits. An optional `BYTESEP' parameter can be given to further separate
|
||
|
|
# individual bytes of each 16-bit group.
|
||
|
|
expand_ipv6()
|
||
|
|
{
|
||
|
|
local IP=$1; shift
|
||
|
|
local bytesep=$1; shift
|
||
|
|
|
||
|
|
local cvt_ip=${IP/::/_}
|
||
|
|
local colons=${cvt_ip//[^:]/}
|
||
|
|
local allcol=:::::::
|
||
|
|
# IP where :: -> the appropriate number of colons:
|
||
|
|
local allcol_ip=${cvt_ip/_/${allcol:${#colons}}}
|
||
|
|
|
||
|
|
echo $allcol_ip | tr : '\n' |
|
||
|
|
sed s/^/0000/ |
|
||
|
|
sed 's/.*\(..\)\(..\)/\1'"$bytesep"'\2/' |
|
||
|
|
tr '\n' : |
|
||
|
|
sed 's/:$//'
|
||
|
|
}
|
||
|
|
|
||
|
|
ipv6_to_bytes()
|
||
|
|
{
|
||
|
|
local IP=$1; shift
|
||
|
|
|
||
|
|
expand_ipv6 "$IP" :
|
||
|
|
}
|
||
|
|
|
||
|
|
u16_to_bytes()
|
||
|
|
{
|
||
|
|
local u16=$1; shift
|
||
|
|
|
||
|
|
printf "%04x" $u16 | sed 's/^/000/;s/^.*\(..\)\(..\)$/\1:\2/'
|
||
|
|
}
|
||
|
|
|
||
|
|
# Given a mausezahn-formatted payload (colon-separated bytes given as %02x),
|
||
|
|
# possibly with a keyword CHECKSUM stashed where a 16-bit checksum should be,
|
||
|
|
# calculate checksum as per RFC 1071, assuming the CHECKSUM field (if any)
|
||
|
|
# stands for 00:00.
|
||
|
|
payload_template_calc_checksum()
|
||
|
|
{
|
||
|
|
local payload=$1; shift
|
||
|
|
|
||
|
|
(
|
||
|
|
# Set input radix.
|
||
|
|
echo "16i"
|
||
|
|
# Push zero for the initial checksum.
|
||
|
|
echo 0
|
||
|
|
|
||
|
|
# Pad the payload with a terminating 00: in case we get an odd
|
||
|
|
# number of bytes.
|
||
|
|
echo "${payload%:}:00:" |
|
||
|
|
sed 's/CHECKSUM/00:00/g' |
|
||
|
|
tr '[:lower:]' '[:upper:]' |
|
||
|
|
# Add the word to the checksum.
|
||
|
|
sed 's/\(..\):\(..\):/\1\2+\n/g' |
|
||
|
|
# Strip the extra odd byte we pushed if left unconverted.
|
||
|
|
sed 's/\(..\):$//'
|
||
|
|
|
||
|
|
echo "10000 ~ +" # Calculate and add carry.
|
||
|
|
echo "FFFF r - p" # Bit-flip and print.
|
||
|
|
) |
|
||
|
|
dc |
|
||
|
|
tr '[:upper:]' '[:lower:]'
|
||
|
|
}
|
||
|
|
|
||
|
|
payload_template_expand_checksum()
|
||
|
|
{
|
||
|
|
local payload=$1; shift
|
||
|
|
local checksum=$1; shift
|
||
|
|
|
||
|
|
local ckbytes=$(u16_to_bytes $checksum)
|
||
|
|
|
||
|
|
echo "$payload" | sed "s/CHECKSUM/$ckbytes/g"
|
||
|
|
}
|
||
|
|
|
||
|
|
payload_template_nbytes()
|
||
|
|
{
|
||
|
|
local payload=$1; shift
|
||
|
|
|
||
|
|
payload_template_expand_checksum "${payload%:}" 0 |
|
||
|
|
sed 's/:/\n/g' | wc -l
|
||
|
|
}
|
||
|
|
|
||
|
|
igmpv3_is_in_get()
|
||
|
|
{
|
||
|
|
local GRP=$1; shift
|
||
|
|
local sources=("$@")
|
||
|
|
|
||
|
|
local igmpv3
|
||
|
|
local nsources=$(u16_to_bytes ${#sources[@]})
|
||
|
|
|
||
|
|
# IS_IN ( $sources )
|
||
|
|
igmpv3=$(:
|
||
|
|
)"22:"$( : Type - Membership Report
|
||
|
|
)"00:"$( : Reserved
|
||
|
|
)"CHECKSUM:"$( : Checksum
|
||
|
|
)"00:00:"$( : Reserved
|
||
|
|
)"00:01:"$( : Number of Group Records
|
||
|
|
)"01:"$( : Record Type - IS_IN
|
||
|
|
)"00:"$( : Aux Data Len
|
||
|
|
)"${nsources}:"$( : Number of Sources
|
||
|
|
)"$(ipv4_to_bytes $GRP):"$( : Multicast Address
|
||
|
|
)"$(for src in "${sources[@]}"; do
|
||
|
|
ipv4_to_bytes $src
|
||
|
|
echo -n :
|
||
|
|
done)"$( : Source Addresses
|
||
|
|
)
|
||
|
|
local checksum=$(payload_template_calc_checksum "$igmpv3")
|
||
|
|
|
||
|
|
payload_template_expand_checksum "$igmpv3" $checksum
|
||
|
|
}
|
||
|
|
|
||
|
|
igmpv2_leave_get()
|
||
|
|
{
|
||
|
|
local GRP=$1; shift
|
||
|
|
|
||
|
|
local payload=$(:
|
||
|
|
)"17:"$( : Type - Leave Group
|
||
|
|
)"00:"$( : Max Resp Time - not meaningful
|
||
|
|
)"CHECKSUM:"$( : Checksum
|
||
|
|
)"$(ipv4_to_bytes $GRP)"$( : Group Address
|
||
|
|
)
|
||
|
|
local checksum=$(payload_template_calc_checksum "$payload")
|
||
|
|
|
||
|
|
payload_template_expand_checksum "$payload" $checksum
|
||
|
|
}
|
||
|
|
|
||
|
|
mldv2_is_in_get()
|
||
|
|
{
|
||
|
|
local SIP=$1; shift
|
||
|
|
local GRP=$1; shift
|
||
|
|
local sources=("$@")
|
||
|
|
|
||
|
|
local hbh
|
||
|
|
local icmpv6
|
||
|
|
local nsources=$(u16_to_bytes ${#sources[@]})
|
||
|
|
|
||
|
|
hbh=$(:
|
||
|
|
)"3a:"$( : Next Header - ICMPv6
|
||
|
|
)"00:"$( : Hdr Ext Len
|
||
|
|
)"00:00:00:00:00:00:"$( : Options and Padding
|
||
|
|
)
|
||
|
|
|
||
|
|
icmpv6=$(:
|
||
|
|
)"8f:"$( : Type - MLDv2 Report
|
||
|
|
)"00:"$( : Code
|
||
|
|
)"CHECKSUM:"$( : Checksum
|
||
|
|
)"00:00:"$( : Reserved
|
||
|
|
)"00:01:"$( : Number of Group Records
|
||
|
|
)"01:"$( : Record Type - IS_IN
|
||
|
|
)"00:"$( : Aux Data Len
|
||
|
|
)"${nsources}:"$( : Number of Sources
|
||
|
|
)"$(ipv6_to_bytes $GRP):"$( : Multicast address
|
||
|
|
)"$(for src in "${sources[@]}"; do
|
||
|
|
ipv6_to_bytes $src
|
||
|
|
echo -n :
|
||
|
|
done)"$( : Source Addresses
|
||
|
|
)
|
||
|
|
|
||
|
|
local len=$(u16_to_bytes $(payload_template_nbytes $icmpv6))
|
||
|
|
local sudohdr=$(:
|
||
|
|
)"$(ipv6_to_bytes $SIP):"$( : SIP
|
||
|
|
)"$(ipv6_to_bytes $GRP):"$( : DIP is multicast address
|
||
|
|
)"${len}:"$( : Upper-layer length
|
||
|
|
)"00:3a:"$( : Zero and next-header
|
||
|
|
)
|
||
|
|
local checksum=$(payload_template_calc_checksum ${sudohdr}${icmpv6})
|
||
|
|
|
||
|
|
payload_template_expand_checksum "$hbh$icmpv6" $checksum
|
||
|
|
}
|
||
|
|
|
||
|
|
mldv1_done_get()
|
||
|
|
{
|
||
|
|
local SIP=$1; shift
|
||
|
|
local GRP=$1; shift
|
||
|
|
|
||
|
|
local hbh
|
||
|
|
local icmpv6
|
||
|
|
|
||
|
|
hbh=$(:
|
||
|
|
)"3a:"$( : Next Header - ICMPv6
|
||
|
|
)"00:"$( : Hdr Ext Len
|
||
|
|
)"00:00:00:00:00:00:"$( : Options and Padding
|
||
|
|
)
|
||
|
|
|
||
|
|
icmpv6=$(:
|
||
|
|
)"84:"$( : Type - MLDv1 Done
|
||
|
|
)"00:"$( : Code
|
||
|
|
)"CHECKSUM:"$( : Checksum
|
||
|
|
)"00:00:"$( : Max Resp Delay - not meaningful
|
||
|
|
)"00:00:"$( : Reserved
|
||
|
|
)"$(ipv6_to_bytes $GRP):"$( : Multicast address
|
||
|
|
)
|
||
|
|
|
||
|
|
local len=$(u16_to_bytes $(payload_template_nbytes $icmpv6))
|
||
|
|
local sudohdr=$(:
|
||
|
|
)"$(ipv6_to_bytes $SIP):"$( : SIP
|
||
|
|
)"$(ipv6_to_bytes $GRP):"$( : DIP is multicast address
|
||
|
|
)"${len}:"$( : Upper-layer length
|
||
|
|
)"00:3a:"$( : Zero and next-header
|
||
|
|
)
|
||
|
|
local checksum=$(payload_template_calc_checksum ${sudohdr}${icmpv6})
|
||
|
|
|
||
|
|
payload_template_expand_checksum "$hbh$icmpv6" $checksum
|
||
|
|
}
|