]> CyberLeo.Net >> Repos - FreeBSD/releng/9.2.git/blob - cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/profile-n/tst.ufunc.ksh
- Copy stable/9 to releng/9.2 as part of the 9.2-RELEASE cycle.
[FreeBSD/releng/9.2.git] / cddl / contrib / opensolaris / cmd / dtrace / test / tst / common / profile-n / tst.ufunc.ksh
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 2007 Sun Microsystems, Inc.  All rights reserved.
24 # Use is subject to license terms.
25 #
26 # ident "%Z%%M% %I%     %E% SMI"
27
28 script()
29 {
30         $dtrace -qs /dev/stdin <<EOF
31         profile-1234hz
32         /arg1 != 0/
33         {
34                 @[ufunc(arg1)] = count();
35         }
36
37         tick-100ms
38         /i++ == 20/
39         {
40                 exit(0);
41         }
42 EOF
43 }
44
45 spinny()
46 {
47         while true; do
48                 let i=i+1
49         done
50 }
51
52 if [ $# != 1 ]; then
53         echo expected one argument: '<'dtrace-path'>'
54         exit 2
55 fi
56
57 dtrace=$1
58
59 spinny &
60 child=$!
61
62 #
63 # The only thing we can be sure of here is that we caught some function in
64 # ksh doing work.  (This actually goes one step further and assumes that we
65 # catch some non-static function in ksh.)
66 #
67 script | tee /dev/fd/2 | grep 'ksh`[a-zA-Z_]' > /dev/null
68 status=$? 
69
70 kill $child
71 exit $status