#!/bin/bash
# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   runtest.sh of /tools/systemtap/Regression/small-tests
#   Description: suns small tests
#   Author: Martin Cermak <mcermak@redhat.com>
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   Copyright (c) 2014 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"

export DEBUGINFOD_URLS="https://debuginfod.fedoraproject.org/ $DEBUGINFOD_URLS"
export DEBUGINFOD_TIMEOUT=300

_arch=$(arch)

function perf_probe_failed ()
{
    probe=$1
    perf probe -d $probe ||:
    perf probe --add $probe
    retval=$?
    test $retval -eq 0 && \
        rlLogInfo "Running perf probe --add $probe PASSED" || \
        rlLogInfo "Running perf probe --add $probe FAILED"
    perf probe -d $probe ||:
    if test $retval -eq 0; then
        return 1
    else
        return 0
    fi
}

function perf_found_none_of ()
{
    ret=0
    for f in "$@"; do
        perf_probe_failed $f || ret=1
    done
    return $ret
}

rlJournalStart
    # Check the environment ---------------------------------------
    rlPhaseStart WARN "Check the environment"
        rlRun "rpm -qa | egrep '^(kernel|systemtap|perf)' | sort"
        rlRun "uname -r"
        rlRun "perf --version"
    rlPhaseEnd

    # bz1162939 ---------------------------------------------------
    (
        perf_probe_failed "vfs_read" && exit
        rlPhaseStart FAIL "test 1 bz1162939"
            # At this point a weird problem shows up:  sometimes the first
            # systemtap invocation fails for some reason, but subsequent
            # invocations succeed.  Can't reproduce this manually:
            rlRun "stap -vvvp4 -e 'probe vfs.read{println(\"hit\")}'" 0,1
            sleep 30
            rlRun "stap -vvvp4 -e 'probe vfs.read{println(\"hit\")}'" 0,1
            sleep 30
            rlRun "stap -e 'probe vfs.read{println(\"hit\")}' -c 'head -1 /etc/hosts'"
        rlPhaseEnd
    )
    # bz1119335 ---------------------------------------------------
    rlPhaseStart FAIL "test 2 bz1119335"
        rlRun "man 8 staprun | grep 'STAP_FIPS_OVERRIDE'"
    rlPhaseEnd

    # bz1153673 ---------------------------------------------------
    rlPhaseStart FAIL "test 3 bz1153673"
        _tested=0
        for _pkg in $( rpm -qa | grep systemtap-testsuite ); do
            for _tc in $( rpm -ql $_pkg | grep 'alias_suffixes.stp$' ); do
                stap -p4 $_tc && p="" || p="-P"
                rlRun "stap $p -p4 $_tc"
                _tested=1
            done
        done
        [[ $_tested -eq 0 ]] && rlFail "Not tested"
    rlPhaseEnd

    # bz1160837 ---------------------------------------------------
    (
        perf_probe_failed "sd_init_command" && exit
        rlPhaseStart FAIL "test 4 bz1160837"
            _tested=0
            _prologue_search=''
            for _pkg in $( rpm -qa | grep systemtap-testsuite ); do
                for _tc in $( rpm -ql $_pkg | grep 'iostat-scsi.stp$' ); do
                    test $_arch = ppc64le && _prologue_search='-P'
                    rlRun "stap -g $_prologue_search $_tc 1 -c 'sleep 1'"
                    _tested=1
                done
            done
            [[ $_tested -eq 0 ]] && rlFail "Not tested"
        rlPhaseEnd
    )

    # bz1203808 ---------------------------------------------------
    rlPhaseStart FAIL "test 5 bz1203808"
            _tested=0
            for _pkg in $( rpm -qa | grep systemtap-testsuite ); do
                for _tc in $( rpm -ql $_pkg | grep 'vfs-all-probes.stp$' ); do
                    stap -wp4 $_tc && p="" || p="-P"
                    rlRun "stap $p -w -p4  $_tc"
                    _tested=1
                done
            done
            [[ $_tested -eq 0 ]] && rlFail "Not tested"
    rlPhaseEnd

    # bz1269062 ---------------------------------------------------
    rlPhaseStart FAIL "test 6 bz1269062"
        rlRun "stap -c sync --suppress-handler-errors -e 'probe ioscheduler.elv_add_request{println(elevator_name) exit()}'"
    rlPhaseEnd

    # bz528792 ---------------------------------------------------
    (
        # Not relevant on rhel-9 because of kernel commit cad6967ac10843a70842cd39c7b53412901dd21f that removes
        # _do_fork() and replaces it with new kernel_clone()
        perf_found_none_of "_do_fork" "do_fork" "sys_clone" && exit

        rlPhaseStart FAIL "test 7 bz528792"
            if test $_arch = ppc64le; then
                # https://bugzilla.redhat.com/show_bug.cgi?id=1652740#c4  - We can not reach any function parameters, namely $clone_flags
                rlRun "stap -ve 'probe kernel.function(\"_do_fork\")!, kernel.function(\"do_fork\")!, kernel.function(\"sys_clone\") { println(pp()) exit() }' -c \"bash -c 'while sleep 1; do /bin/true; done'\""
            else
                rlRun "stap -ve 'probe kernel.function(\"_do_fork\")!, kernel.function(\"do_fork\")!, kernel.function(\"sys_clone\") { printf(\"%x\n\",\$clone_flags) exit() }' -c \"bash -c 'while sleep 1; do /bin/true; done'\""
            fi
        rlPhaseEnd
    )

    # bz1890702 ---------------------------------------------------
    (
        perf_probe_failed "vfs_open" && exit
        rlPhaseStart FAIL "test 8 bz1890702"
            rlRun "stap -g --suppress-time-limits -e 'probe kernel.function(\"vfs_open\") { printf(\"%s(path: %s)\", ppfunc(), \$path\$) ; exit() }' -c 'cat /etc/hosts'"
        rlPhaseEnd
    )

    # bz1904216 ---------------------------------------------------
    rlPhaseStart FAIL "test 9 bz1904216"
        rlRun "stap -p4 -DSTP_NO_OVERLOAD -t -c 'sleep 0.25' -e 'probe kernel.trace(\"bcache:bcache_btree_set_root\") { if (pid() == 0) printf(\"probe hit\n\"); }'"
    rlPhaseEnd

    # bz1940804 ---------------------------------------------------
    rlPhaseStart FAIL "test 10 bz1940804"
        rlRun "stap -e 'probe process(\"/bin/bash\").function(\"main\") {println(pn()) }' -c '/bin/bash --help'"
    rlPhaseEnd

    # bz1940945 ---------------------------------------------------
    rlPhaseStart FAIL "test 11 bz1940945"
        rlRun "stap -c sync --suppress-handler-errors -e 'probe ioscheduler.elv_add_request{println(elevator_name) exit()}'"
    rlPhaseEnd

    # bz1940761 ---------------------------------------------------
    rlPhaseStart FAIL "test 12 bz1940761"
        rlRun "stap -v /usr/share/systemtap/examples/process/strace.stp -w -c \"echo hello world\""
    rlPhaseEnd
rlJournalPrintText
rlJournalEnd