File: 1339

package info (click to toggle)
pcp 7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 252,748 kB
  • sloc: ansic: 1,483,656; sh: 182,366; xml: 160,462; cpp: 83,813; python: 24,980; perl: 18,327; yacc: 6,877; lex: 2,864; makefile: 2,738; awk: 165; fortran: 60; java: 52
file content (185 lines) | stat: -rwxr-xr-x 3,930 bytes parent folder | download
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
#!/bin/sh
# PCP QA Test No. 1339
# check out sample PMDA
# - Internet socket part, see qa/156 for the other PMDA connection
#   cases
#
# Copyright (c) 1995-2002 Silicon Graphics, Inc.  All Rights Reserved.
#

seq=`basename $0`
echo "QA output created by $seq"

# get standard filters
. ./common.product
. ./common.filter
. ./common.check

_filter()
{
    _filter_pmda_install \
    | _filter_compiler_babble \
    | sed \
	-e 's/ 1[34][0-9][0-9] values/ 1300+ values/' \
	-e 's/ 1[0-9] warnings/ 10+ warnings/' \
	-e 's/ [12][0-9][0-9] metrics/ 100+ metrics/' \
	-e "s;$tmp;TMP;" \
	-e "s/$port1/PORT1/" \
	-e "s/$port2/PORT2/" \
    # end
}

_check_pmda_gone()
{
    sleep 2
    pminfo -v $1 && echo "Error: pminfo -v found some \"$1\" metrics"
    # PMDA process may be a zombie because pmcd has not yet harvested
    # it ... in this case, name will appear as [pmda$1] or (pmda$1)
    # so skip these ones
    #
    $PCP_PS_PROG $PCP_PS_ALL_FLAGS | grep "[^([][p]mda$1[^])]" >$tmp.tmp
    if [ -s $tmp.tmp ]
    then
	echo "Error: some \"$1\" PMDAs still present"
	cat $tmp.tmp
    fi
    rm -f $tmp.tmp
}

_snag_logs()
{
    for x in sample pmcd
    do
	if [ -f "$PCP_LOG_DIR/pmcd/$x.log" ]
	then
	    cat "$PCP_LOG_DIR/pmcd/$x.log" >>$seq_full
	else
	    echo "$PCP_LOG_DIR/pmcd/$x.log: missing?"
	fi
    done
}

status=1


echo "PCPQA_IN_CI=$PCPQA_IN_CI" >>$seq_full
if [ "$PCPQA_IN_CI" = yes ]
then
    # in CI
    # failing on test-ubuntu1804i386-container and nowhere else ...
    # despite extensive triage, tcp port "already in use" problem
    # persists
    #
    eval `src/sizeof ptr`
    echo "ptr=$ptr" >>$seq_full
    if [ "$ptr" = 4 ]
    then
	admin/whatami >>$seq_full
	# 32-bit platform
	case `admin/whatami`
	in
	    *Ubuntu\ 18.04\ *)
		# bingo ... no cigar
		_notrun "cannot make this test work for test-ubuntu1804i386-container"
		;;
	esac
    fi
fi

# save pmcd.conf and restore it after the test
cp $PCP_PMCDCONF_PATH $tmp.pmcd.conf

home=$PCP_PMDAS_DIR
iam=sample
if [ ! -d $home/$iam ]
then
    echo "Where is $home/$iam?"
    exit 1
fi
cd $home/$iam
unset ROOT MAKEFLAGS

# force dynamic.indom to be what we expect ...
#
echo "1 one" >$tmp.indom
echo "2 two" >>$tmp.indom
$sudo cp $tmp.indom dynamic.indom

# make sure sample agent is running again at the end, so other QA tests
# continue to work
#
trap "echo; echo 'Reinstall PMDA ...'; $sudo ./Install </dev/null >$tmp.out; _filter <$tmp.out; $sudo cp $tmp.pmcd.conf $PCP_PMCDCONF_PATH; $sudo rm -f $tmp.*; exit \$status" 0 1 2 3 15

# pick two tcp ports that are not in use
#
port1=`_find_free_port 5670`
if [ -z "$port1" ]
then
    echo "Arrgh ... port1: no free TCP port in the range 5670 ... "
    exit
fi
echo "port1=$port1" >>$seq_full
if which netstat >/dev/null 2>&1
then
    netstat -a | grep $port1 >>$seq_full
fi
try=`expr $port1 + 1`
port2=`_find_free_port $try`
if [ -z "$port2" ]
then
    echo "Arrgh ... port2: no free TCP port in the range $try ... "
    exit
fi
echo "port2=$port2" >>$seq_full
if which netstat >/dev/null 2>&1
then
    netstat -a | grep $port2 >>$seq_full
fi

# real QA test starts here

echo
echo "=== remove agent ==="
$sudo ./Remove >$tmp.out 2>&1
cat $tmp.out
_check_pmda_gone $iam

echo | tee -a $seq_full
echo "=== socket Internet agent ===" | tee -a $seq_full

# Give the PMDA + internet socket a chance to be setup before pminfo check
#
PCPQA_CHECK_DELAY=3; export PCPQA_CHECK_DELAY

echo 'socket
Internet
'$port1 | $sudo ./Install -e >$tmp.out 2>&1
_filter <$tmp.out
if pminfo -v sample
then
    :
else
    echo "... failed!" | tee -a $seq_full
    pminfo -fd sample.long.ten >>$seq_full
fi
_snag_logs

echo 'socket
Internet
'$port2 | $sudo ./Install -e >$tmp.out 2>&1
_filter <$tmp.out
if pminfo -v sample
then
    :
else
    echo "... failed!" | tee -a $seq_full
    pminfo -fd sample.long.ten >>$seq_full
fi
_snag_logs

$sudo ./Remove >$tmp.out 2>&1
cat $tmp.out
_check_pmda_gone $iam

status=0
exit