117 lines
4.1 KiB
Bash
117 lines
4.1 KiB
Bash
|
#!/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 "$(<gloge)"
|
||
|
|
rlLog "> valgrind output <"
|
||
|
|
rlLog "$(<vloge)"
|
||
|
|
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 "$(<glogn)"
|
||
|
|
rlLog "> valgrind output <"
|
||
|
|
rlLog "$(<vlogn)"
|
||
|
|
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
|