sch_red_ets.sh

  1#!/bin/bash
  2# SPDX-License-Identifier: GPL-2.0
  3
  4ALL_TESTS="
  5	ping_ipv4
  6	ecn_test
  7	ecn_test_perband
  8	ecn_nodrop_test
  9	red_test
 10	mc_backlog_test
 11	red_mirror_test
 12	red_trap_test
 13	ecn_mirror_test
 14"
 15: ${QDISC:=ets}
 16source sch_red_core.sh
 17
 18# do_ecn_test first build 2/3 of the requested backlog and expects no marking,
 19# and then builds 3/2 of it and does expect marking. The values of $BACKLOG1 and
 20# $BACKLOG2 are far enough not to overlap, so that we can assume that if we do
 21# see (do not see) marking, it is actually due to the configuration of that one
 22# TC, and not due to configuration of the other TC leaking over.
 23BACKLOG1=400000
 24BACKLOG2=1000000
 25
 26install_root_qdisc()
 27{
 28	tc qdisc add dev $swp3 parent 1: handle 10: $QDISC \
 29	   bands 8 priomap 7 6 5 4 3 2 1 0
 30}
 31
 32install_qdisc_tc0()
 33{
 34	local -a args=("$@")
 35
 36	tc qdisc add dev $swp3 parent 10:8 handle 108: red \
 37	   limit 1000000 min $BACKLOG1 max $((BACKLOG1 + 1)) \
 38	   probability 1.0 avpkt 8000 burst 51 "${args[@]}"
 39}
 40
 41install_qdisc_tc1()
 42{
 43	local -a args=("$@")
 44
 45	tc qdisc add dev $swp3 parent 10:7 handle 107: red \
 46	   limit 1000000 min $BACKLOG2 max $((BACKLOG2 + 1)) \
 47	   probability 1.0 avpkt 8000 burst 126 "${args[@]}"
 48}
 49
 50install_qdisc()
 51{
 52	install_root_qdisc
 53	install_qdisc_tc0 "$@"
 54	install_qdisc_tc1 "$@"
 55	sleep 1
 56}
 57
 58uninstall_qdisc_tc0()
 59{
 60	tc qdisc del dev $swp3 parent 10:8
 61}
 62
 63uninstall_qdisc_tc1()
 64{
 65	tc qdisc del dev $swp3 parent 10:7
 66}
 67
 68uninstall_root_qdisc()
 69{
 70	tc qdisc del dev $swp3 parent 1:
 71}
 72
 73uninstall_qdisc()
 74{
 75	uninstall_qdisc_tc0
 76	uninstall_qdisc_tc1
 77	uninstall_root_qdisc
 78}
 79
 80ecn_test()
 81{
 82	install_qdisc ecn
 83	defer uninstall_qdisc
 84
 85	do_ecn_test 10 $BACKLOG1
 86	do_ecn_test 11 $BACKLOG2
 87}
 88
 89ecn_test_perband()
 90{
 91	install_qdisc ecn
 92	defer uninstall_qdisc
 93
 94	do_ecn_test_perband 10 $BACKLOG1
 95	do_ecn_test_perband 11 $BACKLOG2
 96}
 97
 98ecn_nodrop_test()
 99{
100	install_qdisc ecn nodrop
101	defer uninstall_qdisc
102
103	do_ecn_nodrop_test 10 $BACKLOG1
104	do_ecn_nodrop_test 11 $BACKLOG2
105}
106
107red_test()
108{
109	install_qdisc
110	defer uninstall_qdisc
111
112	# Make sure that we get the non-zero value if there is any.
113	local cur=$(busywait 1100 until_counter_is "> 0" \
114			    qdisc_stats_get $swp3 10: .backlog)
115	(( cur == 0 ))
116	check_err $? "backlog of $cur observed on non-busy qdisc"
117	log_test "$QDISC backlog properly cleaned"
118
119	do_red_test 10 $BACKLOG1
120	do_red_test 11 $BACKLOG2
121}
122
123mc_backlog_test()
124{
125	install_qdisc
126	defer uninstall_qdisc
127
128	# Note that the backlog numbers here do not correspond to RED
129	# configuration, but are arbitrary.
130	do_mc_backlog_test 10 $BACKLOG1
131	do_mc_backlog_test 11 $BACKLOG2
132}
133
134red_mirror_test()
135{
136	install_qdisc qevent early_drop block 10
137	defer uninstall_qdisc
138
139	do_drop_mirror_test 10 $BACKLOG1 early_drop
140	do_drop_mirror_test 11 $BACKLOG2 early_drop
141}
142
143red_trap_test()
144{
145	install_qdisc qevent early_drop block 10
146	defer uninstall_qdisc
147
148	do_drop_trap_test 10 $BACKLOG1 early_drop
149	do_drop_trap_test 11 $BACKLOG2 early_drop
150}
151
152ecn_mirror_test()
153{
154	install_qdisc ecn qevent mark block 10
155	defer uninstall_qdisc
156
157	do_mark_mirror_test 10 $BACKLOG1
158	do_mark_mirror_test 11 $BACKLOG2
159}
160
161bail_on_lldpad "configure DCB" "configure Qdiscs"
162
163trap cleanup EXIT
164setup_prepare
165setup_wait
166tests_run
167
168exit $EXIT_STATUS