1178476Sjb# 2178476Sjb# CDDL HEADER START 3178476Sjb# 4178476Sjb# The contents of this file are subject to the terms of the 5178476Sjb# Common Development and Distribution License (the "License"). 6178476Sjb# You may not use this file except in compliance with the License. 7178476Sjb# 8178476Sjb# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9178476Sjb# or http://www.opensolaris.org/os/licensing. 10178476Sjb# See the License for the specific language governing permissions 11178476Sjb# and limitations under the License. 12178476Sjb# 13178476Sjb# When distributing Covered Code, include this CDDL HEADER in each 14178476Sjb# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15178476Sjb# If applicable, add the following below this CDDL HEADER, with the 16178476Sjb# fields enclosed by brackets "[]" replaced with your own identifying 17178476Sjb# information: Portions Copyright [yyyy] [name of copyright owner] 18178476Sjb# 19178476Sjb# CDDL HEADER END 20178476Sjb# 21178476Sjb 22178476Sjb# 23178476Sjb# Copyright 2007 Sun Microsystems, Inc. All rights reserved. 24178476Sjb# Use is subject to license terms. 25178476Sjb# 26178476Sjb# ident "%Z%%M% %I% %E% SMI" 27178476Sjb 28178476Sjb# 29178476Sjb# This script tests that the firing order of probes in a process is: 30178476Sjb# 31178476Sjb# 1. proc:::start 32178476Sjb# 2. proc:::lwp-start 33178476Sjb# 3. proc:::lwp-exit 34178476Sjb# 4. proc:::exit 35178476Sjb# 36178476Sjb# If this fails, the script will run indefinitely; it relies on the harness 37178476Sjb# to time it out. 38178476Sjb# 39178476Sjbscript() 40178476Sjb{ 41178476Sjb $dtrace -s /dev/stdin <<EOF 42178476Sjb proc:::start 43178476Sjb /curpsinfo->pr_ppid == $child/ 44178476Sjb { 45178476Sjb self->start = 1; 46178476Sjb } 47178476Sjb 48178476Sjb proc:::lwp-start 49178476Sjb /self->start/ 50178476Sjb { 51178476Sjb self->lwp_start = 1; 52178476Sjb } 53178476Sjb 54178476Sjb proc:::lwp-exit 55178476Sjb /self->lwp_start/ 56178476Sjb { 57178476Sjb self->lwp_exit = 1; 58178476Sjb } 59178476Sjb 60178476Sjb proc:::exit 61178476Sjb /self->lwp_exit == 1/ 62178476Sjb { 63178476Sjb exit(0); 64178476Sjb } 65178476SjbEOF 66178476Sjb} 67178476Sjb 68178476Sjbsleeper() 69178476Sjb{ 70178476Sjb while true; do 71178476Sjb /usr/bin/sleep 1 72178476Sjb done 73178476Sjb} 74178476Sjb 75178476Sjbif [ $# != 1 ]; then 76178476Sjb echo expected one argument: '<'dtrace-path'>' 77178476Sjb exit 2 78178476Sjbfi 79178476Sjb 80178476Sjbdtrace=$1 81178476Sjb 82178476Sjbsleeper & 83178476Sjbchild=$! 84178476Sjb 85178476Sjbscript 86178476Sjbstatus=$? 87178476Sjb 88178476Sjbkill $child 89178476Sjbexit $status 90