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