#!/bin/sh
# PCP QA Test No. 1170
# Exercise the BCC PMDA tcptop module - install, remove and values.
#
# Copyright (c) 2018 Andreas Gerstmayr.
#

seq=`basename $0`
echo "QA output created by $seq"

. ./common.bcc

_pmdabcc_check
which curl >/dev/null 2>&1 || _notrun "No curl binary installed"
[ "$(pmpython src/bcc_version_check.python)" = "0.6.1" ] \
  && _notrun "Broken BCC version detected"
case "`uname -srm`"
in
    Linux\ 5.2.*)
    		_notrun "Bad Linux 5.2 kernel headers will cause BPF to fail"
		;;
esac
_bcc_debian_unstable && _notrun "bcc may be broken for Debian unstable"

if [ -f /etc/lsb-release ]
then
    . /etc/lsb-release
    if [ "$DISTRIB_ID" = Ubuntu ]
    then
	# This test fails for Ubuntu 19.10 because the linux headers used
	# by the BPF compiler appear to be knackered.
	#
	case "$DISTRIB_RELEASE"
	in
	    19.10)
		_notrun "bcc does not work for this test on Ubuntu $DISTRIB_RELEASE"
		;;
	esac
    fi
fi

if [ -f /etc/os-release ]
then
    . /etc/os-release
    if [ "$NAME" = "openSUSE Leap" ]
    then
	# This test fails for openSUSE 15.1 because the linux headers used
	# by the BPF compiler appear to be knackered.
	#
	case "$VERSION"
	in
	    15.1)
		_notrun "bcc does not work for this test on openSUSE $VERSION"
		;;
	esac
    fi
fi

target_ip=1.1.1.1

status=1       # failure is the default!
signal=$PCP_BINADM_DIR/pmsignal
$sudo rm -rf $tmp.* $seq.full

_prepare_pmda bcc
trap "_pmdabcc_cleanup; exit \$status" 0 1 2 3 15
_stop_auto_restart pmcd

# real QA test starts here
cat <<EOF | _pmdabcc_install
# Installed by PCP QA test $seq on `date`
[pmda]
modules = tcptop
prefix = bcc.
[tcptop]
module = tcptop
cluster = 12
interval = 5
debug = True
EOF
_pmdabcc_wait_for_metric

# Generate system activity for the BCC tcptop module
echo Started curl at $(date) >> $here/$seq.full
curl -s http://${target_ip} > /dev/null

# wait until PMDA refreshes BPF table containing curl
_pmdabcc_wait_for_value bcc.proc.io.net.tcptop.daddr '"'${target_ip}'"'

echo "=== report metric values for pid ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.pid 2>&1 | tee -a $here/$seq.full \
| _value_filter_nonzero

# curl processes already exited, therefore command is not available (only PID is shown)
echo "=== report metric values for comm ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.comm 2>&1 | tee -a $here/$seq.full \
| _value_filter_any

echo "=== report metric values for laddr ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.laddr 2>&1 | tee -a $here/$seq.full \
| _value_filter_any

echo "=== report metric values for lport ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.lport 2>&1 | tee -a $here/$seq.full \
| _value_filter_nonzero

echo "=== report metric values for daddr ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.daddr 2>&1 | tee -a $here/$seq.full \
| _value_filter_exact '"'${target_ip}'"'

echo "=== report metric values for dport ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.dport 2>&1 | tee -a $here/$seq.full \
| _value_filter_exact 80

echo "=== report metric values for rx ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.rx 2>&1 | tee -a $here/$seq.full \
| _value_filter_nonzero

echo "=== report metric values for tx ==="
pminfo -dfmtT bcc.proc.io.net.tcptop.tx 2>&1 | tee -a $here/$seq.full \
| _value_filter_any

_pmdabcc_remove

status=0
exit
