usr/src/cmd/dtrace/test/tst/common/funcs/tst.chill.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 2006 Sun Microsystems, Inc.  All rights reserved.
  24 # Use is subject to license terms.
  25 #
  26 # ident "%Z%%M% %I%     %E% SMI"
  27 #
  28
  29 dtrace_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         }
  61 EOF
  62 }
  63
  64 if [ $# != 1 ]; then
  65         echo expected one argument: '<'dtrace-path'>'
  66         exit 2
  67 fi
  68
  69 dtrace=$1
  70
  71 dtrace_script &
  72 child=$!
  73
  74 wait $child
  75 status=$?
  76
  77 exit $status