/var/lib/pcp/testsuite/241 is in pcp-testsuite 3.9.10.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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
|