tests/backtrace-subr.sh

   1 # Copyright (C) 2013 Red Hat, Inc.
   2 # This file is part of elfutils.
   3 #
   4 # This file is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # elfutils is distributed in the hope that it will be useful, but
  10 # WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 . $srcdir/test-subr.sh
  18
  19 # Verify one of the backtraced threads contains function 'main'.
  20 check_main()
  21 {
  22   if grep -w main $1; then
  23     return
  24   fi
  25   echo >&2 $2: no main
  26   false
  27 }
  28
  29 # Without proper ELF symbols resolution we could get inappropriate weak
  30 # symbol "gsignal" with the same address as the correct symbol "raise".
  31 # It was fixed by GIT commit 78dec228b3cfb2f9300cd0b682ebf416c9674c91 .
  32 # [patch] Improve ELF symbols preference (global > weak)
  33 # https://lists.fedorahosted.org/pipermail/elfutils-devel/2012-October/002624.html
  34 check_gsignal()
  35 {
  36   if ! grep -w gsignal $1; then
  37     return
  38   fi
  39   echo >&2 $2: found gsignal
  40   false
  41 }
  42
  43 # Verify the STDERR output does not contain unexpected errors.
  44 # In some cases we cannot reliably find out we got behind _start as some
  45 # operating system do not properly terminate CFI by undefined PC.
  46 # Ignore it here as it is a bug of OS, not a bug of elfutils.
  47 check_err()
  48 {
  49   if [ $(egrep -v <$1 'dwfl_thread_getframes: (No DWARF information found|no matching address range)$' \
  50          | wc -c) \
  51        -eq 0 ]
  52   then
  53     return
  54   fi
  55   echo >&2 $2: neither empty nor just out of DWARF
  56   false
  57 }
  58
  59 check_all()
  60 {
  61   bt=$1
  62   err=$2
  63   testname=$3
  64   check_main $bt $testname
  65   check_gsignal $bt $testname
  66   check_err $err $testname
  67 }
  68
  69 check_unsupported()
  70 {
  71   err=$1
  72   testname=$2
  73   if grep -q ': Unwinding not supported for this architecture$' $err; then
  74     echo >&2 $testname: arch not supported
  75     exit 77
  76   fi
  77 }
  78
  79 check_native_unsupported()
  80 {
  81   err=$1
  82   testname=$2
  83   check_unsupported $err $testname
  84
  85   # ARM is special. It is supported, but it doesn't use .eh_frame by default
  86   # making the native tests fail unless debuginfo (for glibc) is installed
  87   # and we can fall back on .debug_frame for the CFI.
  88   case "`uname -m`" in
  89     arm* )
  90       if grep 'dwfl_thread_getframes: No DWARF information found' $err; then
  91         echo >&2 $testname: arm needs debuginfo installed for all libraries
  92         exit 77
  93       fi
  94     ;;
  95   esac
  96 }
  97
  98 check_core()
  99 {
 100   arch=$1
 101   testfiles backtrace.$arch.{exec,core}
 102   tempfiles backtrace.$arch.{bt,err}
 103   echo ./backtrace ./backtrace.$arch.{exec,core}
 104   testrun ${abs_builddir}/backtrace -e ./backtrace.$arch.exec --core=./backtrace.$arch.core 1>backtrace.$arch.bt 2>backtrace.$arch.err || true
 105   cat backtrace.$arch.{bt,err}
 106   check_unsupported backtrace.$arch.err backtrace.$arch.core
 107   check_all backtrace.$arch.{bt,err} backtrace.$arch.core
 108 }
 109
 110 # Backtrace live process.
 111 # Do not abort on non-zero exit code due to some warnings of ./backtrace
 112 # - see function check_err.
 113 check_native()
 114 {
 115   child=$1
 116   tempfiles $child.{bt,err}
 117   (set +ex; testrun ${abs_builddir}/backtrace --backtrace-exec=${abs_builddir}/$child 1>$child.bt 2>$child.err; true)
 118   cat $child.{bt,err}
 119   check_native_unsupported $child.err $child
 120   check_all $child.{bt,err} $child
 121 }
 122
 123 # Backtrace core file.
 124 check_native_core()
 125 {
 126   child=$1
 127
 128   # Disable valgrind while dumping core.
 129   SAVED_VALGRIND_CMD="$VALGRIND_CMD"
 130   unset VALGRIND_CMD
 131
 132   # Skip the test if we cannot adjust core ulimit.
 133   core="core.`ulimit -c unlimited || exit 77; set +ex; testrun ${abs_builddir}/$child --gencore; true`"
 134   # see if /proc/sys/kernel/core_uses_pid is set to 0
 135   if [ -f core ]; then
 136     mv core "$core"
 137   fi
 138   if [ ! -f "$core" ]; then exit 77; fi
 139
 140   if [ "x$SAVED_VALGRIND_CMD" != "x" ]; then
 141     VALGRIND_CMD="$SAVED_VALGRIND_CMD"
 142     export VALGRIND_CMD
 143   fi
 144
 145   # Do not abort on non-zero exit code due to some warnings of ./backtrace
 146   # - see function check_err.
 147   tempfiles $core{,.{bt,err}}
 148   (set +ex; testrun ${abs_builddir}/backtrace -e ${abs_builddir}/$child --core=$core 1>$core.bt 2>$core.err; true)
 149   cat $core.{bt,err}
 150   check_native_unsupported $core.err $child-$core
 151   check_all $core.{bt,err} $child-$core
 152 }