pcp-testsuite 4.0.1-1 / var / lib / pcp / testsuite / 371

This file is indexed.

/var/lib/pcp/testsuite/371 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
 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 -dilmstz $tmp

# success, all done
exit

APT Browse - Built by Thomas Orozco.