#!/bin/sh
# PCP QA Test No. 688
# derived metrics & instance filtering - parser checks
#
# Copyright (c) 2018 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

_cleanup()
{
    cd $here
    $sudo rm -rf $tmp $tmp.*
}

status=1	# failure is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15

# Derived metric expr dump from 0x8513a48...
# expr node 0x867eb68 type=PLUS left=0x867eb98 right=0x867ed28
# 
_filter()
{
    $PCP_AWK_PROG <$tmp.out >$tmp.sed '
BEGIN				{ n = 0 }
$1 == "expr" && $2 == "node" && $3 ~ /^0x/	{ print "s/" $3 "/<addr-" n ">/"; n++ }
				{ next }'
    sed -f $tmp.sed <$tmp.out \
    | sed \
	-e '/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/s/[^ ]*.*numpmid/TIMESTAMP ... numpmid/' \
	-e 's/=0x0 /=(nil) /g' \
	-e "s;$tmp;TMP;" \
    # end
}

# real QA test starts here
cat <<'End-of-File' >$tmp.config
qa.a = matchinst(/100/, sample.bin)
# should be bin-600 ... bin-900
qa.b = matchinst(!/bin-[1-5]00/, sample.bin)
qa.c = sample.bin[bin-300] + sample.bin[bin-500]
# escape in instance name
qa.d = sample.bin[\b\i\n\-\3\0\0] + sample.bin[\]bin-500\\]
# escape in pattern
qa.e = matchinst(/\\[1\\]100\//, sample.bin)
End-of-File

echo "=== simple cases ==="
export PCP_DERIVED_CONFIG=$tmp.config
pminfo -d -Dderive,appl0 qa >$tmp.out 2>&1
_filter

echo
echo "=== syntax errors ==="
cat <<'End-of-File' >$tmp.config
qa.a = matchinst(
qa.b = matchinst(/100/
qa.c = matchinst(/100/,
qa.d = matchinst(/100/, sample.bin
qa.e = matchinst(/100/, (sample.bin + 1
qa.f = sample.bin[bin-300
qa.g = sample.bin[
qa.h = matchinst(/10[/, sample.bin)
End-of-File

pminfo -d -Dderive qa >$tmp.out 2>&1
_filter

# success, all done
status=0
exit
