Commit e814c58d authored by Petr Machata's avatar Petr Machata Committed by David S. Miller
Browse files

selftests: mlxsw: Add a TBF selftest 



Add a test that runs traffic across a port throttled with TBF. The test
checks that the observed throughput is within +-5% from the installed
shaper.

To allow checking both the software datapath and the offloaded one, make
the test suitable for inclusion from driver-specific wrapper. Introduce
such wrappers for mlxsw.

Signed-off-by: default avatarPetr Machata <petrm@mellanox.com>
Signed-off-by: default avatarIdo Schimmel <idosch@mellanox.com>
Signed-off-by: default avatarDavid S. Miller <davem@davemloft.net>
parent c143139b

tools/testing/selftests/drivers/net/mlxsw/sch_tbf_ets.sh

0 → 100755
+9 −0
Original line number Diff line number Diff line 
#!/bin/bash

# SPDX-License-Identifier: GPL-2.0



source qos_lib.sh

bail_on_lldpad



lib_dir=$(dirname $0)/../../../net/forwarding

TCFLAGS=skip_sw

source $lib_dir/sch_tbf_ets.sh

tools/testing/selftests/drivers/net/mlxsw/sch_tbf_prio.sh

0 → 100755
+9 −0
Original line number Diff line number Diff line 
#!/bin/bash

# SPDX-License-Identifier: GPL-2.0



source qos_lib.sh

bail_on_lldpad



lib_dir=$(dirname $0)/../../../net/forwarding

TCFLAGS=skip_sw

source $lib_dir/sch_tbf_prio.sh

tools/testing/selftests/drivers/net/mlxsw/sch_tbf_root.sh

0 → 100755
+9 −0
Original line number Diff line number Diff line 
#!/bin/bash

# SPDX-License-Identifier: GPL-2.0



source qos_lib.sh

bail_on_lldpad



lib_dir=$(dirname $0)/../../../net/forwarding

TCFLAGS=skip_sw

source $lib_dir/sch_tbf_root.sh

tools/testing/selftests/net/forwarding/sch_tbf_core.sh

0 → 100644
+233 −0
Original line number Diff line number Diff line 
# SPDX-License-Identifier: GPL-2.0



# This test sends a stream of traffic from H1 through a switch, to H2. On the

# egress port from the switch ($swp2), a shaper is installed. The test verifies

# that the rates on the port match the configured shaper.

#

# In order to test per-class shaping, $swp2 actually contains TBF under PRIO or

# ETS, with two different configurations. Traffic is prioritized using 802.1p.

#

# +-------------------------------------------+

# | H1                                        |

# |     + $h1.10                  $h1.11 +    |

# |     | 192.0.2.1/28     192.0.2.17/28 |    |

# |     |                                |    |

# |     \______________    _____________/     |

# |                    \ /                    |

# |                     + $h1                 |

# +---------------------|---------------------+

#                       |

# +---------------------|---------------------+

# | SW                  + $swp1               |

# |     _______________/ \_______________     |

# |    /                                 \    |

# |  +-|--------------+   +--------------|-+  |

# |  | + $swp1.10     |   |     $swp1.11 + |  |

# |  |                |   |                |  |

# |  |     BR10       |   |       BR11     |  |

# |  |                |   |                |  |

# |  | + $swp2.10     |   |     $swp2.11 + |  |

# |  +-|--------------+   +--------------|-+  |

# |    \_______________   ______________/     |

# |                    \ /                    |

# |                     + $swp2               |

# +---------------------|---------------------+

#                       |

# +---------------------|---------------------+

# | H2                  + $h2                 |

# |      ______________/ \______________      |

# |     /                               \     |

# |     |                               |     |

# |     + $h2.10                 $h2.11 +     |

# |       192.0.2.2/28    192.0.2.18/28       |

# +-------------------------------------------+



NUM_NETIFS=4

CHECK_TC="yes"

source $lib_dir/lib.sh



ipaddr()

{

	local host=$1; shift

	local vlan=$1; shift



	echo 192.0.2.$((16 * (vlan - 10) + host))

}



host_create()

{

	local dev=$1; shift

	local host=$1; shift



	simple_if_init $dev

	mtu_set $dev 10000



	vlan_create $dev 10 v$dev $(ipaddr $host 10)/28

	ip link set dev $dev.10 type vlan egress 0:0



	vlan_create $dev 11 v$dev $(ipaddr $host 11)/28

	ip link set dev $dev.11 type vlan egress 0:1

}



