cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/cpc/err.cputrackterminates.ksh

   1 #!/bin/ksh
   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 2009 Sun Microsystems, Inc.  All rights reserved.
  25 # Use is subject to license terms.
  26
  27 #
  28 # This script ensures that cputrack(1) will terminate when the cpc provider
  29 # kicks into life.
  30 #
  31 # The script will fail if:
  32 #       1) The system under test does not define the 'PAPI_tot_ins' event.
  33 #
  34
  35 script()
  36 {
  37         $dtrace -s /dev/stdin <<EOF
  38         #pragma D option bufsize=128k
  39
  40         cpc:::PAPI_tot_ins-all-10000
  41         {
  42                 @[probename] = count();
  43         }
  44
  45         tick-1s
  46         /n++ > 10/
  47         {
  48                 exit(0);
  49         }
  50 EOF
  51 }
  52
  53 if [ $# != 1 ]; then
  54         echo expected one argument: '<'dtrace-path'>'
  55         exit 2
  56 fi
  57
  58 dtrace=$1
  59
  60 cputrack -c PAPI_tot_ins sleep 20 &
  61 cputrack_pid=$!
  62 sleep 5
  63 script 2>/dev/null &
  64
  65 wait $cputrack_pid
  66 status=$?
  67
  68 rm $dtraceout
  69
  70 exit $status