/var/lib/pcp/testsuite/758 is in pcp-testsuite 4.0.1-1.
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 | #!/bin/sh
# PCP QA Test No. 758
# Exercise a couple of perl PMDA module bugs/features.
#
# Copyright (c) 2014-2015 Red Hat.
#
seq=`basename $0`
echo "QA output created by $seq"
# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check
perl -e "use PCP::PMDA" >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "perl PCP::PMDA module not installed"
domain=242
loaded=2
_cleanup()
{
if pmprobe -I pmcd.agent.status | grep '"test_perl"' >/dev/null
then
$sudo rm $PCP_VAR_DIR/config/pmda/$domain.$loaded
cd $here/pmdas/test_perl
$sudo ./Remove >>$here/$seq.full 2>&1
$sudo rm -f domain.h.perl
cd $here
fi
}
status=1 # failure is the default!
$sudo rm -rf $tmp.* $seq.full
trap "cd $here; rm -rf $tmp.*; _cleanup; exit \$status" 0 1 2 3 15
# real QA test starts here
cd pmdas/test_perl
cat > $tmp.conf <<EOF
2 0 2147483647
5 1503630694 five
9 1503630694 nine
EOF
$sudo cp $tmp.conf $PCP_VAR_DIR/config/pmda/$domain.$loaded
$sudo ./Install </dev/null \
| _filter_pmda_install \
| sed -e '/^Waiting for pmcd/s/\.\.\.[. ]*$/DOTS/' \
| $PCP_AWK_PROG '
/Check test_perl metrics have appeared/ { if ($10 >= 0 && $10 <= 9) $10 = "N" }
{ print }'
cd $here
# start from a known place
pmstore test_perl.some_value 0 \
| sed -e 's/old value=./old value=N/g'
# need a few invocations to tickle the bug
for i in 1 2 3 4 5; do
echo "=== Round $i ===" | tee -a $here/$seq.full
pmprobe \
test_perl.other_indom.some_value \
test_perl.some_value \
test_perl.some_indom.some_value
done
# exercise indom cache re-loading from backing store
echo && echo "=== Bonus Round ===" | tee -a $here/$seq.full
pmstore test_perl.loaded_indom.some_value 0 >>$here/$seq.full
pminfo -f test_perl.loaded_indom.some_value | $here/src/sortinst
# success, all done
status=0
exit
|