tjh.dev
Linux kernel mirror (for testing)
git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git
kernel
os
linux
1# SPDX-License-Identifier: GPL-2.0
2
3humanize()
4{
5 local speed=$1; shift
6
7 for unit in bps Kbps Mbps Gbps; do
8 if (($(echo "$speed < 1024" | bc))); then
9 break
10 fi
11
12 speed=$(echo "scale=1; $speed / 1024" | bc)
13 done
14
15 echo "$speed${unit}"
16}
17
18rate()
19{
20 local t0=$1; shift
21 local t1=$1; shift
22 local interval=$1; shift
23
24 echo $((8 * (t1 - t0) / interval))
25}
26
27start_traffic()
28{
29 local h_in=$1; shift # Where the traffic egresses the host
30 local sip=$1; shift
31 local dip=$1; shift
32 local dmac=$1; shift
33
34 $MZ $h_in -p 8000 -A $sip -B $dip -c 0 \
35 -a own -b $dmac -t udp -q &
36 sleep 1
37}
38
39stop_traffic()
40{
41 # Suppress noise from killing mausezahn.
42 { kill %% && wait %%; } 2>/dev/null
43}
44
45check_rate()
46{
47 local rate=$1; shift
48 local min=$1; shift
49 local what=$1; shift
50
51 if ((rate > min)); then
52 return 0
53 fi
54
55 echo "$what $(humanize $ir) < $(humanize $min)" > /dev/stderr
56 return 1
57}
58
59measure_rate()
60{
61 local sw_in=$1; shift # Where the traffic ingresses the switch
62 local host_in=$1; shift # Where it ingresses another host
63 local counter=$1; shift # Counter to use for measurement
64 local what=$1; shift
65
66 local interval=10
67 local i
68 local ret=0
69
70 # Dips in performance might cause momentary ingress rate to drop below
71 # 1Gbps. That wouldn't saturate egress and MC would thus get through,
72 # seemingly winning bandwidth on account of UC. Demand at least 2Gbps
73 # average ingress rate to somewhat mitigate this.
74 local min_ingress=2147483648
75
76 for i in {5..0}; do
77 local t0=$(ethtool_stats_get $host_in $counter)
78 local u0=$(ethtool_stats_get $sw_in $counter)
79 sleep $interval
80 local t1=$(ethtool_stats_get $host_in $counter)
81 local u1=$(ethtool_stats_get $sw_in $counter)
82
83 local ir=$(rate $u0 $u1 $interval)
84 local er=$(rate $t0 $t1 $interval)
85
86 if check_rate $ir $min_ingress "$what ingress rate"; then
87 break
88 fi
89
90 # Fail the test if we can't get the throughput.
91 if ((i == 0)); then
92 ret=1
93 fi
94 done
95
96 echo $ir $er
97 return $ret
98}