xref: /illumos-gate/usr/src/cmd/dtrace/test/tst/common/dtraceUtil/tst.DestructWithFunction.d.ksh (revision 68ac2337c38c8af06edcf32a72e42de36ec72a9d)
1#!/bin/ksh -p
2#
3# CDDL HEADER START
4#
5# The contents of this file are subject to the terms of the
6# Common Development and Distribution License (the "License").
7# You may not use this file except in compliance with the License.
8#
9# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10# or http://www.opensolaris.org/os/licensing.
11# See the License for the specific language governing permissions
12# and limitations under the License.
13#
14# When distributing Covered Code, include this CDDL HEADER in each
15# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16# If applicable, add the following below this CDDL HEADER, with the
17# fields enclosed by brackets "[]" replaced with your own identifying
18# information: Portions Copyright [yyyy] [name of copyright owner]
19#
20# CDDL HEADER END
21#
22
23#
24# Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
25# Use is subject to license terms.
26#
27
28#ident	"%Z%%M%	%I%	%E% SMI"
29
30##
31#
32# ASSERTION:
33# The -w option can be used to permit destructive actions in D programs.
34#
35# SECTION: dtrace Utility/-w Option;
36# 	dtrace Utility/-f Option
37#
38##
39
40
41
42if [ $# != 1 ]; then
43	echo expected one argument: '<'dtrace-path'>'
44	exit 2
45fi
46
47dtrace=$1
48
49$dtrace -qwf read'{chill(15); printf("Done chilling"); exit(0);}'
50status=$?
51
52if [ "$status" -ne 0 ]; then
53	echo $tst: dtrace failed
54fi
55
56exit $status
57