1#!/bin/bash
2# SPDX-License-Identifier: GPL-2.0
3
4# This test sends traffic from H1 to H2. Either on ingress of $swp1, or on
5# egress of $swp2, the traffic is acted upon by an action skbedit priority. The
6# new priority should be taken into account when classifying traffic on the PRIO
7# qdisc at $swp2. The test verifies that for different priority values, the
8# traffic ends up in expected PRIO band.
9#
10# +----------------------+                             +----------------------+
11# | H1                   |                             |                   H2 |
12# |    + $h1             |                             |            $h2 +     |
13# |    | 192.0.2.1/28    |                             |   192.0.2.2/28 |     |
14# +----|-----------------+                             +----------------|-----+
15#      |                                                                |
16# +----|----------------------------------------------------------------|-----+
17# | SW |                                                                |     |
18# |  +-|----------------------------------------------------------------|-+   |
19# |  | + $swp1                       BR                           $swp2 + |   |
20# |  |                                                             PRIO   |   |
21# |  +--------------------------------------------------------------------+   |
22# +---------------------------------------------------------------------------+
23
24ALL_TESTS="
25	ping_ipv4
26	test_ingress
27	test_egress
28"
29
30NUM_NETIFS=4
31source lib.sh
32
33: ${HIT_TIMEOUT:=2000} # ms
34
35h1_create()
36{
37	simple_if_init $h1 192.0.2.1/28
38}
39
40h1_destroy()
41{
42	simple_if_fini $h1 192.0.2.1/28
43}
44
45h2_create()
46{
47	simple_if_init $h2 192.0.2.2/28
48}
49
50h2_destroy()
51{
52	simple_if_fini $h2 192.0.2.2/28
53}
54
55switch_create()
56{
57	ip link add name br1 up type bridge vlan_filtering 1
58	ip link set dev $swp1 master br1
59	ip link set dev $swp1 up
60	ip link set dev $swp2 master br1
61	ip link set dev $swp2 up
62
63	tc qdisc add dev $swp1 clsact
64	tc qdisc add dev $swp2 clsact
65	tc qdisc add dev $swp2 root handle 10: \
66	   prio bands 8 priomap 7 6 5 4 3 2 1 0
67}
68
69switch_destroy()
70{
71	tc qdisc del dev $swp2 root
72	tc qdisc del dev $swp2 clsact
73	tc qdisc del dev $swp1 clsact
74
75	ip link set dev $swp2 nomaster
76	ip link set dev $swp1 nomaster
77	ip link del dev br1
78}
79
80setup_prepare()
81{
82	h1=${NETIFS[p1]}
83	swp1=${NETIFS[p2]}
84
85	swp2=${NETIFS[p3]}
86	h2=${NETIFS[p4]}
87
88	h2mac=$(mac_get $h2)
89
90	vrf_prepare
91	h1_create
92	h2_create
93	switch_create
94}
95
96cleanup()
97{
98	pre_cleanup
99
100	switch_destroy
101	h2_destroy
102	h1_destroy
103	vrf_cleanup
104}
105
106ping_ipv4()
107{
108	ping_test $h1 192.0.2.2
109}
110
111test_skbedit_priority_one()
112{
113	local locus=$1; shift
114	local prio=$1; shift
115	local classid=$1; shift
116
117	RET=0
118
119	tc filter add $locus handle 101 pref 1 \
120	   flower action skbedit priority $prio
121
122	local pkt0=$(qdisc_parent_stats_get $swp2 $classid .packets)
123	local pkt2=$(tc_rule_handle_stats_get "$locus" 101)
124	$MZ $h1 -t udp "sp=54321,dp=12345" -c 10 -d 20msec -p 100 \
125	    -a own -b $h2mac -A 192.0.2.1 -B 192.0.2.2 -q
126
127	local pkt1
128	pkt1=$(busywait "$HIT_TIMEOUT" until_counter_is ">= $((pkt0 + 10))" \
129			qdisc_parent_stats_get $swp2 $classid .packets)
130	check_err $? "Expected to get 10 packets on class $classid, but got $((pkt1 - pkt0))."
131
132	local pkt3=$(tc_rule_handle_stats_get "$locus" 101)
133	((pkt3 >= pkt2 + 10))
134	check_err $? "Expected to get 10 packets on skbedit rule but got $((pkt3 - pkt2))."
135
136	log_test "$locus skbedit priority $prio -> classid $classid"
137
138	tc filter del $locus pref 1
139}
140
141test_ingress()
142{
143	local prio
144
145	for prio in {0..7}; do
146		test_skbedit_priority_one "dev $swp1 ingress" \
147					  $prio 10:$((8 - prio))
148	done
149}
150
151test_egress()
152{
153	local prio
154
155	for prio in {0..7}; do
156		test_skbedit_priority_one "dev $swp2 egress" \
157					  $prio 10:$((8 - prio))
158	done
159}
160
161trap cleanup EXIT
162
163setup_prepare
164setup_wait
165
166tests_run
167
168exit $EXIT_STATUS
169