0001
0002
0003
0004
0005 set -e
0006
0007 err=0
0008 perfdata=$(mktemp /tmp/__perf_test.perf.data.XXXXX)
0009
0010 cleanup() {
0011 rm -f ${perfdata}
0012 rm -f ${perfdata}.old
0013 trap - exit term int
0014 }
0015
0016 trap_cleanup() {
0017 cleanup
0018 exit 1
0019 }
0020 trap trap_cleanup exit term int
0021
0022 test_per_thread() {
0023 echo "Basic --per-thread mode test"
0024 if ! perf record -e instructions:u -o ${perfdata} --quiet true 2> /dev/null
0025 then
0026 echo "Per-thread record [Skipped instructions:u not supported]"
0027 if [ $err -ne 1 ]
0028 then
0029 err=2
0030 fi
0031 return
0032 fi
0033 if ! perf record -e instructions:u --per-thread -o ${perfdata} true 2> /dev/null
0034 then
0035 echo "Per-thread record of instructions:u [Failed]"
0036 err=1
0037 return
0038 fi
0039 if ! perf report -i ${perfdata} -q | egrep -q true
0040 then
0041 echo "Per-thread record [Failed missing output]"
0042 err=1
0043 return
0044 fi
0045 echo "Basic --per-thread mode test [Success]"
0046 }
0047
0048 test_register_capture() {
0049 echo "Register capture test"
0050 if ! perf list | egrep -q 'br_inst_retired.near_call'
0051 then
0052 echo "Register capture test [Skipped missing instruction]"
0053 if [ $err -ne 1 ]
0054 then
0055 err=2
0056 fi
0057 return
0058 fi
0059 if ! perf record --intr-regs=\? 2>&1 | egrep -q 'available registers: AX BX CX DX SI DI BP SP IP FLAGS CS SS R8 R9 R10 R11 R12 R13 R14 R15'
0060 then
0061 echo "Register capture test [Skipped missing registers]"
0062 return
0063 fi
0064 if ! perf record -o - --intr-regs=di,r8,dx,cx -e br_inst_retired.near_call:p \
0065 -c 1000 --per-thread true 2> /dev/null \
0066 | perf script -F ip,sym,iregs -i - 2> /dev/null \
0067 | egrep -q "DI:"
0068 then
0069 echo "Register capture test [Failed missing output]"
0070 err=1
0071 return
0072 fi
0073 echo "Register capture test [Success]"
0074 }
0075
0076 test_per_thread
0077 test_register_capture
0078
0079 cleanup
0080 exit $err