/var/lib/pcp/testsuite/486 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 148 149 150 151 152 153 154 155 | #!/bin/sh
# PCP QA Test No. 486
# pmlogrewrite - simple rewriting cases
#
# Copyright (c) 2011 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
which pmlogrewrite >/dev/null 2>&1 || _notrun "pmlogrewrite not installed"
status=0 # success is the default!
$sudo rm -rf $tmp.* $seq.full
trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
_filter()
{
sed \
-e "s;$tmp;TMP;g" \
-e "s/^\([+-][+-][+-] TMP\...t*\).*/\1/"
}
# 1.80.15 (disk.dev.bytes):
# inst [339 or "dks9d1"] value 179031
_f1_old()
{
$PCP_AWK_PROG '
$2 == "(disk.dev.bytes):" { xlate=1; print; next }
xlate == 1 && NF == 6 { $6 = int(($6 + 512)/1024) }
{ print }
xlate == 1 && NF != 6 { xlate = 0 }'
}
_f1_new()
{
$PCP_AWK_PROG '
$2 == "(disk.dev.bytes):" { xlate=1; print; next }
xlate == 1 && NF == 6 { $6 = $6 }
{ print }
xlate == 1 && NF != 6 { xlate = 0 }'
}
_cmp()
{
if [ ! -f "$1.0" ]
then
echo "Arrgh ... $1.0 missing" | _filter
return
fi
if [ ! -f "$2.0" ]
then
echo "Arrgh ... $2.0 missing" | _filter
return
fi
pmdumplog -z -a $1 | tee -a $seq.full >$tmp.in
pmdumplog -z -a $2 | tee -a $seq.full >$tmp.out
echo "pmdumplog diffs ..."
diff -u $tmp.in $tmp.out | _filter
[ -z "$filter_new" -a -z "$filter_old" ] && return
if [ ! -z "$filter_old" ]
then
$filter_old <$tmp.in >$tmp.tmp
echo >>$seq.full
echo "--- after $filter_old ---" >>$seq.full
cat $tmp.tmp >>$seq.full
mv $tmp.tmp $tmp.in
fi
if [ ! -z "$filter_new" ]
then
$filter_new <$tmp.out >$tmp.tmp
echo >>$seq.full
echo "--- after $filter_new ---" >>$seq.full
cat $tmp.tmp >>$seq.full
mv $tmp.tmp $tmp.out
fi
echo
echo "FILTERED pmdumplog diffs ..."
diff -u $tmp.in $tmp.out | _filter
}
# real QA test starts here
sed -e '/^#/d' <<End-of-File | while read arch_args spec
# archive[|arg1[|arg2[|...]]] spec
# rewrite pmDesc and pmid in pmResults
src/mirage metric sample.bin { pmid->42.42.42 }
# name is 3 bytes shorter
src/mirage metric sample.bin { name -> sam.bin }
# name is 10 bytes longer
src/mirage metric sample.bin { name -> x23456789.sample.bin }
# inst renumbering
src/mirage indom 29.2 { inst 300 -> 42 }
src/mirage indom 29.2 { inst 300 -> 400 }
src/mirage indom 29.2 { iname "bin-700" -> "bin-900" }
src/mirage indom 29.2 { iname "bin-700" -> "bin-900 and some" }
src/mirage indom 29.2 { iname "bin-300" -> "bin-100" inst 300 -> 100 }
src/rattle indom 1.5 { iname "1 minute" -> "5" }
src/rattle indom 1.5 { iname "5 minute" -> "15 doo dah" }
src/rattle indom 1.5 { iname "5" -> "5 hours" }
# all metric semantics
src/mirage metric 29.*.* { sem->DISCRETE } metric pmcd.pmlogger.port { sem->COUNTER }
# scale conversion
src/snort-disks metric disk.dev.bytes { units->1,0,0,MBYTE,0,0 }
src/snort-disks|-s metric disk.dev.bytes { units->1,0,0,MBYTE,0,0 }
src/snort-disks metric disk.dev.bytes { units->1,-1,0,Kbyte,Sec,0 }
src/snort-disks|-ws metric disk.dev.bytes { units->1,-1,0,kbyte,sec,0 }
src/sample_expr metric sample.scale_step.time_up_secs { units->0,1,0,0,MSEC,0 }
# type conversion
# 32 ->
src/mirage metric sample.drift { type -> U32 }
src/mirage metric sample.drift { type -> 64 }
# double ->
src/sample_expr metric sample.scale_step.time_up_secs { type -> FLOAT }
src/sample_expr metric sample.scale_step.time_up_secs { type -> U32 }
# indom changes
src/rattle metric pmcd.pmlogger.archive { indom -> 2.99 } indom 2.1 { indom -> 2.99 }
src/rattle metric hinv.ndisk { indom -> 1.5 }
src/rattle metric hinv.ndisk { indom -> 1.5 output inst 5 }
src/ok-foo metric sample.colour { indom -> NULL }
src/ok-foo metric sample.colour { indom -> NULL output first }
src/ok-foo metric sample.colour { indom -> NULL output inst 1 }
src/ok-foo metric sample.colour { indom -> NULL output last }
src/ok-foo metric sample.colour { indom -> NULL output min }
src/ok-foo metric sample.colour { indom -> NULL output max }
src/ok-foo metric sample.colour { indom -> NULL output sum }
src/ok-foo metric sample.colour { indom -> NULL output avg }
src/sample_expr metric sample.mirage_longlong {indom->NULL}
src/sample_expr metric sample.mirage_longlong {indom->NULL output last}
End-of-File
do
echo | tee -a $seq.full
echo "$spec" >$tmp.config
echo "=== `cat $tmp.config` ===" | tee -a $seq.full
rm -f $tmp.new.*
arch=`echo "$arch_args" | sed -e 's/|.*//'`
args=`echo "$arch_args" | sed -n -e '/|/s/.*|//p'`
pmlogrewrite -w -c $tmp.config $args $arch $tmp.new 2>&1 | _filter
filter_old=''
filter_new=''
case "$arch_args"
in
'src/snort-disks|-s')
filter_old=_f1_old
filter_new=_f1_new
;;
esac
_cmp $arch $tmp.new
done
# success, all done
exit
|