tjh.dev
Linux kernel mirror (for testing)
git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git
kernel
os
linux
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 type bridge vlan_filtering 1
58 ip link set dev br1 addrgenmode none
59 ip link set dev br1 up
60 ip link set dev $swp1 master br1
61 ip link set dev $swp1 up
62 ip link set dev $swp2 master br1
63 ip link set dev $swp2 up
64
65 tc qdisc add dev $swp1 clsact
66 tc qdisc add dev $swp2 clsact
67 tc qdisc add dev $swp2 root handle 10: \
68 prio bands 8 priomap 7 6 5 4 3 2 1 0
69}
70
71switch_destroy()
72{
73 tc qdisc del dev $swp2 root
74 tc qdisc del dev $swp2 clsact
75 tc qdisc del dev $swp1 clsact
76
77 ip link set dev $swp2 down
78 ip link set dev $swp2 nomaster
79 ip link set dev $swp1 down
80 ip link set dev $swp1 nomaster
81 ip link del dev br1
82}
83
84setup_prepare()
85{
86 h1=${NETIFS[p1]}
87 swp1=${NETIFS[p2]}
88
89 swp2=${NETIFS[p3]}
90 h2=${NETIFS[p4]}
91
92 h2mac=$(mac_get $h2)
93
94 vrf_prepare
95 h1_create
96 h2_create
97 switch_create
98}
99
100cleanup()
101{
102 pre_cleanup
103
104 switch_destroy
105 h2_destroy
106 h1_destroy
107 vrf_cleanup
108}
109
110ping_ipv4()
111{
112 ping_test $h1 192.0.2.2
113}
114
115test_skbedit_priority_one()
116{
117 local locus=$1; shift
118 local prio=$1; shift
119 local classid=$1; shift
120
121 RET=0
122
123 tc filter add $locus handle 101 pref 1 \
124 flower action skbedit priority $prio
125
126 local pkt0=$(qdisc_parent_stats_get $swp2 $classid .packets)
127 local pkt2=$(tc_rule_handle_stats_get "$locus" 101)
128 $MZ $h1 -t udp "sp=54321,dp=12345" -c 10 -d 20msec -p 100 \
129 -a own -b $h2mac -A 192.0.2.1 -B 192.0.2.2 -q
130
131 local pkt1
132 pkt1=$(busywait "$HIT_TIMEOUT" until_counter_is ">= $((pkt0 + 10))" \
133 qdisc_parent_stats_get $swp2 $classid .packets)
134 check_err $? "Expected to get 10 packets on class $classid, but got $((pkt1 - pkt0))."
135
136 local pkt3=$(tc_rule_handle_stats_get "$locus" 101)
137 ((pkt3 >= pkt2 + 10))
138 check_err $? "Expected to get 10 packets on skbedit rule but got $((pkt3 - pkt2))."
139
140 log_test "$locus skbedit priority $prio -> classid $classid"
141
142 tc filter del $locus pref 1
143}
144
145test_ingress()
146{
147 local prio
148
149 for prio in {0..7}; do
150 test_skbedit_priority_one "dev $swp1 ingress" \
151 $prio 10:$((8 - prio))
152 done
153}
154
155test_egress()
156{
157 local prio
158
159 for prio in {0..7}; do
160 test_skbedit_priority_one "dev $swp2 egress" \
161 $prio 10:$((8 - prio))
162 done
163}
164
165trap cleanup EXIT
166
167setup_prepare
168setup_wait
169
170tests_run
171
172exit $EXIT_STATUS