| # SPDX-License-Identifier: GPL-2.0 |
| |
| mirror_install() |
| { |
| local from_dev=$1; shift |
| local direction=$1; shift |
| local to_dev=$1; shift |
| local filter=$1; shift |
| |
| tc filter add dev $from_dev $direction \ |
| pref 1000 $filter \ |
| action mirred egress mirror dev $to_dev |
| } |
| |
| mirror_uninstall() |
| { |
| local from_dev=$1; shift |
| local direction=$1; shift |
| |
| tc filter del dev $swp1 $direction pref 1000 |
| } |
| |
| is_ipv6() |
| { |
| local addr=$1; shift |
| |
| [[ -z ${addr//[0-9a-fA-F:]/} ]] |
| } |
| |
| mirror_test() |
| { |
| local vrf_name=$1; shift |
| local sip=$1; shift |
| local dip=$1; shift |
| local dev=$1; shift |
| local pref=$1; shift |
| local expect=$1; shift |
| |
| if is_ipv6 $dip; then |
| local proto=-6 |
| local type="icmp6 type=128" # Echo request. |
| else |
| local proto= |
| local type="icmp echoreq" |
| fi |
| |
| if [[ -z ${expect//[[:digit:]]/} ]]; then |
| expect="== $expect" |
| fi |
| |
| local t0=$(tc_rule_stats_get $dev $pref) |
| $MZ $proto $vrf_name ${sip:+-A $sip} -B $dip -a own -b bc -q \ |
| -c 10 -d 100msec -t $type |
| sleep 0.5 |
| local t1=$(tc_rule_stats_get $dev $pref) |
| local delta=$((t1 - t0)) |
| ((delta $expect)) |
| check_err $? "Expected to capture $expect packets, got $delta." |
| } |
| |
| do_test_span_dir_ips() |
| { |
| local expect=$1; shift |
| local dev=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| local forward_type=${1-8}; shift |
| local backward_type=${1-0}; shift |
| |
| icmp_capture_install $dev "type $forward_type" |
| mirror_test v$h1 $ip1 $ip2 $dev 100 $expect |
| icmp_capture_uninstall $dev |
| |
| icmp_capture_install $dev "type $backward_type" |
| mirror_test v$h2 $ip2 $ip1 $dev 100 $expect |
| icmp_capture_uninstall $dev |
| } |
| |
| quick_test_span_dir_ips() |
| { |
| local dev=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| local forward_type=${1-8}; shift |
| local backward_type=${1-0}; shift |
| |
| do_test_span_dir_ips 10 "$dev" "$ip1" "$ip2" \ |
| "$forward_type" "$backward_type" |
| } |
| |
| test_span_dir_ips() |
| { |
| local dev=$1; shift |
| local forward_type=$1; shift |
| local backward_type=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| |
| quick_test_span_dir_ips "$dev" "$ip1" "$ip2" \ |
| "$forward_type" "$backward_type" |
| |
| icmp_capture_install $dev "type $forward_type" |
| mirror_test v$h1 $ip1 $ip2 $dev 100 10 |
| icmp_capture_uninstall $dev |
| |
| icmp_capture_install $dev "type $backward_type" |
| mirror_test v$h2 $ip2 $ip1 $dev 100 10 |
| icmp_capture_uninstall $dev |
| } |
| |
| test_span_dir() |
| { |
| local dev=$1; shift |
| local forward_type=$1; shift |
| local backward_type=$1; shift |
| |
| test_span_dir_ips "$dev" "$forward_type" "$backward_type" \ |
| 192.0.2.1 192.0.2.2 |
| } |
| |
| do_test_span_vlan_dir_ips() |
| { |
| local expect=$1; shift |
| local dev=$1; shift |
| local vid=$1; shift |
| local ul_proto=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| |
| # Install the capture as skip_hw to avoid double-counting of packets. |
| # The traffic is meant for local box anyway, so will be trapped to |
| # kernel. |
| vlan_capture_install $dev "skip_hw vlan_id $vid vlan_ethtype $ul_proto" |
| mirror_test v$h1 $ip1 $ip2 $dev 100 "$expect" |
| mirror_test v$h2 $ip2 $ip1 $dev 100 "$expect" |
| vlan_capture_uninstall $dev |
| } |
| |
| quick_test_span_vlan_dir_ips() |
| { |
| local dev=$1; shift |
| local vid=$1; shift |
| local ul_proto=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| |
| do_test_span_vlan_dir_ips '>= 10' "$dev" "$vid" "$ul_proto" \ |
| "$ip1" "$ip2" |
| } |
| |
| fail_test_span_vlan_dir_ips() |
| { |
| local dev=$1; shift |
| local vid=$1; shift |
| local ul_proto=$1; shift |
| local ip1=$1; shift |
| local ip2=$1; shift |
| |
| do_test_span_vlan_dir_ips 0 "$dev" "$vid" "$ul_proto" "$ip1" "$ip2" |
| } |
| |
| quick_test_span_vlan_dir() |
| { |
| local dev=$1; shift |
| local vid=$1; shift |
| local ul_proto=$1; shift |
| |
| quick_test_span_vlan_dir_ips "$dev" "$vid" "$ul_proto" \ |
| 192.0.2.1 192.0.2.2 |
| } |
| |
| fail_test_span_vlan_dir() |
| { |
| local dev=$1; shift |
| local vid=$1; shift |
| local ul_proto=$1; shift |
| |
| fail_test_span_vlan_dir_ips "$dev" "$vid" "$ul_proto" \ |
| 192.0.2.1 192.0.2.2 |
| } |