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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#!/bin/sh
# PCP QA Test No. 611
# pmlogger emitting duplicate timestamps for indom metadata?
#
# 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
nval=`pmprobe proc.psinfo.pid | $PCP_AWK_PROG '{print $2}' 2>/dev/null`
[ -z "$nval" -o "$nval" -le 0 ] && _notrun "No proc.psinfo metrics"
_cleanup()
{
cd $here
$sudo rm -rf $tmp $tmp.*
}
_filter()
{
# InDom: 60.5
# then looking for duplicated timestamps in following lines like:
# 00:10:12.282 10 instances
#
last=1
cat >$tmp.dump
rm -f $tmp.prior
$PCP_AWK_PROG <$tmp.dump '
$1 == "InDom:" { indom = $2
stamp = ""
next
}
$3 == "instances" { if ($1 == stamp) {
print "InDom: " indom " dup stamp " $1 " [" numinst " & " $2 " numinst]"
print "match",NR
}
else
print "start",NR
stamp = $1
numinst = $2
}' \
| while read key arg
do
case $key
in
'InDom:')
echo "$key $arg"
;;
start|match)
end=`expr $arg - 1`
sed -n -e "$last,$end"p <$tmp.dump | sort >$tmp.this
last=`expr $arg + 1`
if [ "$key" = match ]
then
if diff $tmp.prior $tmp.this
then
echo "SURPRISE, indoms are the same"
fi
fi
mv $tmp.this $tmp.prior
;;
esac
done
}
status=1 # failure is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15
cat <<End-of-File >$tmp.config
log mandatory on 250msec { proc.psinfo }
End-of-File
# real QA test starts here
( pmlogger -s 40 -c $tmp.config -l $tmp.log $tmp; touch $tmp.done ) &
pid=$!
i=1
last_nrec=0
while [ ! -f $tmp.done ]
do
echo >>$seq_full
echo "=== spawn iter $i `date` ===" >>$seq_full
src/spawn 10000 >>$seq_full 2>&1
nrec=`pmdumplog $tmp | grep '^[0-9]' | wc -l | sed -e 's/ //g'`
ls -l $tmp.0 >>$seq_full
echo "$nrec archive records" >>$seq_full
if [ $nrec -eq $last_nrec ]
then
# dead hand timer ... no progress
#
echo "Arrgh: pmlogger not making progress ... $nrec archive records unchanged after spawn iteration #$i"
echo "See $seq.full for details."
kill -TERM $pid
wait
pmdumplog -a $tmp >>$seq_full
exit
fi
last_nrec=$nrec
i=`expr $i + 1`
done
cat $tmp.log >>$seq_full
echo
echo "Expect no dups reported ..."
pmdumplog -i $tmp \
| tee -a $seq_full \
| _filter
status=0
exit
|
