Blame tests/backtrace-subr.sh

Packit Service 97d2fb
# Copyright (C) 2013, 2015 Red Hat, Inc.
Packit Service 97d2fb
# This file is part of elfutils.
Packit Service 97d2fb
#
Packit Service 97d2fb
# This file is free software; you can redistribute it and/or modify
Packit Service 97d2fb
# it under the terms of the GNU General Public License as published by
Packit Service 97d2fb
# the Free Software Foundation; either version 3 of the License, or
Packit Service 97d2fb
# (at your option) any later version.
Packit Service 97d2fb
#
Packit Service 97d2fb
# elfutils is distributed in the hope that it will be useful, but
Packit Service 97d2fb
# WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 97d2fb
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service 97d2fb
# GNU General Public License for more details.
Packit Service 97d2fb
#
Packit Service 97d2fb
# You should have received a copy of the GNU General Public License
Packit Service 97d2fb
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
Packit Service 97d2fb
Packit Service 97d2fb
. $srcdir/test-subr.sh
Packit Service 97d2fb
Packit Service 97d2fb
# Verify one of the backtraced threads contains function 'main'.
Packit Service 97d2fb
check_main()
Packit Service 97d2fb
{
Packit Service 97d2fb
  if grep -w main $1; then
Packit Service 97d2fb
    return
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  echo >&2 $2: no main
Packit Service 97d2fb
  false
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
# Without proper ELF symbols resolution we could get inappropriate weak
Packit Service 97d2fb
# symbol "gsignal" with the same address as the correct symbol "raise".
Packit Service 97d2fb
# It was fixed by GIT commit 78dec228b3cfb2f9300cd0b682ebf416c9674c91 .
Packit Service 97d2fb
# [patch] Improve ELF symbols preference (global > weak)
Packit Service 97d2fb
# https://lists.fedorahosted.org/pipermail/elfutils-devel/2012-October/002624.html
Packit Service 97d2fb
check_gsignal()
Packit Service 97d2fb
{
Packit Service 97d2fb
  if ! grep -w gsignal $1; then
Packit Service 97d2fb
    return
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  echo >&2 $2: found gsignal
Packit Service 97d2fb
  false
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
Packit Service 97d2fb
# Makes sure we saw the function that initiated the backtrace
Packit Service 97d2fb
# when the core was generated through the tests backtrace --gencore.
Packit Service 97d2fb
# This might disappear when frame pointer chasing gone bad.
Packit Service 97d2fb
check_backtracegen()
Packit Service 97d2fb
{
Packit Service 97d2fb
  if grep -w backtracegen $1; then
Packit Service 97d2fb
    return
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  echo >&2 $2: no backtracegen
Packit Service 97d2fb
  false
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
# Verify the STDERR output does not contain unexpected errors.
Packit Service 97d2fb
# In some cases we cannot reliably find out we got behind _start as some
Packit Service 97d2fb
# operating system do not properly terminate CFI by undefined PC.
Packit Service 97d2fb
# Ignore it here as it is a bug of OS, not a bug of elfutils.
Packit Service 97d2fb
check_err()
Packit Service 97d2fb
{
Packit Service 97d2fb
  if [ $(egrep -v <$1 'dwfl_thread_getframes: (No DWARF information found|no matching address range|address out of range|Invalid register|\(null\))$' \
Packit Service 97d2fb
         | wc -c) \
Packit Service 97d2fb
       -eq 0 ]
Packit Service 97d2fb
  then
Packit Service 97d2fb
    return
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  echo >&2 $2: neither empty nor just out of DWARF
Packit Service 97d2fb
  false
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
check_all()
Packit Service 97d2fb
{
Packit Service 97d2fb
  bt=$1
Packit Service 97d2fb
  err=$2
Packit Service 97d2fb
  testname=$3
Packit Service 97d2fb
  check_main $bt $testname
Packit Service 97d2fb
  check_gsignal $bt $testname
Packit Service 97d2fb
  check_err $err $testname
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
check_unsupported()
Packit Service 97d2fb
{
Packit Service 97d2fb
  err=$1
Packit Service 97d2fb
  testname=$2
Packit Service 97d2fb
  if grep -q ': Unwinding not supported for this architecture$' $err; then
Packit Service 97d2fb
    echo >&2 $testname: arch not supported
Packit Service 97d2fb
    test_cleanup
Packit Service 97d2fb
    exit 77
Packit Service 97d2fb
  fi
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
check_native_unsupported()
Packit Service 97d2fb
{
Packit Service 97d2fb
  err=$1
Packit Service 97d2fb
  testname=$2
Packit Service 97d2fb
  check_unsupported $err $testname
Packit Service 97d2fb
Packit Service 97d2fb
  # ARM is special. It is supported, but it doesn't use .eh_frame by default
Packit Service 97d2fb
  # making the native tests fail unless debuginfo (for glibc) is installed
Packit Service 97d2fb
  # and we can fall back on .debug_frame for the CFI.
Packit Service 97d2fb
  case "`uname -m`" in
Packit Service 97d2fb
    arm* )
Packit Service 97d2fb
      if egrep 'dwfl_thread_getframes(.*)No DWARF information found' $err; then
Packit Service 97d2fb
	echo >&2 $testname: arm needs debuginfo installed for all libraries
Packit Service 97d2fb
	exit 77
Packit Service 97d2fb
      fi
Packit Service 97d2fb
    ;;
Packit Service 97d2fb
  esac
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
check_core()
Packit Service 97d2fb
{
Packit Service 97d2fb
  arch=$1
Packit Service 97d2fb
  testfiles backtrace.$arch.{exec,core}
Packit Service 97d2fb
  tempfiles backtrace.$arch.{bt,err}
Packit Service 97d2fb
  echo ./backtrace ./backtrace.$arch.{exec,core}
Packit Service 97d2fb
  testrun ${abs_builddir}/backtrace -e ./backtrace.$arch.exec --core=./backtrace.$arch.core 1>backtrace.$arch.bt 2>backtrace.$arch.err || true
Packit Service 97d2fb
  cat backtrace.$arch.{bt,err}
Packit Service 97d2fb
  check_unsupported backtrace.$arch.err backtrace.$arch.core
Packit Service 97d2fb
  check_all backtrace.$arch.{bt,err} backtrace.$arch.core
Packit Service 97d2fb
  check_backtracegen backtrace.$arch.bt backtrace.$arch.core
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
# Backtrace live process.
Packit Service 97d2fb
# Do not abort on non-zero exit code due to some warnings of ./backtrace
Packit Service 97d2fb
# - see function check_err.
Packit Service 97d2fb
check_native()
Packit Service 97d2fb
{
Packit Service 97d2fb
  child=$1
Packit Service 97d2fb
  tempfiles $child.{bt,err}
Packit Service 97d2fb
  (set +ex; testrun ${abs_builddir}/backtrace --backtrace-exec=${abs_builddir}/$child 1>$child.bt 2>$child.err; true)
Packit Service 97d2fb
  cat $child.{bt,err}
Packit Service 97d2fb
  check_native_unsupported $child.err $child
Packit Service 97d2fb
  check_all $child.{bt,err} $child
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
# Backtrace core file.
Packit Service 97d2fb
check_native_core()
Packit Service 97d2fb
{
Packit Service 97d2fb
# systemd-coredump/coredumpctl doesn't seem to like concurrent core dumps
Packit Service 97d2fb
# use a lock file (fd 200) tests/core-dump-backtrace.lock
Packit Service 97d2fb
(
Packit Service 97d2fb
  child=$1
Packit Service 97d2fb
Packit Service 97d2fb
  # Disable valgrind while dumping core.
Packit Service 97d2fb
  SAVED_VALGRIND_CMD="$VALGRIND_CMD"
Packit Service 97d2fb
  unset VALGRIND_CMD
Packit Service 97d2fb
Packit Service 97d2fb
  # Wait for lock for 10 seconds or skip.
Packit Service 97d2fb
  flock -x -w 10 200 || exit 77;
Packit Service 97d2fb
Packit Service 97d2fb
  # Skip the test if we cannot adjust core ulimit.
Packit Service 97d2fb
  pid="`ulimit -c unlimited || exit 77; set +ex; testrun ${abs_builddir}/$child --gencore; true`"
Packit Service 97d2fb
  core="core.$pid"
Packit Service 97d2fb
  # see if /proc/sys/kernel/core_uses_pid is set to 0
Packit Service 97d2fb
  if [ -f core ]; then
Packit Service 97d2fb
    mv core "$core"
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  type -P coredumpctl && have_coredumpctl=1 || have_coredumpctl=0
Packit Service 97d2fb
  if [ ! -f "$core" -a $have_coredumpctl -eq 1 ]; then
Packit Service 97d2fb
    # Maybe systemd-coredump took it. But give it some time to dump first...
Packit Service 97d2fb
    sleep 1
Packit Service 97d2fb
    coredumpctl --output="$core" dump $pid || rm -f $core
Packit Service 97d2fb
Packit Service 97d2fb
    # Try a couple of times after waiting some more if something went wrong...
Packit Service 97d2fb
    if [ ! -f "$core" ]; then
Packit Service 97d2fb
      sleep 2
Packit Service 97d2fb
      coredumpctl --output="$core" dump $pid || rm -f $core
Packit Service 97d2fb
    fi
Packit Service 97d2fb
Packit Service 97d2fb
    if [ ! -f "$core" ]; then
Packit Service 97d2fb
      sleep 3
Packit Service 97d2fb
      coredumpctl --output="$core" dump $pid || rm -f $core
Packit Service 97d2fb
    fi
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  if [ ! -f "$core" ]; then
Packit Service 97d2fb
    # In some containers our view of pids is confused. Since tests are
Packit Service 97d2fb
    # run in a new fresh directory any core here is most like is ours.
Packit Service 97d2fb
    if ls core.[0-9]* 1> /dev/null 2>&1; then
Packit Service 97d2fb
      mv core.[0-9]* "$core"
Packit Service 97d2fb
    fi
Packit Service 97d2fb
  fi
Packit Service 97d2fb
  if [ ! -f "$core" ]; then
Packit Service 97d2fb
    echo "No $core file generated";
Packit Service 97d2fb
    exit 77;
Packit Service 97d2fb
  fi
Packit Service 97d2fb
Packit Service 97d2fb
  if [ "x$SAVED_VALGRIND_CMD" != "x" ]; then
Packit Service 97d2fb
    VALGRIND_CMD="$SAVED_VALGRIND_CMD"
Packit Service 97d2fb
    export VALGRIND_CMD
Packit Service 97d2fb
  fi
Packit Service 97d2fb
Packit Service 97d2fb
  # Do not abort on non-zero exit code due to some warnings of ./backtrace
Packit Service 97d2fb
  # - see function check_err.
Packit Service 97d2fb
  tempfiles $core{,.{bt,err}}
Packit Service 97d2fb
  (set +ex; testrun ${abs_builddir}/backtrace -e ${abs_builddir}/$child --core=$core 1>$core.bt 2>$core.err; true)
Packit Service 97d2fb
  cat $core.{bt,err}
Packit Service 97d2fb
  check_native_unsupported $core.err $child-$core
Packit Service 97d2fb
  check_all $core.{bt,err} $child-$core
Packit Service 97d2fb
  rm $core{,.{bt,err}}
Packit Service 97d2fb
) 200>${abs_builddir}/core-dump-backtrace.lock
Packit Service 97d2fb
}