Something went wrong. Try again.
Linux kernel mirror (for testing) git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103#!/bin/bash# perf script perl tests# SPDX-License-Identifier: GPL-2.0
set -e
# set PERF_EXEC_PATH to find scripts in the source directoryperfdir=$(dirname "$0")/../..if [ -e "$perfdir/scripts/perl/Perf-Trace-Util" ]; then export PERF_EXEC_PATH=$perfdirfi
perfdata=$(mktemp /tmp/__perf_test_script_perl.perf.data.XXXXX)generated_script=$(mktemp /tmp/__perf_test_script.XXXXX.pl)
cleanup() { rm -f "${perfdata}" rm -f "${generated_script}" trap - EXIT TERM INT}
trap_cleanup() { echo "Unexpected signal in ${FUNCNAME[1]}" cleanup exit 1}trap trap_cleanup TERM INTtrap cleanup EXIT
check_perl_support() { if perf check feature -q libperl; then return 0 fi echo "perf script perl test [Skipped: no libperl support]" return 2}
test_script() { local event_name=$1 local expected_output=$2 local record_opts=$3
echo "Testing event: $event_name"
# Try to record. If this fails, it might be permissions or lack of support. # We return 2 to indicate "skip this event" rather than "fail test". if ! perf record -o "${perfdata}" -e "$event_name" $record_opts -- perf test -w thloop > /dev/null 2>&1; then echo "perf script perl test [Skipped: failed to record $event_name]" return 2 fi
echo "Generating perl script..." if ! perf script -i "${perfdata}" -g "${generated_script}"; then echo "perf script perl test [Failed: script generation for $event_name]" return 1 fi
if [ ! -f "${generated_script}" ]; then echo "perf script perl test [Failed: script not generated for $event_name]" return 1 fi
echo "Executing perl script..." output=$(perf script -i "${perfdata}" -s "${generated_script}" 2>&1)
if echo "$output" | grep -q "$expected_output"; then echo "perf script perl test [Success: $event_name triggered $expected_output]" return 0 else echo "perf script perl test [Failed: $event_name did not trigger $expected_output]" echo "Output was:" echo "$output" | head -n 20 return 1 fi}
check_perl_support || exit 2
# Try tracepoint firsttest_script "sched:sched_switch" "sched::sched_switch" "-c 1" && res=0 || res=$?
if [ $res -eq 0 ]; then exit 0elif [ $res -eq 1 ]; then exit 1fi
# If tracepoint skipped (res=2), try task-clock# For generic events like task-clock, the generated script uses process_event()# which dumps data using Data::Dumper. We check for "$VAR1" which is standard Dumper output.test_script "task-clock" "\$VAR1" "-c 100" && res=0 || res=$?
if [ $res -eq 0 ]; then exit 0elif [ $res -eq 1 ]; then exit 1fi
# If both skippedecho "perf script perl test [Skipped: Could not record tracepoint or task-clock]"exit 2