cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/proc/tst.exec.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 #
  29 # This script tests that the proc:::exec probe fires, followed by the
  30 # proc:::exec-success probe (in a successful exec(2)).
  31 #
  32 # If this fails, the script will run indefinitely; it relies on the harness
  33 # to time it out.
  34 #
  35 script()
  36 {
  37         $dtrace -s /dev/stdin <<EOF
  38         proc:::exec
  39         /curpsinfo->pr_ppid == $child && args[0] == "/bin/sleep"/
  40         {
  41                 self->exec = 1;
  42         }
  43
  44         proc:::exec-success
  45         /self->exec/
  46         {
  47                 exit(0);
  48         }
  49 EOF
  50 }
  51
  52 sleeper()
  53 {
  54         while true; do
  55                 /bin/sleep 1
  56         done
  57 }
  58
  59 if [ $# != 1 ]; then
  60         echo expected one argument: '<'dtrace-path'>'
  61         exit 2
  62 fi
  63
  64 dtrace=$1
  65
  66 sleeper &
  67 child=$!
  68
  69 script
  70 status=$?
  71
  72 kill $child
  73 exit $status