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

   1 #!/bin/sh
   2
   3 # Ensure that strace -k works.
   4
   5 . "${srcdir=.}/init.sh"
   6
   7 # strace -k is implemented using /proc/$pid/maps
   8 [ -f /proc/self/maps ] ||
   9         framework_skip_ '/proc/self/maps is not available'
  10
  11 check_prog sed
  12 check_prog tr
  13
  14 ./stack-fcall ||
  15         fail_ 'stack-fcall failed'
  16
  17 $STRACE -h | grep '^-k' > /dev/null ||
  18         skip_ 'strace -k is not available'
  19
  20 args="-e getpid -k ./stack-fcall"
  21 $STRACE $args > $LOG 2>&1 || {
  22         cat $LOG
  23         fail_ "$STRACE $args failed"
  24 }
  25
  26 expected='getpid f3 f2 f1 f0 main '
  27 result=$(sed -n '1,/(main+0x[a-f0-9]\+) .*/ s/^.*(\([^+]\+\)+0x[a-f0-9]\+) .*/\1/p' $LOG |
  28         tr '\n' ' ')
  29
  30 test "$result" = "$expected" || {
  31         cat $LOG
  32         echo "expected: \"$expected\""
  33         echo "result: \"$result\""
  34         fail_ "unexpected output from $STRACE $args"
  35 }
  36
  37 exit 0