1# 2# CDDL HEADER START 3# 4# The contents of this file are subject to the terms of the 5# Common Development and Distribution License (the "License"). 6# You may not use this file except in compliance with the License. 7# 8# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9# or http://www.opensolaris.org/os/licensing. 10# See the License for the specific language governing permissions 11# and limitations under the License. 12# 13# When distributing Covered Code, include this CDDL HEADER in each 14# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15# If applicable, add the following below this CDDL HEADER, with the 16# fields enclosed by brackets "[]" replaced with your own identifying 17# information: Portions Copyright [yyyy] [name of copyright owner] 18# 19# CDDL HEADER END 20# 21 22# 23# Copyright 2006 Sun Microsystems, Inc. All rights reserved. 24# Use is subject to license terms. 25# 26# ident "%Z%%M% %I% %E% SMI" 27# 28 29dtrace_script() 30{ 31 32 $dtrace -w -s /dev/stdin <<EOF 33 34 /* 35 * ASSERTION: 36 * Positive test of chill() 37 * 38 * SECTION: Actions and Subroutines/chill() 39 * 40 * NOTES: This test does no verification - it's not possible. So, 41 * we just run this and make sure it runs. 42 */ 43 44 BEGIN 45 { 46 i = 0; 47 } 48 49 syscall:::entry 50 /i <= 5/ 51 { 52 chill(100000000); 53 i++; 54 } 55 56 syscall:::entry 57 /i > 5/ 58 { 59 exit(0); 60 } 61EOF 62} 63 64if [ $# != 1 ]; then 65 echo expected one argument: '<'dtrace-path'>' 66 exit 2 67fi 68 69dtrace=$1 70 71dtrace_script & 72child=$! 73 74wait $child 75status=$? 76 77exit $status 78