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 28if [ $# != 1 ]; then 29 echo expected one argument: '<'dtrace-path'>' 30 exit 2 31fi 32 33file=out.$$ 34dtrace=$1 35 36rm -f $file 37 38$dtrace -o $file -c date -s /dev/stdin <<EOF 39 40 #pragma D option quiet 41 #pragma D option bufsize=1M 42 #pragma D option bufpolicy=fill 43 44 pid\$target:::entry, 45 pid\$target:::return, 46 pid\$target:a.out::, 47 syscall:::return, 48 profile:::profile-997 49 /pid == \$target/ 50 { 51 printf("START %s:%s:%s:%s\n", 52 probeprov, probemod, probefunc, probename); 53 trace(ustackdepth); 54 ustack(100); 55 trace("END\n"); 56 } 57 58 tick-1sec 59 /n++ == 10/ 60 { 61 trace("test timed out..."); 62 exit(1); 63 } 64EOF 65 66status=$? 67if [ "$status" -ne 0 ]; then 68 echo $tst: dtrace failed 69 exit $status 70fi 71 72perl /dev/stdin $file <<EOF 73 while (<>) { 74 chomp; 75 76 last if /^\$/; 77 78 die "expected START at \$.\n" unless /^START/; 79 80 \$_ = <>; 81 chomp; 82 die "expected depth (\$_) at \$.\n" unless /^(\d+)\$/; 83 \$depth = \$1; 84 85 for (\$i = 0; \$i < \$depth; \$i++) { 86 \$_ = <>; 87 chomp; 88 die "unexpected END at \$.\n" if /^END/; 89 } 90 91 \$_ = <>; 92 chomp; 93 die "expected END at \$.\n" unless /^END\$/; 94 } 95EOF 96 97status=$? 98 99count=`wc -l $file | cut -f1 -do` 100if [ "$count" -lt 1000 ]; then 101 echo $tst: output was too short 102 status=1 103fi 104 105 106if [ "$status" -eq 0 ]; then 107 rm -f $file 108fi 109 110exit $status 111