cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/oformat/tst.agg.quantize.ksh

   1 #!/usr/bin/ksh
   2 #
   3 # This file and its contents are supplied under the terms of the
   4 # Common Development and Distribution License ("CDDL"), version 1.0.
   5 # You may only use this file in accordance with the terms of version
   6 # 1.0 of the CDDL.
   7 #
   8 # A full copy of the text of the CDDL should have accompanied this
   9 # source.  A copy of the CDDL is also available via the Internet at
  10 # http://www.illumos.org/license/CDDL.
  11 #
  12
  13 #
  14 # Copyright (c) 2023 Domagoj Stolfa
  15 #
  16
  17 bname=`basename $0`
  18 dtraceout=/tmp/dtrace.$bname
  19
  20 script()
  21 {
  22         $dtrace -o $dtraceout.$1 -x oformat=$1 -s /dev/stdin <<__EOF__
  23 syscall:::entry
  24 {
  25         self->ts = timestamp;
  26 }
  27
  28 syscall:::return
  29 /self->ts/
  30 {
  31         @[probefunc] = quantize(timestamp - self->ts);
  32         self->ts = 0;
  33 }
  34
  35 tick-5s
  36 {
  37         exit(0);
  38 }
  39
  40 END
  41 {
  42         printa(@);
  43 }
  44 __EOF__
  45 }
  46
  47 if [ $# != 1 ]; then
  48         echo expected one argument: '<'dtrace-path'>'
  49         exit 2
  50 fi
  51
  52 dtrace=$1
  53
  54 script json
  55 jq . $dtraceout.json
  56
  57 if [ $? != 0 ]; then
  58         echo $bname: failed to produce valid JSON. see $dtraceout.json
  59         exit 1
  60 fi
  61
  62 script xml
  63 xmllint $dtraceout.xml
  64
  65 if [ $? != 0 ]; then
  66         echo $bname: failed to produce valid XML. see $dtraceout.xml
  67         exit 1
  68 fi
  69
  70 rm $dtraceout.json
  71 rm $dtraceout.xml
  72
  73 exit 0