host_destroy()

{

	local dev=$1; shift



	vlan_destroy $dev 11

	vlan_destroy $dev 10

	mtu_restore $dev

	simple_if_fini $dev

}



h1_create()

{

	host_create $h1 1

}



h1_destroy()

{

	host_destroy $h1

}



h2_create()

{

	host_create $h2 2



	tc qdisc add dev $h2 clsact

	tc filter add dev $h2 ingress pref 1010 prot 802.1q \

	   flower $TCFLAGS vlan_id 10 action pass

	tc filter add dev $h2 ingress pref 1011 prot 802.1q \

	   flower $TCFLAGS vlan_id 11 action pass

}



h2_destroy()

{

	tc qdisc del dev $h2 clsact

	host_destroy $h2

}



switch_create()

{

	local intf

	local vlan



	ip link add dev br10 type bridge

	ip link add dev br11 type bridge



	for intf in $swp1 $swp2; do

		ip link set dev $intf up

		mtu_set $intf 10000



		for vlan in 10 11; do

			vlan_create $intf $vlan

			ip link set dev $intf.$vlan master br$vlan

			ip link set dev $intf.$vlan up

		done

	done



	for vlan in 10 11; do

		ip link set dev $swp1.$vlan type vlan ingress 0:0 1:1

	done



	ip link set dev br10 up

	ip link set dev br11 up

}



switch_destroy()

{

	local intf

	local vlan



	# A test may have been interrupted mid-run, with Qdisc installed. Delete

	# it here.

	tc qdisc del dev $swp2 root 2>/dev/null



	ip link set dev br11 down

	ip link set dev br10 down



	for intf in $swp2 $swp1; do

		for vlan in 11 10; do

			ip link set dev $intf.$vlan down

			ip link set dev $intf.$vlan nomaster

			vlan_destroy $intf $vlan

		done



		mtu_restore $intf

		ip link set dev $intf down

	done



	ip link del dev br11

	ip link del dev br10

}



setup_prepare()

{

	h1=${NETIFS[p1]}

	swp1=${NETIFS[p2]}



	swp2=${NETIFS[p3]}

	h2=${NETIFS[p4]}



	swp3=${NETIFS[p5]}

	h3=${NETIFS[p6]}



	swp4=${NETIFS[p7]}

	swp5=${NETIFS[p8]}



	h2_mac=$(mac_get $h2)



	vrf_prepare



	h1_create

	h2_create

	switch_create

}



cleanup()

{

	pre_cleanup



	switch_destroy

	h2_destroy

	h1_destroy



	vrf_cleanup

}



ping_ipv4()

{

	ping_test $h1.10 $(ipaddr 2 10) " vlan 10"

	ping_test $h1.11 $(ipaddr 2 11) " vlan 11"

}



tbf_get_counter()

{

	local vlan=$1; shift



	tc_rule_stats_get $h2 10$vlan ingress .bytes

}



do_tbf_test()

{

	local vlan=$1; shift

	local mbit=$1; shift



	start_traffic $h1.$vlan $(ipaddr 1 $vlan) $(ipaddr 2 $vlan) $h2_mac

	sleep 5 # Wait for the burst to dwindle



	local t2=$(busywait_for_counter 1000 +1 tbf_get_counter $vlan)

	sleep 10

	local t3=$(tbf_get_counter $vlan)

	stop_traffic



	RET=0



	# Note: TBF uses 10^6 Mbits, not 2^20 ones.

	local er=$((mbit * 1000 * 1000))

	local nr=$(rate $t2 $t3 10)

	local nr_pct=$((100 * (nr - er) / er))

	((-5 <= nr_pct && nr_pct <= 5))

	check_err $? "Expected rate $(humanize $er), got $(humanize $nr), which is $nr_pct% off. Required accuracy is +-5%."



	log_test "TC $((vlan - 10)): TBF rate ${mbit}Mbit"

}

tools/testing/selftests/net/forwarding/sch_tbf_ets.sh

0 → 100755
+6 −0
Original line number Diff line number Diff line 
#!/bin/bash

# SPDX-License-Identifier: GPL-2.0



QDISC="ets strict"

: ${lib_dir:=.}

source $lib_dir/sch_tbf_etsprio.sh

CRA Git | Maintained and supported by SUSTech CRA and CCSE