#!/bin/sh
# PCP QA Test No. 821
# Exercise Linux PMDA memory metrics.
#
# Copyright (c) 2016 Red Hat.
#
# The linux/meminfo-root-008.tgz is very large (close to 1 Mbyte)
# so it has been tagged as a "big file" and is not in the source
# tarball and so not packaged.  This test has been split ...
# - by default the 008 data set is skipped
# - with command line arguments of <seq> and <dataset> just that
#   <dataset> is run and this is used by the dual test qa/1663 to
#   exercise the 008 data set
#

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

[ $PCP_PLATFORM = linux ] || _notrun "Linux-specific memory metric testing"
userid=`id -u`	# test exercises procfs access from both root and non-root
[ "$userid" != 0 ] || _notrun "Test cannot be run as privileged root user"

config="$PCP_PMDAS_DIR/linux/bandwidth.conf"

_cleanup()
{
    cd $here
    if [ -f "$config.$seq" ]
    then
	_restore_config "$config"
	$sudo rm -f "$config.$seq"
    fi
    rm -rf $tmp $tmp.*
}

status=1	# failure is the default!
trap "cd $here; rm -rf $tmp $tmp.*; exit \$status" 0 1 2 3 15

# deal with non-determinism in the order in which the mem.zoneinfo
# and mem.slabinfo metric indoms are populated - on-disk saving of
# these indoms (from beforehand) affects the instance identifiers.
#
_fix_info_indom()
{
    rm -f $tmp.head $tmp.info $tmp.tail
    $PCP_AWK_PROG '
/^mem\.zoneinfo\./		{ state = 1 }
/^mem\.slabinfo\./		{ state = 1 }
state == 1 && NF == 0		{ state = 2 }
state == 0			{ print >"'"$tmp.head"'"; next }
state == 1			{ print >"'"$tmp.info"'"; next }
state == 2			{ print >"'"$tmp.tail"'"; next }'
    [ -f $tmp.head ] && cat $tmp.head
    [ -f $tmp.info ] && $here/src/sortinst <$tmp.info \
			    | sed -e 's/inst \[[0-9][0-9]*/inst [N/'
    [ -f $tmp.tail ] && cat $tmp.tail
}

# real QA test starts here
root=$tmp.root
LINUX_HERTZ=100; export LINUX_HERTZ
LINUX_PAGESIZE=4096; export LINUX_PAGESIZE
LINUX_STATSPATH=$root; export LINUX_STATSPATH
pmda=$PCP_PMDAS_DIR/linux/pmda_linux.so,linux_init
local="-L -K clear -K add,60,$pmda"

mem_metrics=`pminfo $local mem | LC_COLLATE=POSIX sort`
slab_metrics=`pminfo $local mem.slabinfo | LC_COLLATE=POSIX sort`
buddy_metrics=`pminfo $local mem.buddyinfo | LC_COLLATE=POSIX sort`
zone_metrics=`pminfo $local mem.zoneinfo | LC_COLLATE=POSIX sort`

if [ -f "$config" ]
then
    _save_config "$config"
    $sudo rm -f "$config"  # ensure deterministic output, see qa/826
fi

if [ $# -eq 0 ]
then
    datasets=`cd $here/linux; echo meminfo-root-*.tgz | sed -e 's/ *meminfo-root-008.tgz//'`
elif [ $# -eq 2 ]
then
    datasets="$2"
else
    _fail "Usage: arg count $# not 0 or 2"
fi

for tgz in $datasets
do
    if [ -f "$tgz" ]
    then
	echo foo $tgz
    fi
    rm -fr $root
    mkdir $root || _fail "root in use when processing $tgz"
    cd $root
    tar xzf $here/linux/$tgz
    base=`basename $tgz`

    echo "== Checking all mem metric values - $base"
    for m in $mem_metrics
    do
	pminfo $local -f $m | _fix_info_indom
    done
    echo && echo "== done" && echo

    echo "== Checking slabinfo metric values - $base"
    # requires root privileges to access these
    for m in $slab_metrics
    do
	$sudo pminfo $local -f $m | _fix_info_indom
    done
    echo && echo "== done" && echo

    echo "== Checking buddyinfo metric values - $base"
    pminfo $local -f $buddy_metrics
    echo && echo "== done" && echo

    echo "== Checking zoneinfo metric values - $base"
    for m in $zone_metrics
    do
	pminfo $local -f $m | _fix_info_indom
    done
    echo && echo "== done" && echo

    cd $here
done

# success, all done
status=0
exit
