829 lines
20 KiB
Bash
829 lines
20 KiB
Bash
|
#!/bin/bash
|
||
|
|
# SPDX-License-Identifier: GPL-2.0
|
||
|
|
|
||
|
|
. "$(dirname "${0}")/mptcp_lib.sh"
|
||
|
|
|
||
|
|
time_start=$(date +%s)
|
||
|
|
|
||
|
|
optstring="S:R:d:e:l:r:h4cm:f:tC"
|
||
|
|
ret=0
|
||
|
|
sin=""
|
||
|
|
sout=""
|
||
|
|
cin=""
|
||
|
|
cout=""
|
||
|
|
ksft_skip=4
|
||
|
|
capture=false
|
||
|
|
timeout_poll=30
|
||
|
|
timeout_test=$((timeout_poll * 2 + 1))
|
||
|
|
ipv6=true
|
||
|
|
ethtool_random_on=true
|
||
|
|
tc_delay="$((RANDOM%50))"
|
||
|
|
tc_loss=$((RANDOM%101))
|
||
|
|
testmode=""
|
||
|
|
sndbuf=0
|
||
|
|
rcvbuf=0
|
||
|
|
options_log=true
|
||
|
|
do_tcp=0
|
||
|
|
checksum=false
|
||
|
|
filesize=0
|
||
|
|
|
||
|
|
if [ $tc_loss -eq 100 ];then
|
||
|
|
tc_loss=1%
|
||
|
|
elif [ $tc_loss -ge 10 ]; then
|
||
|
|
tc_loss=0.$tc_loss%
|
||
|
|
elif [ $tc_loss -ge 1 ]; then
|
||
|
|
tc_loss=0.0$tc_loss%
|
||
|
|
else
|
||
|
|
tc_loss=""
|
||
|
|
fi
|
||
|
|
|
||
|
|
usage() {
|
||
|
|
echo "Usage: $0 [ -a ]"
|
||
|
|
echo -e "\t-d: tc/netem delay in milliseconds, e.g. \"-d 10\" (default random)"
|
||
|
|
echo -e "\t-l: tc/netem loss percentage, e.g. \"-l 0.02\" (default random)"
|
||
|
|
echo -e "\t-r: tc/netem reorder mode, e.g. \"-r 25% 50% gap 5\", use "-r 0" to disable reordering (default random)"
|
||
|
|
echo -e "\t-e: ethtool features to disable, e.g.: \"-e tso -e gso\" (default: randomly disable any of tso/gso/gro)"
|
||
|
|
echo -e "\t-4: IPv4 only: disable IPv6 tests (default: test both IPv4 and IPv6)"
|
||
|
|
echo -e "\t-c: capture packets for each test using tcpdump (default: no capture)"
|
||
|
|
echo -e "\t-f: size of file to transfer in bytes (default random)"
|
||
|
|
echo -e "\t-S: set sndbuf value (default: use kernel default)"
|
||
|
|
echo -e "\t-R: set rcvbuf value (default: use kernel default)"
|
||
|
|
echo -e "\t-m: test mode (poll, sendfile; default: poll)"
|
||
|
|
echo -e "\t-t: also run tests with TCP (use twice to non-fallback tcp)"
|
||
|
|
echo -e "\t-C: enable the MPTCP data checksum"
|
||
|
|
}
|
||
|
|
|
||
|
|
while getopts "$optstring" option;do
|
||
|
|
case "$option" in
|
||
|
|
"h")
|
||
|
|
usage $0
|
||
|
|
exit 0
|
||
|
|
;;
|
||
|
|
"d")
|
||
|
|
if [ $OPTARG -ge 0 ];then
|
||
|
|
tc_delay="$OPTARG"
|
||
|
|
else
|
||
|
|
echo "-d requires numeric argument, got \"$OPTARG\"" 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
;;
|
||
|
|
"e")
|
||
|
|
ethtool_args="$ethtool_args $OPTARG off"
|
||
|
|
ethtool_random_on=false
|
||
|
|
;;
|
||
|
|
"l")
|
||
|
|
tc_loss="$OPTARG"
|
||
|
|
;;
|
||
|
|
"r")
|
||
|
|
tc_reorder="$OPTARG"
|
||
|
|
;;
|
||
|
|
"4")
|
||
|
|
ipv6=false
|
||
|
|
;;
|
||
|
|
"c")
|
||
|
|
capture=true
|
||
|
|
;;
|
||
|
|
"S")
|
||
|
|
if [ $OPTARG -ge 0 ];then
|
||
|
|
sndbuf="$OPTARG"
|
||
|
|
else
|
||
|
|
echo "-S requires numeric argument, got \"$OPTARG\"" 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
;;
|
||
|
|
"R")
|
||
|
|
if [ $OPTARG -ge 0 ];then
|
||
|
|
rcvbuf="$OPTARG"
|
||
|
|
else
|
||
|
|
echo "-R requires numeric argument, got \"$OPTARG\"" 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
;;
|
||
|
|
"m")
|
||
|
|
testmode="$OPTARG"
|
||
|
|
;;
|
||
|
|
"f")
|
||
|
|
filesize="$OPTARG"
|
||
|
|
;;
|
||
|
|
"t")
|
||
|
|
do_tcp=$((do_tcp+1))
|
||
|
|
;;
|
||
|
|
"C")
|
||
|
|
checksum=true
|
||
|
|
;;
|
||
|
|
"?")
|
||
|
|
usage $0
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
|
||
|
|
sec=$(date +%s)
|
||
|
|
rndh=$(printf %x $sec)-$(mktemp -u XXXXXX)
|
||
|
|
ns1="ns1-$rndh"
|
||
|
|
ns2="ns2-$rndh"
|
||
|
|
ns3="ns3-$rndh"
|
||
|
|
ns4="ns4-$rndh"
|
||
|
|
|
||
|
|
TEST_COUNT=0
|
||
|
|
|
||
|
|
cleanup()
|
||
|
|
{
|
||
|
|
rm -f "$cin" "$cout"
|
||
|
|
rm -f "$sin" "$sout"
|
||
|
|
rm -f "$capout"
|
||
|
|
|
||
|
|
local netns
|
||
|
|
for netns in "$ns1" "$ns2" "$ns3" "$ns4";do
|
||
|
|
ip netns del $netns
|
||
|
|
rm -f /tmp/$netns.{nstat,out}
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
mptcp_lib_check_mptcp
|
||
|
|
|
||
|
|
ip -Version > /dev/null 2>&1
|
||
|
|
if [ $? -ne 0 ];then
|
||
|
|
echo "SKIP: Could not run test without ip tool"
|
||
|
|
exit $ksft_skip
|
||
|
|
fi
|
||
|
|
|
||
|
|
sin=$(mktemp)
|
||
|
|
sout=$(mktemp)
|
||
|
|
cin=$(mktemp)
|
||
|
|
cout=$(mktemp)
|
||
|
|
capout=$(mktemp)
|
||
|
|
trap cleanup EXIT
|
||
|
|
|
||
|
|
for i in "$ns1" "$ns2" "$ns3" "$ns4";do
|
||
|
|
ip netns add $i || exit $ksft_skip
|
||
|
|
ip -net $i link set lo up
|
||
|
|
done
|
||
|
|
|
||
|
|
# "$ns1" ns2 ns3 ns4
|
||
|
|
# ns1eth2 ns2eth1 ns2eth3 ns3eth2 ns3eth4 ns4eth3
|
||
|
|
# - drop 1% -> reorder 25%
|
||
|
|
# <- TSO off -
|
||
|
|
|
||
|
|
ip link add ns1eth2 netns "$ns1" type veth peer name ns2eth1 netns "$ns2"
|
||
|
|
ip link add ns2eth3 netns "$ns2" type veth peer name ns3eth2 netns "$ns3"
|
||
|
|
ip link add ns3eth4 netns "$ns3" type veth peer name ns4eth3 netns "$ns4"
|
||
|
|
|
||
|
|
ip -net "$ns1" addr add 10.0.1.1/24 dev ns1eth2
|
||
|
|
ip -net "$ns1" addr add dead:beef:1::1/64 dev ns1eth2 nodad
|
||
|
|
|
||
|
|
ip -net "$ns1" link set ns1eth2 up
|
||
|
|
ip -net "$ns1" route add default via 10.0.1.2
|
||
|
|
ip -net "$ns1" route add default via dead:beef:1::2
|
||
|
|
|
||
|
|
ip -net "$ns2" addr add 10.0.1.2/24 dev ns2eth1
|
||
|
|
ip -net "$ns2" addr add dead:beef:1::2/64 dev ns2eth1 nodad
|
||
|
|
ip -net "$ns2" link set ns2eth1 up
|
||
|
|
|
||
|
|
ip -net "$ns2" addr add 10.0.2.1/24 dev ns2eth3
|
||
|
|
ip -net "$ns2" addr add dead:beef:2::1/64 dev ns2eth3 nodad
|
||
|
|
ip -net "$ns2" link set ns2eth3 up
|
||
|
|
ip -net "$ns2" route add default via 10.0.2.2
|
||
|
|
ip -net "$ns2" route add default via dead:beef:2::2
|
||
|
|
ip netns exec "$ns2" sysctl -q net.ipv4.ip_forward=1
|
||
|
|
ip netns exec "$ns2" sysctl -q net.ipv6.conf.all.forwarding=1
|
||
|
|
|
||
|
|
ip -net "$ns3" addr add 10.0.2.2/24 dev ns3eth2
|
||
|
|
ip -net "$ns3" addr add dead:beef:2::2/64 dev ns3eth2 nodad
|
||
|
|
ip -net "$ns3" link set ns3eth2 up
|
||
|
|
|
||
|
|
ip -net "$ns3" addr add 10.0.3.2/24 dev ns3eth4
|
||
|
|
ip -net "$ns3" addr add dead:beef:3::2/64 dev ns3eth4 nodad
|
||
|
|
ip -net "$ns3" link set ns3eth4 up
|
||
|
|
ip -net "$ns3" route add default via 10.0.2.1
|
||
|
|
ip -net "$ns3" route add default via dead:beef:2::1
|
||
|
|
ip netns exec "$ns3" sysctl -q net.ipv4.ip_forward=1
|
||
|
|
ip netns exec "$ns3" sysctl -q net.ipv6.conf.all.forwarding=1
|
||
|
|
|
||
|
|
ip -net "$ns4" addr add 10.0.3.1/24 dev ns4eth3
|
||
|
|
ip -net "$ns4" addr add dead:beef:3::1/64 dev ns4eth3 nodad
|
||
|
|
ip -net "$ns4" link set ns4eth3 up
|
||
|
|
ip -net "$ns4" route add default via 10.0.3.2
|
||
|
|
ip -net "$ns4" route add default via dead:beef:3::2
|
||
|
|
|
||
|
|
if $checksum; then
|
||
|
|
for i in "$ns1" "$ns2" "$ns3" "$ns4";do
|
||
|
|
ip netns exec $i sysctl -q net.mptcp.checksum_enabled=1
|
||
|
|
done
|
||
|
|
fi
|
||
|
|
|
||
|
|
set_ethtool_flags() {
|
||
|
|
local ns="$1"
|
||
|
|
local dev="$2"
|
||
|
|
local flags="$3"
|
||
|
|
|
||
|
|
ip netns exec $ns ethtool -K $dev $flags 2>/dev/null
|
||
|
|
[ $? -eq 0 ] && echo "INFO: set $ns dev $dev: ethtool -K $flags"
|
||
|
|
}
|
||
|
|
|
||
|
|
set_random_ethtool_flags() {
|
||
|
|
local flags=""
|
||
|
|
local r=$RANDOM
|
||
|
|
|
||
|
|
local pick1=$((r & 1))
|
||
|
|
local pick2=$((r & 2))
|
||
|
|
local pick3=$((r & 4))
|
||
|
|
|
||
|
|
[ $pick1 -ne 0 ] && flags="tso off"
|
||
|
|
[ $pick2 -ne 0 ] && flags="$flags gso off"
|
||
|
|
[ $pick3 -ne 0 ] && flags="$flags gro off"
|
||
|
|
|
||
|
|
[ -z "$flags" ] && return
|
||
|
|
|
||
|
|
set_ethtool_flags "$1" "$2" "$flags"
|
||
|
|
}
|
||
|
|
|
||
|
|
if $ethtool_random_on;then
|
||
|
|
set_random_ethtool_flags "$ns3" ns3eth2
|
||
|
|
set_random_ethtool_flags "$ns4" ns4eth3
|
||
|
|
else
|
||
|
|
set_ethtool_flags "$ns3" ns3eth2 "$ethtool_args"
|
||
|
|
set_ethtool_flags "$ns4" ns4eth3 "$ethtool_args"
|
||
|
|
fi
|
||
|
|
|
||
|
|
print_file_err()
|
||
|
|
{
|
||
|
|
ls -l "$1" 1>&2
|
||
|
|
echo "Trailing bytes are: "
|
||
|
|
tail -c 27 "$1"
|
||
|
|
}
|
||
|
|
|
||
|
|
check_transfer()
|
||
|
|
{
|
||
|
|
local in=$1
|
||
|
|
local out=$2
|
||
|
|
local what=$3
|
||
|
|
|
||
|
|
cmp "$in" "$out" > /dev/null 2>&1
|
||
|
|
if [ $? -ne 0 ] ;then
|
||
|
|
echo "[ FAIL ] $what does not match (in, out):"
|
||
|
|
print_file_err "$in"
|
||
|
|
print_file_err "$out"
|
||
|
|
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
check_mptcp_disabled()
|
||
|
|
{
|
||
|
|
local disabled_ns
|
||
|
|
disabled_ns="ns_disabled-$sech-$(mktemp -u XXXXXX)"
|
||
|
|
ip netns add ${disabled_ns} || exit $ksft_skip
|
||
|
|
|
||
|
|
# net.mptcp.enabled should be enabled by default
|
||
|
|
if [ "$(ip netns exec ${disabled_ns} sysctl net.mptcp.enabled | awk '{ print $3 }')" -ne 1 ]; then
|
||
|
|
echo -e "net.mptcp.enabled sysctl is not 1 by default\t\t[ FAIL ]"
|
||
|
|
ret=1
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
ip netns exec ${disabled_ns} sysctl -q net.mptcp.enabled=0
|
||
|
|
|
||
|
|
local err=0
|
||
|
|
LC_ALL=C ip netns exec ${disabled_ns} ./mptcp_connect -p 10000 -s MPTCP 127.0.0.1 < "$cin" 2>&1 | \
|
||
|
|
grep -q "^socket: Protocol not available$" && err=1
|
||
|
|
ip netns delete ${disabled_ns}
|
||
|
|
|
||
|
|
if [ ${err} -eq 0 ]; then
|
||
|
|
echo -e "New MPTCP socket cannot be blocked via sysctl\t\t[ FAIL ]"
|
||
|
|
ret=1
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
echo -e "New MPTCP socket can be blocked via sysctl\t\t[ OK ]"
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
check_mptcp_ulp_setsockopt()
|
||
|
|
{
|
||
|
|
local t retval
|
||
|
|
t="ns_ulp-$sech-$(mktemp -u XXXXXX)"
|
||
|
|
|
||
|
|
ip netns add ${t} || exit $ksft_skip
|
||
|
|
if ! ip netns exec ${t} ./mptcp_connect -u -p 10000 -s TCP 127.0.0.1 2>&1; then
|
||
|
|
printf "setsockopt(..., TCP_ULP, \"mptcp\", ...) allowed\t[ FAIL ]\n"
|
||
|
|
retval=1
|
||
|
|
ret=$retval
|
||
|
|
else
|
||
|
|
printf "setsockopt(..., TCP_ULP, \"mptcp\", ...) blocked\t[ OK ]\n"
|
||
|
|
retval=0
|
||
|
|
fi
|
||
|
|
ip netns del ${t}
|
||
|
|
return $retval
|
||
|
|
}
|
||
|
|
|
||
|
|
# $1: IP address
|
||
|
|
is_v6()
|
||
|
|
{
|
||
|
|
[ -z "${1##*:*}" ]
|
||
|
|
}
|
||
|
|
|
||
|
|
do_ping()
|
||
|
|
{
|
||
|
|
local listener_ns="$1"
|
||
|
|
local connector_ns="$2"
|
||
|
|
local connect_addr="$3"
|
||
|
|
local ping_args="-q -c 1"
|
||
|
|
|
||
|
|
if is_v6 "${connect_addr}"; then
|
||
|
|
$ipv6 || return 0
|
||
|
|
ping_args="${ping_args} -6"
|
||
|
|
fi
|
||
|
|
|
||
|
|
ip netns exec ${connector_ns} ping ${ping_args} $connect_addr >/dev/null
|
||
|
|
if [ $? -ne 0 ] ; then
|
||
|
|
echo "$listener_ns -> $connect_addr connectivity [ FAIL ]" 1>&2
|
||
|
|
ret=1
|
||
|
|
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
# $1: ns, $2: MIB counter
|
||
|
|
get_mib_counter()
|
||
|
|
{
|
||
|
|
local listener_ns="${1}"
|
||
|
|
local mib="${2}"
|
||
|
|
|
||
|
|
# strip the header
|
||
|
|
ip netns exec "${listener_ns}" \
|
||
|
|
nstat -z -a "${mib}" | \
|
||
|
|
tail -n+2 | \
|
||
|
|
while read a count c rest; do
|
||
|
|
echo $count
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
# $1: ns, $2: port
|
||
|
|
wait_local_port_listen()
|
||
|
|
{
|
||
|
|
local listener_ns="${1}"
|
||
|
|
local port="${2}"
|
||
|
|
|
||
|
|
local port_hex i
|
||
|
|
|
||
|
|
port_hex="$(printf "%04X" "${port}")"
|
||
|
|
for i in $(seq 10); do
|
||
|
|
ip netns exec "${listener_ns}" cat /proc/net/tcp* | \
|
||
|
|
awk "BEGIN {rc=1} {if (\$2 ~ /:${port_hex}\$/ && \$4 ~ /0A/) {rc=0; exit}} END {exit rc}" &&
|
||
|
|
break
|
||
|
|
sleep 0.1
|
||
|
|
done
|
||
|
|
}
|
||
|
|
|
||
|
|
do_transfer()
|
||
|
|
{
|
||
|
|
local listener_ns="$1"
|
||
|
|
local connector_ns="$2"
|
||
|
|
local cl_proto="$3"
|
||
|
|
local srv_proto="$4"
|
||
|
|
local connect_addr="$5"
|
||
|
|
local local_addr="$6"
|
||
|
|
local extra_args="$7"
|
||
|
|
|
||
|
|
local port
|
||
|
|
port=$((10000+$TEST_COUNT))
|
||
|
|
TEST_COUNT=$((TEST_COUNT+1))
|
||
|
|
|
||
|
|
if [ "$rcvbuf" -gt 0 ]; then
|
||
|
|
extra_args="$extra_args -R $rcvbuf"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ "$sndbuf" -gt 0 ]; then
|
||
|
|
extra_args="$extra_args -S $sndbuf"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ -n "$testmode" ]; then
|
||
|
|
extra_args="$extra_args -m $testmode"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ -n "$extra_args" ] && $options_log; then
|
||
|
|
echo "INFO: extra options: $extra_args"
|
||
|
|
fi
|
||
|
|
options_log=false
|
||
|
|
|
||
|
|
:> "$cout"
|
||
|
|
:> "$sout"
|
||
|
|
:> "$capout"
|
||
|
|
|
||
|
|
local addr_port
|
||
|
|
addr_port=$(printf "%s:%d" ${connect_addr} ${port})
|
||
|
|
printf "%.3s %-5s -> %.3s (%-20s) %-5s\t" ${connector_ns} ${cl_proto} ${listener_ns} ${addr_port} ${srv_proto}
|
||
|
|
|
||
|
|
if $capture; then
|
||
|
|
local capuser
|
||
|
|
if [ -z $SUDO_USER ] ; then
|
||
|
|
capuser=""
|
||
|
|
else
|
||
|
|
capuser="-Z $SUDO_USER"
|
||
|
|
fi
|
||
|
|
|
||
|
|
local capfile="${rndh}-${connector_ns:0:3}-${listener_ns:0:3}-${cl_proto}-${srv_proto}-${connect_addr}-${port}"
|
||
|
|
local capopt="-i any -s 65535 -B 32768 ${capuser}"
|
||
|
|
|
||
|
|
ip netns exec ${listener_ns} tcpdump ${capopt} -w "${capfile}-listener.pcap" >> "${capout}" 2>&1 &
|
||
|
|
local cappid_listener=$!
|
||
|
|
|
||
|
|
ip netns exec ${connector_ns} tcpdump ${capopt} -w "${capfile}-connector.pcap" >> "${capout}" 2>&1 &
|
||
|
|
local cappid_connector=$!
|
||
|
|
|
||
|
|
sleep 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
NSTAT_HISTORY=/tmp/${listener_ns}.nstat ip netns exec ${listener_ns} \
|
||
|
|
nstat -n
|
||
|
|
if [ ${listener_ns} != ${connector_ns} ]; then
|
||
|
|
NSTAT_HISTORY=/tmp/${connector_ns}.nstat ip netns exec ${connector_ns} \
|
||
|
|
nstat -n
|
||
|
|
fi
|
||
|
|
|
||
|
|
local stat_synrx_last_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableSYNRX")
|
||
|
|
local stat_ackrx_last_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableACKRX")
|
||
|
|
local stat_cookietx_last=$(get_mib_counter "${listener_ns}" "TcpExtSyncookiesSent")
|
||
|
|
local stat_cookierx_last=$(get_mib_counter "${listener_ns}" "TcpExtSyncookiesRecv")
|
||
|
|
local stat_csum_err_s=$(get_mib_counter "${listener_ns}" "MPTcpExtDataCsumErr")
|
||
|
|
local stat_csum_err_c=$(get_mib_counter "${connector_ns}" "MPTcpExtDataCsumErr")
|
||
|
|
local stat_tcpfb_last_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableFallbackACK")
|
||
|
|
|
||
|
|
timeout ${timeout_test} \
|
||
|
|
ip netns exec ${listener_ns} \
|
||
|
|
./mptcp_connect -t ${timeout_poll} -l -p $port -s ${srv_proto} \
|
||
|
|
$extra_args $local_addr < "$sin" > "$sout" &
|
||
|
|
local spid=$!
|
||
|
|
|
||
|
|
wait_local_port_listen "${listener_ns}" "${port}"
|
||
|
|
|
||
|
|
local start
|
||
|
|
start=$(date +%s%3N)
|
||
|
|
timeout ${timeout_test} \
|
||
|
|
ip netns exec ${connector_ns} \
|
||
|
|
./mptcp_connect -t ${timeout_poll} -p $port -s ${cl_proto} \
|
||
|
|
$extra_args $connect_addr < "$cin" > "$cout" &
|
||
|
|
local cpid=$!
|
||
|
|
|
||
|
|
wait $cpid
|
||
|
|
local retc=$?
|
||
|
|
wait $spid
|
||
|
|
local rets=$?
|
||
|
|
|
||
|
|
local stop
|
||
|
|
stop=$(date +%s%3N)
|
||
|
|
|
||
|
|
if $capture; then
|
||
|
|
sleep 1
|
||
|
|
kill ${cappid_listener}
|
||
|
|
kill ${cappid_connector}
|
||
|
|
fi
|
||
|
|
|
||
|
|
NSTAT_HISTORY=/tmp/${listener_ns}.nstat ip netns exec ${listener_ns} \
|
||
|
|
nstat | grep Tcp > /tmp/${listener_ns}.out
|
||
|
|
if [ ${listener_ns} != ${connector_ns} ]; then
|
||
|
|
NSTAT_HISTORY=/tmp/${connector_ns}.nstat ip netns exec ${connector_ns} \
|
||
|
|
nstat | grep Tcp > /tmp/${connector_ns}.out
|
||
|
|
fi
|
||
|
|
|
||
|
|
local duration
|
||
|
|
duration=$((stop-start))
|
||
|
|
printf "(duration %05sms) " "${duration}"
|
||
|
|
if [ ${rets} -ne 0 ] || [ ${retc} -ne 0 ]; then
|
||
|
|
echo "[ FAIL ] client exit code $retc, server $rets" 1>&2
|
||
|
|
echo -e "\nnetns ${listener_ns} socket stat for ${port}:" 1>&2
|
||
|
|
ip netns exec ${listener_ns} ss -Menita 1>&2 -o "sport = :$port"
|
||
|
|
cat /tmp/${listener_ns}.out
|
||
|
|
echo -e "\nnetns ${connector_ns} socket stat for ${port}:" 1>&2
|
||
|
|
ip netns exec ${connector_ns} ss -Menita 1>&2 -o "dport = :$port"
|
||
|
|
[ ${listener_ns} != ${connector_ns} ] && cat /tmp/${connector_ns}.out
|
||
|
|
|
||
|
|
echo
|
||
|
|
cat "$capout"
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
check_transfer $sin $cout "file received by client"
|
||
|
|
retc=$?
|
||
|
|
check_transfer $cin $sout "file received by server"
|
||
|
|
rets=$?
|
||
|
|
|
||
|
|
local stat_synrx_now_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableSYNRX")
|
||
|
|
local stat_ackrx_now_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableACKRX")
|
||
|
|
local stat_cookietx_now=$(get_mib_counter "${listener_ns}" "TcpExtSyncookiesSent")
|
||
|
|
local stat_cookierx_now=$(get_mib_counter "${listener_ns}" "TcpExtSyncookiesRecv")
|
||
|
|
local stat_ooo_now=$(get_mib_counter "${listener_ns}" "TcpExtTCPOFOQueue")
|
||
|
|
local stat_tcpfb_now_l=$(get_mib_counter "${listener_ns}" "MPTcpExtMPCapableFallbackACK")
|
||
|
|
|
||
|
|
expect_synrx=$((stat_synrx_last_l))
|
||
|
|
expect_ackrx=$((stat_ackrx_last_l))
|
||
|
|
|
||
|
|
cookies=$(ip netns exec ${listener_ns} sysctl net.ipv4.tcp_syncookies)
|
||
|
|
cookies=${cookies##*=}
|
||
|
|
|
||
|
|
if [ ${cl_proto} = "MPTCP" ] && [ ${srv_proto} = "MPTCP" ]; then
|
||
|
|
expect_synrx=$((stat_synrx_last_l+1))
|
||
|
|
expect_ackrx=$((stat_ackrx_last_l+1))
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ ${stat_synrx_now_l} -lt ${expect_synrx} ]; then
|
||
|
|
printf "[ FAIL ] lower MPC SYN rx (%d) than expected (%d)\n" \
|
||
|
|
"${stat_synrx_now_l}" "${expect_synrx}" 1>&2
|
||
|
|
retc=1
|
||
|
|
fi
|
||
|
|
if [ ${stat_ackrx_now_l} -lt ${expect_ackrx} -a ${stat_ooo_now} -eq 0 ]; then
|
||
|
|
if [ ${stat_ooo_now} -eq 0 ]; then
|
||
|
|
printf "[ FAIL ] lower MPC ACK rx (%d) than expected (%d)\n" \
|
||
|
|
"${stat_ackrx_now_l}" "${expect_ackrx}" 1>&2
|
||
|
|
rets=1
|
||
|
|
else
|
||
|
|
printf "[ Note ] fallback due to TCP OoO"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
if $checksum; then
|
||
|
|
local csum_err_s=$(get_mib_counter "${listener_ns}" "MPTcpExtDataCsumErr")
|
||
|
|
local csum_err_c=$(get_mib_counter "${connector_ns}" "MPTcpExtDataCsumErr")
|
||
|
|
|
||
|
|
local csum_err_s_nr=$((csum_err_s - stat_csum_err_s))
|
||
|
|
if [ $csum_err_s_nr -gt 0 ]; then
|
||
|
|
printf "[ FAIL ]\nserver got $csum_err_s_nr data checksum error[s]"
|
||
|
|
rets=1
|
||
|
|
fi
|
||
|
|
|
||
|
|
local csum_err_c_nr=$((csum_err_c - stat_csum_err_c))
|
||
|
|
if [ $csum_err_c_nr -gt 0 ]; then
|
||
|
|
printf "[ FAIL ]\nclient got $csum_err_c_nr data checksum error[s]"
|
||
|
|
retc=1
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ ${stat_ooo_now} -eq 0 ] && [ ${stat_tcpfb_last_l} -ne ${stat_tcpfb_now_l} ]; then
|
||
|
|
printf "[ FAIL ]\nunexpected fallback to TCP"
|
||
|
|
rets=1
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ $retc -eq 0 ] && [ $rets -eq 0 ]; then
|
||
|
|
printf "[ OK ]"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ $cookies -eq 2 ];then
|
||
|
|
if [ $stat_cookietx_last -ge $stat_cookietx_now ] ;then
|
||
|
|
printf " WARN: CookieSent: did not advance"
|
||
|
|
fi
|
||
|
|
if [ $stat_cookierx_last -ge $stat_cookierx_now ] ;then
|
||
|
|
printf " WARN: CookieRecv: did not advance"
|
||
|
|
fi
|
||
|
|
else
|
||
|
|
if [ $stat_cookietx_last -ne $stat_cookietx_now ] ;then
|
||
|
|
printf " WARN: CookieSent: changed"
|
||
|
|
fi
|
||
|
|
if [ $stat_cookierx_last -ne $stat_cookierx_now ] ;then
|
||
|
|
printf " WARN: CookieRecv: changed"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ ${stat_synrx_now_l} -gt ${expect_synrx} ]; then
|
||
|
|
printf " WARN: SYNRX: expect %d, got %d (probably retransmissions)" \
|
||
|
|
"${expect_synrx}" "${stat_synrx_now_l}"
|
||
|
|
fi
|
||
|
|
if [ ${stat_ackrx_now_l} -gt ${expect_ackrx} ]; then
|
||
|
|
printf " WARN: ACKRX: expect %d, got %d (probably retransmissions)" \
|
||
|
|
"${expect_ackrx}" "${stat_ackrx_now_l}"
|
||
|
|
fi
|
||
|
|
|
||
|
|
echo
|
||
|
|
cat "$capout"
|
||
|
|
[ $retc -eq 0 ] && [ $rets -eq 0 ]
|
||
|
|
}
|
||
|
|
|
||
|
|
make_file()
|
||
|
|
{
|
||
|
|
local name=$1
|
||
|
|
local who=$2
|
||
|
|
local SIZE=$filesize
|
||
|
|
local ksize
|
||
|
|
local rem
|
||
|
|
|
||
|
|
if [ $SIZE -eq 0 ]; then
|
||
|
|
local MAXSIZE=$((1024 * 1024 * 8))
|
||
|
|
local MINSIZE=$((1024 * 256))
|
||
|
|
|
||
|
|
SIZE=$(((RANDOM * RANDOM + MINSIZE) % MAXSIZE))
|
||
|
|
fi
|
||
|
|
|
||
|
|
ksize=$((SIZE / 1024))
|
||
|
|
rem=$((SIZE - (ksize * 1024)))
|
||
|
|
|
||
|
|
dd if=/dev/urandom of="$name" bs=1024 count=$ksize 2> /dev/null
|
||
|
|
dd if=/dev/urandom conv=notrunc of="$name" bs=1 count=$rem 2> /dev/null
|
||
|
|
echo -e "\nMPTCP_TEST_FILE_END_MARKER" >> "$name"
|
||
|
|
|
||
|
|
echo "Created $name (size $(du -b "$name")) containing data sent by $who"
|
||
|
|
}
|
||
|
|
|
||
|
|
run_tests_lo()
|
||
|
|
{
|
||
|
|
local listener_ns="$1"
|
||
|
|
local connector_ns="$2"
|
||
|
|
local connect_addr="$3"
|
||
|
|
local loopback="$4"
|
||
|
|
local extra_args="$5"
|
||
|
|
local lret=0
|
||
|
|
|
||
|
|
# skip if test programs are running inside same netns for subsequent runs.
|
||
|
|
if [ $loopback -eq 0 ] && [ ${listener_ns} = ${connector_ns} ]; then
|
||
|
|
return 0
|
||
|
|
fi
|
||
|
|
|
||
|
|
# skip if we don't want v6
|
||
|
|
if ! $ipv6 && is_v6 "${connect_addr}"; then
|
||
|
|
return 0
|
||
|
|
fi
|
||
|
|
|
||
|
|
local local_addr
|
||
|
|
if is_v6 "${connect_addr}"; then
|
||
|
|
local_addr="::"
|
||
|
|
else
|
||
|
|
local_addr="0.0.0.0"
|
||
|
|
fi
|
||
|
|
|
||
|
|
do_transfer ${listener_ns} ${connector_ns} MPTCP MPTCP \
|
||
|
|
${connect_addr} ${local_addr} "${extra_args}"
|
||
|
|
lret=$?
|
||
|
|
if [ $lret -ne 0 ]; then
|
||
|
|
ret=$lret
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ $do_tcp -eq 0 ]; then
|
||
|
|
# don't bother testing fallback tcp except for loopback case.
|
||
|
|
if [ ${listener_ns} != ${connector_ns} ]; then
|
||
|
|
return 0
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
do_transfer ${listener_ns} ${connector_ns} MPTCP TCP \
|
||
|
|
${connect_addr} ${local_addr} "${extra_args}"
|
||
|
|
lret=$?
|
||
|
|
if [ $lret -ne 0 ]; then
|
||
|
|
ret=$lret
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
do_transfer ${listener_ns} ${connector_ns} TCP MPTCP \
|
||
|
|
${connect_addr} ${local_addr} "${extra_args}"
|
||
|
|
lret=$?
|
||
|
|
if [ $lret -ne 0 ]; then
|
||
|
|
ret=$lret
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ $do_tcp -gt 1 ] ;then
|
||
|
|
do_transfer ${listener_ns} ${connector_ns} TCP TCP \
|
||
|
|
${connect_addr} ${local_addr} "${extra_args}"
|
||
|
|
lret=$?
|
||
|
|
if [ $lret -ne 0 ]; then
|
||
|
|
ret=$lret
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
|
||
|
|
run_tests()
|
||
|
|
{
|
||
|
|
run_tests_lo $1 $2 $3 0
|
||
|
|
}
|
||
|
|
|
||
|
|
run_tests_peekmode()
|
||
|
|
{
|
||
|
|
local peekmode="$1"
|
||
|
|
|
||
|
|
echo "INFO: with peek mode: ${peekmode}"
|
||
|
|
run_tests_lo "$ns1" "$ns1" 10.0.1.1 1 "-P ${peekmode}"
|
||
|
|
run_tests_lo "$ns1" "$ns1" dead:beef:1::1 1 "-P ${peekmode}"
|
||
|
|
}
|
||
|
|
|
||
|
|
display_time()
|
||
|
|
{
|
||
|
|
time_end=$(date +%s)
|
||
|
|
time_run=$((time_end-time_start))
|
||
|
|
|
||
|
|
echo "Time: ${time_run} seconds"
|
||
|
|
}
|
||
|
|
|
||
|
|
stop_if_error()
|
||
|
|
{
|
||
|
|
local msg="$1"
|
||
|
|
|
||
|
|
if [ ${ret} -ne 0 ]; then
|
||
|
|
echo "FAIL: ${msg}" 1>&2
|
||
|
|
display_time
|
||
|
|
exit ${ret}
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
make_file "$cin" "client"
|
||
|
|
make_file "$sin" "server"
|
||
|
|
|
||
|
|
check_mptcp_disabled
|
||
|
|
|
||
|
|
check_mptcp_ulp_setsockopt
|
||
|
|
|
||
|
|
stop_if_error "The kernel configuration is not valid for MPTCP"
|
||
|
|
|
||
|
|
echo "INFO: validating network environment with pings"
|
||
|
|
for sender in "$ns1" "$ns2" "$ns3" "$ns4";do
|
||
|
|
do_ping "$ns1" $sender 10.0.1.1
|
||
|
|
do_ping "$ns1" $sender dead:beef:1::1
|
||
|
|
|
||
|
|
do_ping "$ns2" $sender 10.0.1.2
|
||
|
|
do_ping "$ns2" $sender dead:beef:1::2
|
||
|
|
do_ping "$ns2" $sender 10.0.2.1
|
||
|
|
do_ping "$ns2" $sender dead:beef:2::1
|
||
|
|
|
||
|
|
do_ping "$ns3" $sender 10.0.2.2
|
||
|
|
do_ping "$ns3" $sender dead:beef:2::2
|
||
|
|
do_ping "$ns3" $sender 10.0.3.2
|
||
|
|
do_ping "$ns3" $sender dead:beef:3::2
|
||
|
|
|
||
|
|
do_ping "$ns4" $sender 10.0.3.1
|
||
|
|
do_ping "$ns4" $sender dead:beef:3::1
|
||
|
|
done
|
||
|
|
|
||
|
|
stop_if_error "Could not even run ping tests"
|
||
|
|
|
||
|
|
[ -n "$tc_loss" ] && tc -net "$ns2" qdisc add dev ns2eth3 root netem loss random $tc_loss delay ${tc_delay}ms
|
||
|
|
echo -n "INFO: Using loss of $tc_loss "
|
||
|
|
test "$tc_delay" -gt 0 && echo -n "delay $tc_delay ms "
|
||
|
|
|
||
|
|
reorder_delay=$(($tc_delay / 4))
|
||
|
|
|
||
|
|
if [ -z "${tc_reorder}" ]; then
|
||
|
|
reorder1=$((RANDOM%10))
|
||
|
|
reorder1=$((100 - reorder1))
|
||
|
|
reorder2=$((RANDOM%100))
|
||
|
|
|
||
|
|
if [ $reorder_delay -gt 0 ] && [ $reorder1 -lt 100 ] && [ $reorder2 -gt 0 ]; then
|
||
|
|
tc_reorder="reorder ${reorder1}% ${reorder2}%"
|
||
|
|
echo -n "$tc_reorder with delay ${reorder_delay}ms "
|
||
|
|
fi
|
||
|
|
elif [ "$tc_reorder" = "0" ];then
|
||
|
|
tc_reorder=""
|
||
|
|
elif [ "$reorder_delay" -gt 0 ];then
|
||
|
|
# reordering requires some delay
|
||
|
|
tc_reorder="reorder $tc_reorder"
|
||
|
|
echo -n "$tc_reorder with delay ${reorder_delay}ms "
|
||
|
|
fi
|
||
|
|
|
||
|
|
echo "on ns3eth4"
|
||
|
|
|
||
|
|
tc -net "$ns3" qdisc add dev ns3eth4 root netem delay ${reorder_delay}ms $tc_reorder
|
||
|
|
|
||
|
|
run_tests_lo "$ns1" "$ns1" 10.0.1.1 1
|
||
|
|
stop_if_error "Could not even run loopback test"
|
||
|
|
|
||
|
|
run_tests_lo "$ns1" "$ns1" dead:beef:1::1 1
|
||
|
|
stop_if_error "Could not even run loopback v6 test"
|
||
|
|
|
||
|
|
for sender in $ns1 $ns2 $ns3 $ns4;do
|
||
|
|
# ns1<->ns2 is not subject to reordering/tc delays. Use it to test
|
||
|
|
# mptcp syncookie support.
|
||
|
|
if [ $sender = $ns1 ]; then
|
||
|
|
ip netns exec "$ns2" sysctl -q net.ipv4.tcp_syncookies=2
|
||
|
|
else
|
||
|
|
ip netns exec "$ns2" sysctl -q net.ipv4.tcp_syncookies=1
|
||
|
|
fi
|
||
|
|
|
||
|
|
run_tests "$ns1" $sender 10.0.1.1
|
||
|
|
run_tests "$ns1" $sender dead:beef:1::1
|
||
|
|
|
||
|
|
run_tests "$ns2" $sender 10.0.1.2
|
||
|
|
run_tests "$ns2" $sender dead:beef:1::2
|
||
|
|
run_tests "$ns2" $sender 10.0.2.1
|
||
|
|
run_tests "$ns2" $sender dead:beef:2::1
|
||
|
|
|
||
|
|
run_tests "$ns3" $sender 10.0.2.2
|
||
|
|
run_tests "$ns3" $sender dead:beef:2::2
|
||
|
|
run_tests "$ns3" $sender 10.0.3.2
|
||
|
|
run_tests "$ns3" $sender dead:beef:3::2
|
||
|
|
|
||
|
|
run_tests "$ns4" $sender 10.0.3.1
|
||
|
|
run_tests "$ns4" $sender dead:beef:3::1
|
||
|
|
|
||
|
|
stop_if_error "Tests with $sender as a sender have failed"
|
||
|
|
done
|
||
|
|
|
||
|
|
run_tests_peekmode "saveWithPeek"
|
||
|
|
run_tests_peekmode "saveAfterPeek"
|
||
|
|
stop_if_error "Tests with peek mode have failed"
|
||
|
|
|
||
|
|
display_time
|
||
|
|
exit $ret
|