1178476Sjb#!/bin/ksh -p 2178476Sjb# 3178476Sjb# CDDL HEADER START 4178476Sjb# 5178476Sjb# The contents of this file are subject to the terms of the 6178476Sjb# Common Development and Distribution License (the "License"). 7178476Sjb# You may not use this file except in compliance with the License. 8178476Sjb# 9178476Sjb# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10178476Sjb# or http://www.opensolaris.org/os/licensing. 11178476Sjb# See the License for the specific language governing permissions 12178476Sjb# and limitations under the License. 13178476Sjb# 14178476Sjb# When distributing Covered Code, include this CDDL HEADER in each 15178476Sjb# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16178476Sjb# If applicable, add the following below this CDDL HEADER, with the 17178476Sjb# fields enclosed by brackets "[]" replaced with your own identifying 18178476Sjb# information: Portions Copyright [yyyy] [name of copyright owner] 19178476Sjb# 20178476Sjb# CDDL HEADER END 21178476Sjb# 22178476Sjb 23178476Sjb# 24178476Sjb# Copyright 2007 Sun Microsystems, Inc. All rights reserved. 25178476Sjb# Use is subject to license terms. 26178476Sjb# 27178476Sjb 28178476Sjb#ident "%Z%%M% %I% %E% SMI" 29178476Sjb 30178476Sjb############################################################################ 31178476Sjb# ASSERTION: 32178476Sjb# ufunc() values sort as expected 33178476Sjb# 34178476Sjb# SECTION: Aggregations, Printing Aggregations 35178476Sjb# 36178476Sjb# NOTES: Assumes that the order of user function addresses will follow 37178476Sjb# the function declaration order. 38178476Sjb# 39178476Sjb############################################################################ 40178476Sjb 41178476Sjbif [ $# != 1 ]; then 42178476Sjb echo expected one argument: '<'dtrace-path'>' 43178476Sjb exit 2 44178476Sjbfi 45178476Sjb 46178476Sjbdtrace=$1 47178476Sjb 48178476Sjb$dtrace -c ./tst.ufuncsort.exe -s /dev/stdin <<EOF 49178476Sjb 50178476Sjb 51178476Sjb #pragma D option quiet 52178476Sjb #pragma D option aggsortkey 53178476Sjb 54178476Sjb pid\$target::fN:entry 55178476Sjb { 56178476Sjb @[ufunc(arg0)] = count(); 57178476Sjb } 58178476SjbEOF 59178476Sjb 60178476Sjbstatus=$? 61178476Sjbif [ "$status" -ne 0 ]; then 62178476Sjb echo $tst: dtrace failed 63178476Sjb exit $status 64178476Sjbfi 65178476Sjb 66178476Sjbexit $status 67