/var/lib/pcp/testsuite/371 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 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 186 187 188 189 190 | #!/bin/sh
# PCP QA Test No. 371
#
# Parsing and error checking for the mapfile used by sheet2pcp
#
# Copyright (c) 2010 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 sheet2pcp >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "sheet2pcp not installed"
perl -e "use XML::TokeParser" >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "perl XML::TokeParser module not installed"
perl -e "use Spreadsheet::Read" >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "perl Spreadsheet::Read module not installed"
_filter()
{
sed \
-e "s;$tmp;TMP;"
}
status=0 # success is the default!
$sudo rm -rf $tmp.* $seq.full
trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
cat <<'End-of-File' >$tmp.simple.csv
"DATE";"Metric A";"Metric B";"Metric C"
End-of-File
# real QA test starts here
echo "Usage and file existence checks ..."
sheet2pcp
sheet2pcp $tmp.simple.csv
sheet2pcp $tmp.simple.csv $tmp.mapfile
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp extra
sheet2pcp $tmp.simple.csv /no/such/file $tmp
echo
echo "Mapfile syntax errors ..."
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet heading="1" blah="123"> <!-- unexpected attr -->
<foo><!-- bogus tag -->bar</foo>
<metric pmid="60.0.2" indom="60.0" units="0,1,0,0,PM_TIME_MSEC,0"
type="PM_TYPE_U64" sem="PM_SEM_COUNTER">
kernel.percpu.cpu.sys</metric>
<metric pmid="60.0.22" units="0,1,0,0,PM_TIME_MSEC,0" fungus="bogus"
type="PM_TYPE_U64" sem="PM_SEM_COUNTER">
kernel.all.cpu.sys</metric>
<metric pmid="60.0">bad.pmid.one</metric>
<metric pmid="6x.0.2">bad.pmid.two</metric>
<metric indom="60.0.0">bad.indom.one</metric>
<metric indom="60">bad.indom.two</metric>
<metric indom="bozo">bad.indom.three</metric>
<metric units="0,0,0,0,0">bad.units.one</metric>
<metric units="0,0,0,0,0,0,0">bad.units.two</metric>
<metric units="BOZO,0,0,PM_SPACE_BOZO,0,0,">bad.units.three</metric>
<metric units="1,0,0,PM_SPACE_BOZO,0,0,">bad.units.four</metric>
<metric type="PM_TYPE_FOO">bad.type.one</metric>
<metric type="">bad.type.two</metric>
<metric sem="PM_SEM_FOO">bad.sem.one</metric>
<metric sem="PM_SEM_COUNTER"></metric> <!-- no metric name -->
<datetime monkey="true"></datetime>
<data hi="ho">badmetricname</data>
<data></data>
<data>no.foo.metric</data>
<data>kernel.percpu.cpu.sys[cpu0]</data>
<data>kernel.percpu.cpu.sys[cpu1]</data>
<data>kernel.percpu.cpu.sys[cpu3</data> <!-- missing ] -->
<data>kernel.percpu.cpu.sys[cpu4][fluff</data> <!-- extra stuff -->
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet>
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE">
hinv.ncpu</metric>
<data>hinv.ncpu</data>
<!--no datetime element-->
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet>
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE"> hinv.ncpu </metric>
<datetime></datetime>
<!--no data element-->
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet datefmt="DD-MM-YYYY">
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE"> hinv.ncpu </metric>
<datetime></datetime>
<data>
hinv.ncpu
</data>
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
echo "Mapfile semantic errors ..."
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet>
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE"> hinv.ncpu </metric>
<metric>hinv.ncpu</metric> <!-- dup name -->
<metric indom="PMI_DOMAIN.1">foo</metric>
<data> hinv.ncpu </data>
<data>foo[one instance]</data>
<data>foo[one other instance]</data> <!-- fails unique to space rule -->
<datetime></datetime>
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<sheet>
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE">
hinv.ncpu
</metric>
<metric pmid="60.0.32">kernel.percpu.cpu.someother</metric> <!-- dup pmid -->
<datetime></datetime>
<data> hinv.ncpu </data>
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
echo
echo "Should be OK ..."
cat <<'End-of-File' >$tmp.mapfile
<?xml version="1.0" encoding="UTF-8"?>
<!--For PCP QA 371-->
<sheet heading="1">
<metric pmid="60.0.2" indom="60.0" units="0,1,0,0,PM_TIME_MSEC,0"
type="PM_TYPE_U64" sem="PM_SEM_COUNTER">
kernel.percpu.cpu.sys</metric>
<metric pmid="60.0.32" type="PM_TYPE_U32" sem="PM_SEM_DISCRETE">
hinv.ncpu</metric>
<metric pmid="PM_ID_NULL">good.pmid.one</metric>
<metric pmid="PMI_DOMAIN.0.63">good.pmid.two</metric>
<metric indom="PM_INDOM_NULL">good.indom.one</metric>
<metric indom="PMI_DOMAIN.27">good.indom.two</metric>
<datetime></datetime>
<data>hinv.ncpu</data>
<data>kernel.percpu.cpu.sys[cpu0]</data>
<data>kernel.percpu.cpu.sys[cpu1]</data>
<!--pmiDump-->
</sheet>
End-of-File
sheet2pcp $tmp.simple.csv $tmp.mapfile $tmp 2>&1 \
| _filter
# don't expect an output archive as there are no rows of data
# in the spreadsheet
#
[ -f $tmp.0 -o -f $tmp.index -o -f $tmp.meta ] && pmdumplog -az $tmp
# success, all done
exit
|