Import RHEL's regression test for #868281
This commit is contained in:
Václav Kadlčík
parent
b190a780c0
commit
ff856ee840
@ -0,0 +1,67 @@
|
||||
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
#
|
||||
# Makefile of /tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
# Description: Test for BZ#868281 (ltrace doesn't work on PIE binaries)
|
||||
# Author: Miroslav Franc <mfranc@redhat.com>
|
||||
#
|
||||
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
#
|
||||
# Copyright (c) 2013 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.
|
||||
#
|
||||
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
|
||||
export TEST=/tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
export TESTVERSION=1.0
|
||||
|
||||
BUILT_FILES=
|
||||
|
||||
FILES=$(METADATA) runtest.sh Makefile PURPOSE
|
||||
|
||||
.PHONY: all install download clean
|
||||
|
||||
run: $(FILES) build
|
||||
./runtest.sh
|
||||
|
||||
build: $(BUILT_FILES)
|
||||
test -x runtest.sh || chmod a+x runtest.sh
|
||||
|
||||
clean:
|
||||
rm -f *~ $(BUILT_FILES)
|
||||
|
||||
|
||||
include /usr/share/rhts/lib/rhts-make.include
|
||||
|
||||
$(METADATA): Makefile
|
||||
@echo "Owner: Miroslav Franc <mfranc@redhat.com>" > $(METADATA)
|
||||
@echo "Name: $(TEST)" >> $(METADATA)
|
||||
@echo "TestVersion: $(TESTVERSION)" >> $(METADATA)
|
||||
@echo "Path: $(TEST_DIR)" >> $(METADATA)
|
||||
@echo "Description: Test for BZ#868281 (ltrace doesn't work on PIE binaries)" >> $(METADATA)
|
||||
@echo "Type: Regression" >> $(METADATA)
|
||||
@echo "TestTime: 5m" >> $(METADATA)
|
||||
@echo "RunFor: ltrace" >> $(METADATA)
|
||||
@echo "Requires: ltrace gcc" >> $(METADATA)
|
||||
@echo "Requires: libgcc.i686 glibc-devel.i686" >> $(METADATA) # 32-bit
|
||||
@echo "Requires: libgcc.ppc64 glibc-devel.ppc64" >> $(METADATA) # 32-bit
|
||||
@echo "Requires: libgcc.s390 glibc-devel.s390" >> $(METADATA) # 32-bit
|
||||
@echo "Priority: Normal" >> $(METADATA)
|
||||
@echo "License: GPLv2" >> $(METADATA)
|
||||
@echo "Confidential: no" >> $(METADATA)
|
||||
@echo "Destructive: no" >> $(METADATA)
|
||||
@echo "Bug: 868281" >> $(METADATA)
|
||||
|
||||
rhts-lint $(METADATA)
|
||||
@ -0,0 +1,5 @@
|
||||
PURPOSE of /tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
Description: Test for BZ#868281 (ltrace doesn't work on PIE binaries)
|
||||
Author: Miroslav Franc <mfranc@redhat.com>
|
||||
Bug summary: ltrace doesn't work on PIE binaries
|
||||
Bugzilla link: https://bugzilla.redhat.com/show_bug.cgi?id=868281
|
||||
@ -0,0 +1,23 @@
|
||||
summary: Test for BZ#868281 (ltrace doesn't work on PIE binaries)
|
||||
description: |
|
||||
Bug summary: ltrace doesn't work on PIE binaries
|
||||
Bugzilla link: https://bugzilla.redhat.com/show_bug.cgi?id=868281
|
||||
contact: Miroslav Franc <mfranc@redhat.com>
|
||||
component:
|
||||
- ltrace
|
||||
test: ./runtest.sh
|
||||
framework: beakerlib
|
||||
recommend:
|
||||
- ltrace
|
||||
- gcc
|
||||
- libgcc.i686
|
||||
- glibc-devel.i686
|
||||
- libgcc.ppc64
|
||||
- glibc-devel.ppc64
|
||||
- libgcc.s390
|
||||
- glibc-devel.s390
|
||||
duration: 5m
|
||||
link:
|
||||
- relates: https://bugzilla.redhat.com/show_bug.cgi?id=868281
|
||||
extra-summary: /tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
extra-task: /tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
113
tests/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries/runtest.sh
Executable file
113
tests/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries/runtest.sh
Executable file
@ -0,0 +1,113 @@
|
||||
#!/bin/bash
|
||||
# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k
|
||||
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
#
|
||||
# runtest.sh of /tools/ltrace/Regression/bz868281-ltrace-doesn-t-work-on-PIE-binaries
|
||||
# Description: Test for BZ#868281 (ltrace doesn't work on PIE binaries)
|
||||
# Author: Miroslav Franc <mfranc@redhat.com>
|
||||
#
|
||||
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
#
|
||||
# Copyright (c) 2013 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 || exit 1
|
||||
|
||||
LTRACE_RPM=$(rpm -qf `which ltrace`)
|
||||
GCC="${GCC:-$(which gcc)}"
|
||||
GCC_RPM=$(rpm -qf $GCC)
|
||||
BINUTILS_RPM=$(rpm -qf `which ld`)
|
||||
|
||||
rlJournalStart
|
||||
rlPhaseStartSetup
|
||||
rlAssertRpm $LTRACE_RPM
|
||||
rlAssertRpm $GCC_RPM
|
||||
rlAssertRpm $BINUTILS_RPM
|
||||
for arch in $(rlGetPrimaryArch) $(rlGetSecondaryArch); do
|
||||
rlCheckRpm glibc.$arch
|
||||
done
|
||||
rlRun "TmpDir=\$(mktemp -d)" 0 "Creating tmp directory"
|
||||
rlRun "pushd $TmpDir"
|
||||
|
||||
if [ -d /usr/lib64 ]; then
|
||||
ARCH=`uname -i`
|
||||
if [[ $ARCH =~ s390.* ]]; then
|
||||
if rlIsRHEL '>=8'; then
|
||||
rlLogInfo "RHEL-8 and newer do not support s390x 31-bit compilation"
|
||||
MBITS=
|
||||
else
|
||||
MBITS=31
|
||||
if [[ "$LTRACE_RPM" =~ devtoolset-(9|10) ]] ; then
|
||||
rlLogInfo "devtoolset-(9|10)-gcc do not support s390, hence using base gcc"
|
||||
rlRun "GCC=/usr/bin/gcc"
|
||||
rlAssertRpm $(rpm -qf $GCC)
|
||||
fi
|
||||
fi
|
||||
elif [[ $ARCH =~ ia64|aarch64|ppc64le ]]; then
|
||||
rlLogInfo "$ARCH does not support 32-bit compilation"
|
||||
MBITS=
|
||||
else
|
||||
MBITS=32
|
||||
fi
|
||||
fi
|
||||
|
||||
rlLogInfo "MBITS=$MBITS"
|
||||
|
||||
rlRun "echo 'int main(){alarm(42);return 0;}'| $GCC -fPIE -pie -x c -o a-native.out -"
|
||||
rlAssertExists a-native.out
|
||||
|
||||
if [ -n "$MBITS" ]; then
|
||||
rlRun "echo 'int main(){alarm(42);return 0;}'| $GCC -fPIE -pie -m$MBITS -x c -o a-$MBITS.out -"
|
||||
rlAssertExists a-$MBITS.out
|
||||
fi
|
||||
rlPhaseEnd
|
||||
|
||||
rlPhaseStartTest "Native binary testing"
|
||||
rlRun "ltrace ./a-native.out > log 2>&1"
|
||||
LIBC_START_MAIN=true
|
||||
if [[ "$ARCH" = "x86_64" ]]; then
|
||||
if rlIsRHEL '>=8' || rlIsFedora; then
|
||||
rlLogInfo "x86_64: Since RHEL-8 __libc_start_main has been optimized into non-PLT call, no longer ltraced (bz#1654734)"
|
||||
LIBC_START_MAIN=false
|
||||
fi
|
||||
fi
|
||||
if $LIBC_START_MAIN; then
|
||||
rlAssertGrep "__libc_start_main" log
|
||||
fi
|
||||
rlAssertGrep "alarm(42)" log
|
||||
rlAssertGrep "exited (status 0)" log
|
||||
rlLog "log file:\n$(cat log)"
|
||||
rlPhaseEnd
|
||||
|
||||
if [ -n "$MBITS" ]; then
|
||||
rlPhaseStartTest "$MBITS bit binary testing"
|
||||
rlRun "ltrace ./a-$MBITS.out > log-$MBITS 2>&1"
|
||||
rlAssertGrep "__libc_start_main" log-$MBITS
|
||||
rlAssertGrep "alarm(42)" log-$MBITS
|
||||
rlAssertGrep "exited (status 0)" log-$MBITS
|
||||
rlLog "log file:\n$(cat log-$MBITS)"
|
||||
rlPhaseEnd
|
||||
fi
|
||||
|
||||
rlPhaseStartCleanup
|
||||
rlRun "popd"
|
||||
rlRun "rm -r $TmpDir" 0 "Removing tmp directory"
|
||||
rlPhaseEnd
|
||||
rlJournalPrintText
|
||||
rlJournalEnd
|
||||
Loading…
Reference in New Issue
Block a user