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
|
#!/bin/sh
# PCP QA Test No. 1454
# pmlogrewrite - metric value change rules
#
# non-valgrind variant, see qa/1459 for the valgrind variant
#
# Copyright (c) 2023 Ken McDonell. All Rights Reserved.
#
if [ $# -eq 0 ]
then
seq=`basename $0`
echo "QA output created by $seq"
else
# use $seq from caller, unless not set
[ -n "$seq" ] || seq=`basename $0`
echo "QA output created by `basename $0` $*"
fi
# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check
do_valgrind=false
if [ "$1" = "--valgrind" ]
then
_check_valgrind
do_valgrind=true
elif [ "$PCPQA_VALGRIND" = "no" ]
then
:
elif which valgrind >/dev/null 2>&1
then
[ $PCPQA_VALGRIND = both ] || \
_notrun "valgrind variant qa/1459 will be run"
fi
_cleanup()
{
cd $here
$sudo rm -rf $tmp $tmp.*
}
status=0 # success is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15
# handle regcomp differences ...
# [line 1] regcomp error: Unmatched [ or [^
# [line 1] regcomp error: Unmatched [, [^, [:, [., or [=
# [line 1] regcomp error: brackets ([ ]) not balanced
#
_filter()
{
sed \
-e "s@$tmp@TMP@g" \
-e '/regcomp error: Unmatched/s/Unmatched .*/Unmatched .../' \
-e '/regcomp error: brackets .* not balanced/s/brackets .*/Unmatched .../' \
# end
}
# real QA test starts here
echo "== syntax, semantic and re errors =="
cat <<'End-of-File' | while read spec
metric sample.string.bin { value /bin/ -> "foobar
metric sample.string.bin { value /bin/ -> /foobar }
metric sample.string.bin { value "bin" -> " }
metric sample.string.bin { value "bin" -> /
metric sample.string.bin { value /bin/ -> something else }
metric sample.string.bin { value "bin" something else }
metric sample.string.bin { value something else }
metric sample.string.bin { value "bin[foo" -> /bad re/ }
metric sample.long.million { value "1000000" -> "1000001" }
End-of-File
do
printf "%s\n" "--- $spec ---"
cat <<End-of-File >$tmp.config
$spec
End-of-File
rm -f $tmp.0 $tmp.index $tmp.meta
if $do_valgrind
then
_run_valgrind pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp
else
pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp 2>&1
fi \
| _filter
done
echo
echo "== run-time errors =="
cat <<'End-of-File' >$tmp.config
metric sample.string.bin {
value "[0-9]+" -> "\2"
}
End-of-File
rm -f $tmp.0 $tmp.index $tmp.meta
if $do_valgrind
then
_run_valgrind pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp
else
pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp 2>&1
fi \
| _filter
echo
echo "== do it =="
echo "metric sample.string.bin {" >$tmp.pre
echo >$tmp.spec
echo "}" >$tmp.post
cat <<'End-of-File' | while read spec
value "[0-9]+" -> "bin-&"
value /bin/ -> "foobar"
value /(.*)-([0-9]00)/ -> "\\2-\\1"
value "^(.)00-(.*)" -> /"\\101-\\2"/
value /"/ -> "+"
value /\\+/ -> /"/
End-of-File
do
printf "%s\n" "--- $spec ---"
cat <<End-of-File >>$tmp.spec
$spec
End-of-File
cat $tmp.pre $tmp.spec $tmp.post >$tmp.config
rm -f $tmp.0 $tmp.index $tmp.meta
if $do_valgrind
then
_run_valgrind pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp
else
pmlogrewrite -v -c $tmp.config archives/omnibus-nomark_v3 $tmp 2>&1
fi \
| _filter
pmdumplog -z $tmp sample.string.bin \
| $PCP_AWK_PROG '
NF == 0 { block++
if (block == 3) {
print "..."
exit
}
}
{ print }'
done
# success, all done
exit
|
