granicus.if.org Git - strace/blob - tests/strace-k.test

   1 #!/bin/sh
   2 #
   3 # Ensure that strace -k works.
   4 #
   5 # Copyright (c) 2014 Masatake YAMATO <yamato@redhat.com>
   6 # Copyright (c) 2014-2015 Dmitry V. Levin <ldv@altlinux.org>
   7 # All rights reserved.
   8 #
   9 # Redistribution and use in source and binary forms, with or without
  10 # modification, are permitted provided that the following conditions
  11 # are met:
  12 # 1. Redistributions of source code must retain the above copyright
  13 #    notice, this list of conditions and the following disclaimer.
  14 # 2. Redistributions in binary form must reproduce the above copyright
  15 #    notice, this list of conditions and the following disclaimer in the
  16 #    documentation and/or other materials provided with the distribution.
  17 # 3. The name of the author may not be used to endorse or promote products
  18 #    derived from this software without specific prior written permission.
  19 #
  20 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  21 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  22 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  23 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  24 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  25 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  26 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  27 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  28 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  29 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  30
  31 . "${srcdir=.}/init.sh"
  32
  33 $STRACE -h | grep '^[[:space:]]*-k[[:space:]]' > /dev/null ||
  34         skip_ 'strace -k is not available'
  35
  36 # strace -k is implemented using /proc/$pid/maps
  37 [ -f /proc/self/maps ] ||
  38         framework_skip_ '/proc/self/maps is not available'
  39
  40 check_prog sed
  41 check_prog tr
  42
  43 run_prog ./stack-fcall
  44 run_strace -e getpid -k $args
  45
  46 expected='getpid f3 f2 f1 f0 main '
  47 result=$(sed -n '1,/(main+0x[a-f0-9]\+) .*/ s/^.*(\([^+]\+\)+0x[a-f0-9]\+) .*/\1/p' "$LOG" |
  48         tr '\n' ' ')
  49
  50 test "$result" = "$expected" || {
  51         echo "expected: \"$expected\""
  52         echo "result: \"$result\""
  53         dump_log_and_fail_with "$STRACE $args output mismatch"
  54 }
  55
  56 exit 0