#!/bin/bash

# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#

#   runtest.sh of /tools/valgrind/Sanity/bz672959-RFE-Integrate-valgrind-with-gdb-possibly-through

#   Description: Test for BZ#672959 ([RFE] Integrate valgrind with gdb possibly through)

#   Author: Miroslav Franc <mfranc@redhat.com>

#

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#

#   Copyright (c) 2012 Red Hat, Inc. All rights reserved.

#

#   This copyrighted material is made available to anyone wishing

#   to use, modify, copy, or redistribute it subject to the terms

#   and conditions of the GNU General Public License version 2.

#

#   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, write to the Free

#   Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

#   Boston, MA 02110-1301, USA.

#

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# Include Beaker environment

. /usr/share/beakerlib/beakerlib.sh

PACKAGE=$(rpm --qf "%{name}\n" -qf $(which valgrind) | head -1)

PACKAGES=(valgrind gcc gdb)

# Expect 1th argument as a path to binary to test with

_test_routine()

{

    local binary=$1

    rlPhaseStartTest "$binary error"

    rlAssertExists "$binary"

        rlLog "valgrind gdb server..."

        valgrind --vex-iropt-register-updates=allregs-at-mem-access --vgdb-error=0 ./$binary > vloge 2>&1 &

        vpid=$!

        sleep 5

        rlRun "gdb -x error.gdb ./$binary > gloge 2>&1"

        [[ -d /proc/$vpid ]] && { kill -9 $vpid; rlFail "oops: valgrind still running..."; }

        rlRun "wait $vpid"

        rlAssertGrep '19.*if(x)' gloge

        rlAssertGrep '$1 = 42' gloge

        # there should be exactly one error

        rlAssertGrep 'ERROR SUMMARY: 1 errors from 1 contexts' vloge

        rlLog "> gdb output <"

        rlLog "$(

        rlLog "> valgrind output <"

        rlLog "$(

    rlPhaseEnd

    rlPhaseStartTest "$binary noerror"

    rlAssertExists "$binary"

        rlLog "valgrind gdb server..."

        valgrind --vex-iropt-register-updates=allregs-at-mem-access --vgdb-error=0 ./$binary > vlogn 2>&1 &

        vpid=$!

        sleep 5

        rlRun "gdb -x noerror.gdb ./$binary > glogn 2>&1"

        [[ -d /proc/$vpid ]] && { kill -9 $vpid; rlFail "oops: valgrind still running..."; }

        rlRun "wait $vpid"

        rlAssertGrep '10.*f(a);' glogn

        # this time, no errors

        rlAssertGrep 'ERROR SUMMARY: 0 errors from 0 contexts' vlogn

        rlAssertGrep 'hello, world' vlogn

        rlLog "> gdb output <"

        rlLog "$(

        rlLog "> valgrind output <"

        rlLog "$(

    rlPhaseEnd

}

rlJournalStart

    rlPhaseStartSetup

        which valgrind | grep "/devtoolset"

        if [ $? -eq 0 ]; then

            rpm_prefix="$(which valgrind | grep -o 'devtoolset[^/]*')-"

        fi

        for p in "${PACKAGES[@]}"; do

            rlAssertRpm "${rpm_prefix}${p}"

        done; unset p

        rlRun "TmpDir=\$(mktemp -d)" 0 "Creating tmp directory"

        rlRun "cp something.c error.gdb noerror.gdb $TmpDir"

        rlRun "pushd $TmpDir"

        rlRun "gcc -g something.c -o basic.out"

        which dwz

        if [ $? -eq 0 ]; then

            rlRun "cp basic.out dwz.out"

            rlRun "dwz dwz.out"

            rlRun "dwz_binary_size=$(du -b dwz.out | awk '{ print $1}')"

            rlRun "basic_binary_size=$(du -b basic.out | awk '{ print $1}')"

            [ "$dwz_binary_size" = "$basic_binary_size" ] && rlFail "Size of dwz binary should differs"

            run_for=(basic.out dwz.out)

        else

            run_for=(basic.out)

        fi

    rlPhaseEnd

    for p in "${run_for[@]}"; do

        _test_routine "$p"

    done; unset p

    rlPhaseStartCleanup

        rlRun "popd"

        rlRun "rm -r $TmpDir" 0 "Removing tmp directory"

    rlPhaseEnd

rlJournalPrintText

rlJournalEnd