1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#!/bin/sh
# PCP QA Test No. 334
#
# check instance matching for derived metrics
#
# Copyright (c) 2009 Ken McDonell. All Rights Reserved.
#
seq=`basename $0`
echo "QA output created by $seq"
# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check
if grep -q 'pmRegisterDerived' $PCP_INC_DIR/pmapi.h
then
:
else
_notrun "No derived metric support"
# NOTREACHED
fi
status=0 # success is the default!
trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
PCP_DERIVED_CONFIG=$tmp.config; export PCP_DERIVED_CONFIG
# Derived metric expr dump from 0x8513a48...
# expr node 0x867eb68 type=PLUS left=0x867eb98 right=0x867ed28
_filter()
{
cat $tmp.out >>$seq_full
awk <$tmp.out >$tmp.sed '
BEGIN { n = 0 }
$1 == "expr" && $2 == "node" && $3 ~ /^0x/ { print "s/" $3 "/<addr-" n ">/"; n++ }
{ next }'
echo "=== sed ===" >>$seq_full
cat $tmp.sed >>$seq_full
sed -f $tmp.sed <$tmp.out \
| sed \
-e '/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/s/[^ ]*.*numpmid/TIMESTAMP ... numpmid/' \
-e 's/=0x0 /=(nil) /g' \
-e "s;$tmp;TMP;"
# -e 's/ val=[0-9][0-9]*/ val=<number>/g'
}
# real QA test starts here
cat <<End-of-File >$tmp.config
my.x1 = sample.bin + sample.part_bin
my.x2 = sample.part_bin + sample.bin
my.x3 = 2 * sample.part_bin
my.x4 = sample.part_bin * 2
my.x5 = (sample.bin + sample.part_bin) - (sample.part_bin + sample.bin)
End-of-File
echo
cat $tmp.config
echo
pminfo -Dderive,appl2 -df my >$tmp.out 2>&1
_filter
# success, all done
exit
|
