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
|
#!/bin/sh
# PCP QA Test No. 241
# mmv pmda exerciser ... Martin's test case that was failing
# mmv install/cleanup borrowed from 647
#
# Copyright (c) 2009 Silicon Graphics, Inc. All Rights Reserved.
# Copyright (c) 2009 Ken McDonell. All Rights Reserved.
#
seq=`basename $0`
echo "QA output created by $seq"
# get standard filters
. ./common.product
. ./common.filter
. ./common.check
perl -e "use PCP::MMV" >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "perl PCP::MMV module not installed"
rm -f $seq.out
if [ $PCP_VER -lt 3600 ]
then
ln $seq.out.1 $seq.out || exit 1
else
ln $seq.out.2 $seq.out || exit 1
fi
status=0 # success is the default!
done_clean=false
MMV_STATS_DIR="$PCP_TMP_DIR/mmv"
SAVE_MMV_STATS_DIR="$PCP_TMP_DIR/mmv.$seq"
$sudo rm -rf $tmp.*
# for QA the default install for mmv PMDA is as a dso, not a daemon
#
cat <<End-of-File >$tmp.input
b
dso
End-of-File
_cleanup()
{
if $done_clean
then
:
else
[ -f $tmp.pmcd.conf ] && $sudo mv $tmp.pmcd.conf $PCP_PMCDCONF_PATH
[ -d $SAVE_MMV_STATS_DIR ] && $sudo rm -fr "$MMV_STATS_DIR"
[ -d $SAVE_MMV_STATS_DIR ] && $sudo mv $SAVE_MMV_STATS_DIR $MMV_STATS_DIR
$sudo $PCP_RC_DIR/pcp restart | _filter_pcp_start
_wait_for_pmcd
_wait_for_pmlogger
if $install_on_cleanup
then
( cd $PCP_PMDAS_DIR/mmv; $sudo ./Install <$tmp.input >/dev/null 2>&1 )
else
( cd $PCP_PMDAS_DIR/mmv; $sudo ./Remove </dev/null >/dev/null 2>&1 )
fi
rm -f $tmp.*
done_clean=true
fi
exit $status
}
install_on_cleanup=false
pminfo mmv >/dev/null 2>&1 && install_on_cleanup=true
trap "_cleanup" 0 1 2 3 15
home="$PCP_PMDAS_DIR"
iam=mmv
if [ ! -d "$home/$iam" ]
then
echo "Where is $home/$iam?"
exit 1
fi
cd "$home/$iam"
unset ROOT MAKEFLAGS
# copy the pmcd config file to restore state later.
cp $PCP_PMCDCONF_PATH "$tmp.pmcd.conf"
# move the MMV directory to restore contents later.
[ -d $MMV_STATS_DIR ] && $sudo mv -f $MMV_STATS_DIR $SAVE_MMV_STATS_DIR
# start from a known starting point
$sudo ./Remove >/dev/null 2>&1
$sudo mkdir "$MMV_STATS_DIR" 2>/dev/null
$sudo chmod 1777 "$MMV_STATS_DIR" 2>/dev/null
cat <<'End-of-File' >$tmp.perl
use strict;
use warnings;
use PCP::MMV;
my @indoms = ();
my @metrics = (
['export_value',
1, MMV_TYPE_U64, MMV_INDOM_NULL,
mmv_units(0,0,0,0,0,0), MMV_SEM_INSTANT,
'A counter of some value', ''
]
);
my $handle = mmv_stats_init('mymmv', 0, MMV_FLAG_PROCESS, \@metrics, \@indoms);
die ("mmv_stats_init failed\n") unless (defined($handle));
while (my $line = <STDIN>) {
print $line;
next if not $line =~ /^new value:/;
my $val;
($val = $line) =~ s/^new value: (\d+)/$1/;
chomp $val;
mmv_stats_set($handle, 'export_value', '', $val);
}
End-of-File
# real QA test starts here
echo
echo "=== $iam agent installation ==="
$sudo ./Install -e <$tmp.input >$tmp.out 2>&1
_filter_pmda_install <$tmp.out
value=5
for i in 1 2 3 4
do
echo "new value: $value"
value=`expr $value + 1`
sleep 1
[ "$i" = 1 ] && pmval -t 0.5sec -s 20 mmv.mymmv.export_value >$tmp.out 2>&1 &
sleep 1
done \
| perl $tmp.perl
wait
echo "Filtered pmval output ..."
grep '^[a-z]' $tmp.out | sed -e '/^host:.*$/s/.*/HOST/'
grep '^[^a-z]' $tmp.out | LC_COLLATE=POSIX sort -u
# success, all done
exit
|
