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
67
68
69
|
#!/bin/sh
# PCP QA Test No. 690
# derived metrics & instance filtering - bind checks
#
# Copyright (c) 2018 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
_cleanup()
{
cd $here
$sudo rm -rf $tmp $tmp.*
}
_filter()
{
$PCP_AWK_PROG <$tmp.out >$tmp.sed '
BEGIN { n = 0 }
$1 == "expr" && $2 == "node" && $3 ~ /^0x/ { print "s/" $3 "/<addr-" n ">/"; n++ }
{ next }'
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 '/InDom:/s/\(InDom: [^ ]* 0x\)[0-9a-f][0-9a-f]*/\1..../' \
-e "s;$tmp;TMP;" \
# end
}
status=1 # failure is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15
# real QA test starts here
echo "=== simple cases ==="
cat <<'End-of-File' >$tmp.config
qa.a = matchinst(/100/, sample.bin)
qa.b = matchinst(/[1-36-9]00/, sample.bin)
qa.c = matchinst(!/bin-[1-5]00/, sample.bin)
qa.d = sample.bin[bin-300] + sample.part_bin[bin-300]
End-of-File
PCP_DERIVED_CONFIG=$tmp.config; export PCP_DERIVED_CONFIG
pminfo -df -Dderive,appl1,appl2 qa >$tmp.out 2>&1
cat $tmp.out >>$seq_full
_filter
echo
echo "=== some error cases ==="
cat <<'End-of-File' >$tmp.config
# no matching instance(s)
qa.a = matchinst(/123/, sampledso.bin)
qa.d = sample.bin[bin-345] + sample.part_bin[bin-345]
End-of-File
PCP_DERIVED_CONFIG=$tmp.config; export PCP_DERIVED_CONFIG
pminfo -df -Dderive,appl1,appl2 qa >$tmp.out 2>&1
cat $tmp.out >>$seq_full
_filter
# success, all done
status=0
exit
|
