tools/perf/tests/shell/trace+probe_libc_inet_pton.sh

   1 # probe libc's inet_pton & backtrace it with ping
   2
   3 # Installs a probe on libc's inet_pton function, that will use uprobes,
   4 # then use 'perf trace' on a ping to localhost asking for just one packet
   5 # with the a backtrace 3 levels deep, check that it is what we expect.
   6 # This needs no debuginfo package, all is done using the libc ELF symtab
   7 # and the CFI info in the binaries.
   8
   9 # Arnaldo Carvalho de Melo <acme@kernel.org>, 2017
  10
  11 . $(dirname $0)/lib/probe.sh
  12
  13 trace_libc_inet_pton_backtrace() {
  14         idx=0
  15         expected[0]="PING.*bytes"
  16         expected[1]="64 bytes from ::1.*"
  17         expected[2]=".*ping statistics.*"
  18         expected[3]=".*packets transmitted.*"
  19         expected[4]="rtt min.*"
  20         expected[5]="[0-9]+\.[0-9]+[[:space:]]+probe_libc:inet_pton:\([[:xdigit:]]+\)"
  21         expected[6]=".*inet_pton[[:space:]]\(/usr/lib.*/libc-[0-9]+\.[0-9]+\.so\)$"
  22         expected[7]="getaddrinfo[[:space:]]\(/usr/lib.*/libc-[0-9]+\.[0-9]+\.so\)$"
  23         expected[8]=".*\(.*/bin/ping.*\)$"
  24
  25         perf trace --no-syscalls -e probe_libc:inet_pton/max-stack=3/ ping -6 -c 1 ::1 2>&1 | grep -v ^$ | while read line ; do
  26                 echo $line
  27                 echo "$line" | egrep -q "${expected[$idx]}"
  28                 if [ $? -ne 0 ] ; then
  29                         printf "FAIL: expected backtrace entry %d \"%s\" got \"%s\"\n" $idx "${expected[$idx]}" "$line"
  30                         exit 1
  31                 fi
  32                 let idx+=1
  33                 [ $idx -eq 9 ] && break
  34         done
  35 }
  36
  37 skip_if_no_perf_probe && \
  38 perf probe -q /lib64/libc-*.so inet_pton && \
  39 trace_libc_inet_pton_backtrace
  40 err=$?
  41 rm -f ${file}
  42 perf probe -q -d probe_libc:inet_pton
  43 exit $err