hc
2024-01-05 071106ecf68c401173c58808b1cf5f68cc50d390
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
#!/bin/bash
# SPDX-License-Identifier: GPL-2.0
 
# This test sends traffic from H1 to H2. Either on ingress of $swp1, or on egress of $swp2, the
# traffic is acted upon by a pedit action. An ingress filter installed on $h2 verifies that the
# packet looks like expected.
#
# +----------------------+                             +----------------------+
# | H1                   |                             |                   H2 |
# |    + $h1             |                             |            $h2 +     |
# |    | 192.0.2.1/28    |                             |   192.0.2.2/28 |     |
# +----|-----------------+                             +----------------|-----+
#      |                                                                |
# +----|----------------------------------------------------------------|-----+
# | SW |                                                                |     |
# |  +-|----------------------------------------------------------------|-+   |
# |  | + $swp1                       BR                           $swp2 + |   |
# |  +--------------------------------------------------------------------+   |
# +---------------------------------------------------------------------------+
 
ALL_TESTS="
   ping_ipv4
   test_udp_sport
   test_udp_dport
   test_tcp_sport
   test_tcp_dport
"
 
NUM_NETIFS=4
source lib.sh
source tc_common.sh
 
: ${HIT_TIMEOUT:=2000} # ms
 
h1_create()
{
   simple_if_init $h1 192.0.2.1/28 2001:db8:1::1/64
}
 
h1_destroy()
{
   simple_if_fini $h1 192.0.2.1/28 2001:db8:1::1/64
}
 
h2_create()
{
   simple_if_init $h2 192.0.2.2/28 2001:db8:1::2/64
   tc qdisc add dev $h2 clsact
}
 
h2_destroy()
{
   tc qdisc del dev $h2 clsact
   simple_if_fini $h2 192.0.2.2/28 2001:db8:1::2/64
}
 
switch_create()
{
   ip link add name br1 up type bridge vlan_filtering 1
   ip link set dev $swp1 master br1
   ip link set dev $swp1 up
   ip link set dev $swp2 master br1
   ip link set dev $swp2 up
 
   tc qdisc add dev $swp1 clsact
   tc qdisc add dev $swp2 clsact
}
 
switch_destroy()
{
   tc qdisc del dev $swp2 clsact
   tc qdisc del dev $swp1 clsact
 
   ip link set dev $swp2 down
   ip link set dev $swp2 nomaster
   ip link set dev $swp1 down
   ip link set dev $swp1 nomaster
   ip link del dev br1
}
 
setup_prepare()
{
   h1=${NETIFS[p1]}
   swp1=${NETIFS[p2]}
 
   swp2=${NETIFS[p3]}
   h2=${NETIFS[p4]}
 
   h2mac=$(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 192.0.2.2
}
 
ping_ipv6()
{
   ping6_test $h1 2001:db8:1::2
}
 
do_test_pedit_l4port_one()
{
   local pedit_locus=$1; shift
   local pedit_prot=$1; shift
   local pedit_action=$1; shift
   local match_prot=$1; shift
   local match_flower=$1; shift
   local mz_flags=$1; shift
   local saddr=$1; shift
   local daddr=$1; shift
 
   tc filter add $pedit_locus handle 101 pref 1 \
      flower action pedit ex munge $pedit_action
   tc filter add dev $h2 ingress handle 101 pref 1 prot $match_prot \
      flower skip_hw $match_flower action pass
 
   RET=0
 
   $MZ $mz_flags $h1 -c 10 -d 20msec -p 100 \
       -a own -b $h2mac -q -t $pedit_prot sp=54321,dp=12345
 
   local pkts
   pkts=$(busywait "$TC_HIT_TIMEOUT" until_counter_is ">= 10" \
           tc_rule_handle_stats_get "dev $h2 ingress" 101)
   check_err $? "Expected to get 10 packets, but got $pkts."
 
   pkts=$(tc_rule_handle_stats_get "$pedit_locus" 101)
   ((pkts >= 10))
   check_err $? "Expected to get 10 packets on pedit rule, but got $pkts."
 
   log_test "$pedit_locus pedit $pedit_action"
 
   tc filter del dev $h2 ingress pref 1
   tc filter del $pedit_locus pref 1
}
 
do_test_pedit_l4port()
{
   local locus=$1; shift
   local prot=$1; shift
   local pedit_port=$1; shift
   local flower_port=$1; shift
   local port
 
   for port in 1 11111 65535; do
       do_test_pedit_l4port_one "$locus" "$prot"            \
                    "$prot $pedit_port set $port"        \
                    ip "ip_proto $prot $flower_port $port"    \
                    "-A 192.0.2.1 -B 192.0.2.2"
   done
}
 
test_udp_sport()
{
   do_test_pedit_l4port "dev $swp1 ingress" udp sport src_port
   do_test_pedit_l4port "dev $swp2 egress"  udp sport src_port
}
 
test_udp_dport()
{
   do_test_pedit_l4port "dev $swp1 ingress" udp dport dst_port
   do_test_pedit_l4port "dev $swp2 egress"  udp dport dst_port
}
 
test_tcp_sport()
{
   do_test_pedit_l4port "dev $swp1 ingress" tcp sport src_port
   do_test_pedit_l4port "dev $swp2 egress"  tcp sport src_port
}
 
test_tcp_dport()
{
   do_test_pedit_l4port "dev $swp1 ingress" tcp dport dst_port
   do_test_pedit_l4port "dev $swp2 egress"  tcp dport dst_port
}
 
trap cleanup EXIT
 
setup_prepare
setup_wait
 
tests_run
 
exit $EXIT_STATUS