110e6dadfSbrendan#!/usr/bin/ksh
210e6dadfSbrendan#
310e6dadfSbrendan# CDDL HEADER START
410e6dadfSbrendan#
510e6dadfSbrendan# The contents of this file are subject to the terms of the
610e6dadfSbrendan# Common Development and Distribution License (the "License").
710e6dadfSbrendan# You may not use this file except in compliance with the License.
810e6dadfSbrendan#
910e6dadfSbrendan# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
1010e6dadfSbrendan# or http://www.opensolaris.org/os/licensing.
1110e6dadfSbrendan# See the License for the specific language governing permissions
1210e6dadfSbrendan# and limitations under the License.
1310e6dadfSbrendan#
1410e6dadfSbrendan# When distributing Covered Code, include this CDDL HEADER in each
1510e6dadfSbrendan# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
1610e6dadfSbrendan# If applicable, add the following below this CDDL HEADER, with the
1710e6dadfSbrendan# fields enclosed by brackets "[]" replaced with your own identifying
1810e6dadfSbrendan# information: Portions Copyright [yyyy] [name of copyright owner]
1910e6dadfSbrendan#
2010e6dadfSbrendan# CDDL HEADER END
2110e6dadfSbrendan#
2210e6dadfSbrendan
2310e6dadfSbrendan#
24*9cd928feSAlan Maguire# Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
2510e6dadfSbrendan#
2610e6dadfSbrendan
2710e6dadfSbrendan#
28*9cd928feSAlan Maguire# Test {udp,ip}:::{send,receive} of IPv4 UDP to a remote host.
2910e6dadfSbrendan#
3010e6dadfSbrendan# This may fail due to:
3110e6dadfSbrendan#
3210e6dadfSbrendan# 1. A change to the ip stack breaking expected probe behavior,
3310e6dadfSbrendan#    which is the reason we are testing.
3410e6dadfSbrendan# 2. No physical network interface is plumbed and up.
3510e6dadfSbrendan# 3. No other hosts on this subnet are reachable and listening on rpcbind.
3610e6dadfSbrendan# 4. An unlikely race causes the unlocked global send/receive
3710e6dadfSbrendan#    variables to be corrupted.
3810e6dadfSbrendan#
3910e6dadfSbrendan# This test sends a UDP message using ping and checks that at least the
4010e6dadfSbrendan# following counts were traced:
4110e6dadfSbrendan#
4210e6dadfSbrendan# 1 x ip:::send (UDP sent to ping's base UDP port)
43*9cd928feSAlan Maguire# 1 x udp:::send (UDP sent to ping's base UDP port)
4410e6dadfSbrendan#
4510e6dadfSbrendan
4610e6dadfSbrendanif (( $# != 1 )); then
4710e6dadfSbrendan	print -u2 "expected one argument: <dtrace-path>"
4810e6dadfSbrendan	exit 2
4910e6dadfSbrendanfi
5010e6dadfSbrendan
5110e6dadfSbrendandtrace=$1
5210e6dadfSbrendangetaddr=./get.ipv4remote.pl
5310e6dadfSbrendan
5410e6dadfSbrendanif [[ ! -x $getaddr ]]; then
5510e6dadfSbrendan	print -u2 "could not find or execute sub program: $getaddr"
5610e6dadfSbrendan	exit 3
5710e6dadfSbrendanfi
5810e6dadfSbrendan$getaddr | read source dest
5910e6dadfSbrendanif (( $? != 0 )); then
6010e6dadfSbrendan	exit 4
6110e6dadfSbrendanfi
6210e6dadfSbrendan
6310e6dadfSbrendan$dtrace -c "/usr/sbin/ping -U $dest" -qs /dev/stdin <<EOF | grep -v 'is alive'
6410e6dadfSbrendanBEGIN
6510e6dadfSbrendan{
66*9cd928feSAlan Maguire	ipsend = udpsend = 0;
6710e6dadfSbrendan}
6810e6dadfSbrendan
6910e6dadfSbrendanip:::send
7010e6dadfSbrendan/args[2]->ip_saddr == "$source" && args[2]->ip_daddr == "$dest" &&
7110e6dadfSbrendan    args[4]->ipv4_protocol == IPPROTO_UDP/
7210e6dadfSbrendan{
73*9cd928feSAlan Maguire	ipsend++;
74*9cd928feSAlan Maguire}
75*9cd928feSAlan Maguire
76*9cd928feSAlan Maguireudp:::send
77*9cd928feSAlan Maguire/args[2]->ip_saddr == "$source" && args[2]->ip_daddr == "$dest"/
78*9cd928feSAlan Maguire{
79*9cd928feSAlan Maguire	udpsend++;
8010e6dadfSbrendan}
8110e6dadfSbrendan
8210e6dadfSbrendanEND
8310e6dadfSbrendan{
8410e6dadfSbrendan	printf("Minimum UDP events seen\n\n");
85*9cd928feSAlan Maguire	printf("ip:::send - %s\n", ipsend >= 1 ? "yes" : "no");
86*9cd928feSAlan Maguire	printf("udp:::send - %s\n", udpsend >= 1 ? "yes" : "no");
8710e6dadfSbrendan}
8810e6dadfSbrendanEOF
89