#!/bin/bash
# vim: dict+=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   runtest.sh of /tools/systemtap/Regression/RHEL7-5-backtraces-no-longer-work-with-systemtap
#   Description: Test for BZ#1572501 (RHEL7.5 - backtraces no longer work with systemtap)
#   Author: Martin Cermak <mcermak@redhat.com>
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   Copyright (c) 2018 Red Hat, Inc.
#
#   This program is free software: you can redistribute it and/or
#   modify it under the terms of the GNU General Public License as
#   published by the Free Software Foundation, either version 2 of
#   the License, or (at your option) any later version.
#
#   This program is distributed in the hope that it will be
#   useful, but WITHOUT ANY WARRANTY; without even the implied
#   warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
#   PURPOSE.  See the GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program. If not, see http://www.gnu.org/licenses/.
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# Include Beaker environment
. /usr/share/beakerlib/beakerlib.sh || exit 1

PACKAGE="systemtap"

rlJournalStart
    rlPhaseStartTest
	if arch | grep -q s390x; then
	    rlLogWarning "Test not relevant"
	else
	    TEMPFILE=$(mktemp)
	    rlRun "stap --all-modules -vwe 'probe kernel.function(\"kmem_cache_alloc\") { print_backtrace(); exit() }' >& $TEMPFILE"
	    # since it's hard to find some reasonable pattern to grep for across arches in the backrtrace
	    # we'll simply count the lines.  We'll want at least 9 lines of output (6 as the results of -v,
	    # and another at least three coming from the backtrace itself.
	    rlRun "cat $TEMPFILE"
	    rlRun "test 9 -le $(wc -l $TEMPFILE | awk '{print $1}')"
	    rm $TEMPFILE
	fi
    rlPhaseEnd
rlJournalPrintText
rlJournalEnd