blob: d3d85d567d1a0effc491a7af61130dd4a4a668c2 (
plain)
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#!/bin/sh
# PCP QA Test No. 1019
# Exercise QmcGroup illustrating simple clients and protocols
#
seq=`basename $0`
echo "QA output created by $seq"
. ./common.qt
[ -x qt/qmc_group/qmc_group ] || _notrun "qmc_group not built or installed"
_cleanup()
{
if [ ! -f $tmp.done ]
then
cd $here/pmdas/dynamic
$sudo ./Remove >>$here/src/$seq.full
cd $here
touch $tmp.done
fi
}
status=1 # failure is the default!
rm -f $seq.full
trap "_cleanup; rm -f $tmp.*; exit \$status" 0 1 2 3 15
_filter1()
{
sed \
-e "s/$host [:A-Z][A-Z]*[-A-Za-z0-9,/:\.]*/HOST TIMEZONE/" \
-e "s/localhost [:A-Z][A-Z]*[-A-Za-z0-9,/:\.]*/LOCALHOST TIMEZONE/" \
-e "s/irix\.//g" \
-e "s/^\- [0-9][0-9]*\.[0-9][0-9]*$/- NUM/" \
-e "s/^\- [0-9][0-9]*$/- NUM/" \
-e "s/: Line [0-9][0-9]* /: Line <N> /" \
| $PCP_AWK_PROG '
BEGIN { mode = 0 }
/Client1/ { mode = 1; print; next }
/Client2/ { mode = 1; print; next }
$1 == "FETCH" && mode == 1 { mode = 2; print; next }
$1 == "CONTEXT" && $2 == "0" && mode == 2 { printf("CONTEXT 0 DELTA SEC USEC\n"); next }
{ mode = 0; print; next }'
}
_filter2()
{
sed -n \
-e '/^\*\*\*/p' \
-e '/pmGetPDU/p' \
-e '/pmXmitPDU/p' \
-e '/^PMC_/p' \
| sed \
-e "s/^\[[0-9]*\]//" \
-e "s/fd=[0-9]/fd=#/" \
-e "s/from=[0-9]*/from=###/" \
-e "s/$host/HOST/" \
-e "s/id = [0-9]*/id = ##########/" \
-e "s/ptr = 0x0/ptr = NULL/" \
-e "s/ptr = 0x[0-9a-f]*/ptr = 0x########/" \
> $tmp.filtered
echo
echo "*** PDUs ***"
sed -n < $tmp.filtered \
-e '/pmGetPDU/p' \
-e '/pmXmitPDU/p' \
| sed \
-e "s/ fd=.*//" \
| sort \
| uniq -c \
| sed -e 's/ */ /g'
echo "*** Transactions ***" >> $seq.full
echo >> $seq.full
cat $tmp.filtered >> $seq.full
}
# real QA test starts here
cd $here/pmdas/dynamic
$sudo make >$here/$seq.full 2>&1
$sudo ./Install </dev/null >>$here/$seq.full
cd $here
_check_metric dynamic.numinsts
pmstore dynamic.control.del "-1"
qt/qmc_group/qmc_group -DPDU,PMC 2>$tmp.stderr | _filter1
cat $tmp.stderr | _filter2
status=0
exit
|
