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 
27 /*
28  * ASSERTION:
29  * 	Positive lquantize()/clear() test
30  *
31  * SECTION: Aggregations/Aggregations
32  *
33  * NOTES:
34  *	Verifies that printing a clear()'d aggregation with an lquantize()
35  *	aggregation function doesn't cause problems.
36  *
37  */
38 
39 
40 #pragma D option switchrate=50ms
41 #pragma D option aggrate=1ms
42 #pragma D option quiet
43 
44 tick-100ms
45 {
46 	x++;
47 	@a["linear"] = lquantize(x, 0, 100, 1);
48 	@b["exp"] = quantize(x);
49 }
50 
51 tick-100ms
52 /(x % 5) == 0 && y++ < 5/
53 {
54 	printa(@a);
55 	printa(@b);
56 	clear(@a);
57 	clear(@b);
58 }
59 
60 tick-100ms
61 /(x % 5) == 0 && y == 5/
62 {
63 	exit(0);
64 }
65