19512fe85Sahl# 29512fe85Sahl# CDDL HEADER START 39512fe85Sahl# 49512fe85Sahl# The contents of this file are subject to the terms of the 59512fe85Sahl# Common Development and Distribution License (the "License"). 69512fe85Sahl# You may not use this file except in compliance with the License. 79512fe85Sahl# 89512fe85Sahl# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 99512fe85Sahl# or http://www.opensolaris.org/os/licensing. 109512fe85Sahl# See the License for the specific language governing permissions 119512fe85Sahl# and limitations under the License. 129512fe85Sahl# 139512fe85Sahl# When distributing Covered Code, include this CDDL HEADER in each 149512fe85Sahl# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 159512fe85Sahl# If applicable, add the following below this CDDL HEADER, with the 169512fe85Sahl# fields enclosed by brackets "[]" replaced with your own identifying 179512fe85Sahl# information: Portions Copyright [yyyy] [name of copyright owner] 189512fe85Sahl# 199512fe85Sahl# CDDL HEADER END 209512fe85Sahl# 219512fe85Sahl 229512fe85Sahl# 23*bd0f52d7Sjhaslam# Copyright 2007 Sun Microsystems, Inc. All rights reserved. 249512fe85Sahl# Use is subject to license terms. 259512fe85Sahl# 26*bd0f52d7Sjhaslam# ident "%Z%%M% %I% %E% SMI" 279512fe85Sahl 289512fe85Sahl# 299512fe85Sahl# This script tests that the firing order of probes in a process is: 309512fe85Sahl# 319512fe85Sahl# 1. proc:::start 329512fe85Sahl# 2. proc:::lwp-start 339512fe85Sahl# 3. proc:::lwp-exit 349512fe85Sahl# 4. proc:::exit 359512fe85Sahl# 369512fe85Sahl# If this fails, the script will run indefinitely; it relies on the harness 379512fe85Sahl# to time it out. 389512fe85Sahl# 399512fe85Sahlscript() 409512fe85Sahl{ 419512fe85Sahl $dtrace -s /dev/stdin <<EOF 429512fe85Sahl proc:::start 439512fe85Sahl /curpsinfo->pr_ppid == $child/ 449512fe85Sahl { 459512fe85Sahl self->start = 1; 469512fe85Sahl } 479512fe85Sahl 489512fe85Sahl proc:::lwp-start 499512fe85Sahl /self->start/ 509512fe85Sahl { 519512fe85Sahl self->lwp_start = 1; 529512fe85Sahl } 539512fe85Sahl 549512fe85Sahl proc:::lwp-exit 559512fe85Sahl /self->lwp_start/ 569512fe85Sahl { 579512fe85Sahl self->lwp_exit = 1; 589512fe85Sahl } 599512fe85Sahl 609512fe85Sahl proc:::exit 619512fe85Sahl /self->lwp_exit == 1/ 629512fe85Sahl { 639512fe85Sahl exit(0); 649512fe85Sahl } 659512fe85SahlEOF 669512fe85Sahl} 679512fe85Sahl 689512fe85Sahlsleeper() 699512fe85Sahl{ 709512fe85Sahl while true; do 719512fe85Sahl /usr/bin/sleep 1 729512fe85Sahl done 739512fe85Sahl} 749512fe85Sahl 7523b5c241Stomeeif [ $# != 1 ]; then 7623b5c241Stomee echo expected one argument: '<'dtrace-path'>' 7723b5c241Stomee exit 2 7823b5c241Stomeefi 7923b5c241Stomee 8023b5c241Stomeedtrace=$1 819512fe85Sahl 829512fe85Sahlsleeper & 839512fe85Sahlchild=$! 849512fe85Sahl 859512fe85Sahlscript 869512fe85Sahlstatus=$? 879512fe85Sahl 889512fe85Sahlkill $child 899512fe85Sahlexit $status 90