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'.
20check_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
34check_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.
47check_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
59check_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
69check_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
79check_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 egrep '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
98check_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.
113check_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.
124check_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}
153