#!/bin/bash# perf_probe :: Add probes, list and remove them (exclusive)# SPDX-License-Identifier: GPL-2.0 ##	test_adding_kernel of perf_probe test#	Author: Masami Hiramatsu <masami.hiramatsu.pt@hitachi.com>#	Author: Michael Petlan <mpetlan@redhat.com>##	Description:##		This test tests adding of probes, their correct listing#		and removing.# DIR_PATH="$(dirname $0)"TEST_RESULT=0 # include working environment. "$DIR_PATH/../common/init.sh" # shellcheck source=lib/probe_vfs_getname.sh. "$DIR_PATH/../lib/probe_vfs_getname.sh" TEST_PROBE=${TEST_PROBE:-"inode_permission"} # set NO_DEBUGINFO to skip testcase if debuginfo is not present# skip_if_no_debuginfo returns 2 if debuginfo is not presentskip_if_no_debuginfoif [ $? -eq 2 ]; then	NO_DEBUGINFO=1fi check_kprobes_availableif [ $? -ne 0 ]; then	print_overall_skipped	exit 2fi  ### basic probe adding for opt in "" "-a" "--add"; do	clear_all_probes	$CMD_PERF probe $opt $TEST_PROBE 2> $LOGS_DIR/adding_kernel_add$opt.err	PERF_EXIT_CODE=$? 	"$DIR_PATH/../common/check_all_patterns_found.pl" \		"Added new events?:" "probe:$TEST_PROBE" "on $TEST_PROBE" \		< $LOGS_DIR/adding_kernel_add$opt.err	CHECK_EXIT_CODE=$? 	print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "adding probe $TEST_PROBE :: $opt"	(( TEST_RESULT += $? ))done  ### listing added probe :: perf list # any added probes should appear in perf-list output$CMD_PERF list probe:\* > $LOGS_DIR/adding_kernel_list.logPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_lines_matched.pl" \	"$RE_LINE_EMPTY" "List of pre-defined events" \	"probe:${TEST_PROBE}(?:_\d+)?\s+\[Tracepoint event\]" \	"Metric Groups:" < $LOGS_DIR/adding_kernel_list.logCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "listing added probe :: perf list"(( TEST_RESULT += $? ))  ### listing added probe :: perf probe -l # '-l' should list all the added probes as well$CMD_PERF probe -l > $LOGS_DIR/adding_kernel_list-l.logPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"\s*probe:${TEST_PROBE}(?:_\d+)?\s+\(on ${TEST_PROBE}(?:[:\+]$RE_NUMBER_HEX)?@.+\)" \	< $LOGS_DIR/adding_kernel_list-l.logCHECK_EXIT_CODE=$? if [ $NO_DEBUGINFO ] ; then	print_testcase_skipped $NO_DEBUGINFO $NO_DEBUGINFO "Skipped due to missing debuginfo"else	print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "listing added probe :: perf probe -l"fi (( TEST_RESULT += $? ))  ### using added probe $CMD_PERF stat -e probe:$TEST_PROBE\* -o $LOGS_DIR/adding_kernel_using_probe.log -- cat /proc/uptime > /dev/nullPERF_EXIT_CODE=$? REGEX_STAT_HEADER="\s*Performance counter stats for \'cat /proc/uptime\':"REGEX_STAT_VALUES="\s*\d+\s+probe:$TEST_PROBE"# the value should be greater than 1REGEX_STAT_VALUE_NONZERO="\s*[1-9][0-9]*\s+probe:$TEST_PROBE"REGEX_STAT_TIME="\s*$RE_NUMBER\s+seconds (?:time elapsed|user|sys)""$DIR_PATH/../common/check_all_lines_matched.pl" \	"$REGEX_STAT_HEADER" "$REGEX_STAT_VALUES" "$REGEX_STAT_TIME" \	"$RE_LINE_COMMENT" "$RE_LINE_EMPTY" < $LOGS_DIR/adding_kernel_using_probe.logCHECK_EXIT_CODE=$?"$DIR_PATH/../common/check_all_patterns_found.pl" \	"$REGEX_STAT_HEADER" "$REGEX_STAT_VALUE_NONZERO" "$REGEX_STAT_TIME" \	< $LOGS_DIR/adding_kernel_using_probe.log(( CHECK_EXIT_CODE += $? )) print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "using added probe"(( TEST_RESULT += $? ))  ### removing added probe # '-d' should remove the probe$CMD_PERF probe -d $TEST_PROBE\* 2> $LOGS_DIR/adding_kernel_removing.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_lines_matched.pl" \	"Removed event: probe:$TEST_PROBE" < $LOGS_DIR/adding_kernel_removing.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "deleting added probe"(( TEST_RESULT += $? ))  ### listing removed probe # removed probes should NOT appear in perf-list output$CMD_PERF list probe:\* > $LOGS_DIR/adding_kernel_list_removed.logPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_lines_matched.pl" \	"$RE_LINE_EMPTY" "List of pre-defined events" "Metric Groups:" \	< $LOGS_DIR/adding_kernel_list_removed.logCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "listing removed probe (should NOT be listed)"(( TEST_RESULT += $? ))  ### dry run # the '-n' switch should run it in dry mode$CMD_PERF probe -n --add $TEST_PROBE 2> $LOGS_DIR/adding_kernel_dryrun.errPERF_EXIT_CODE=$? # check for the output (should be the same as usual)"$DIR_PATH/../common/check_all_patterns_found.pl" \	"Added new events?:" "probe:$TEST_PROBE" "on $TEST_PROBE" \	< $LOGS_DIR/adding_kernel_dryrun.errCHECK_EXIT_CODE=$? # check that no probe was added in real! ( $CMD_PERF probe -l | grep "probe:$TEST_PROBE" )(( CHECK_EXIT_CODE += $? )) print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "dry run :: adding probe"(( TEST_RESULT += $? ))  ### force-adding probes # when using '--force' a probe should be added even if it is already there$CMD_PERF probe --add $TEST_PROBE 2> $LOGS_DIR/adding_kernel_forceadd_01.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"Added new events?:" "probe:$TEST_PROBE" "on $TEST_PROBE" \	< $LOGS_DIR/adding_kernel_forceadd_01.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "force-adding probes :: first probe adding"(( TEST_RESULT += $? )) # adding existing probe without '--force' should fail! $CMD_PERF probe --add $TEST_PROBE 2> $LOGS_DIR/adding_kernel_forceadd_02.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"Error: event \"$TEST_PROBE\" already exists." \	"Error: Failed to add events." < $LOGS_DIR/adding_kernel_forceadd_02.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "force-adding probes :: second probe adding (without force)"(( TEST_RESULT += $? )) # adding existing probe with '--force' should passNO_OF_PROBES=`$CMD_PERF probe -l $TEST_PROBE| wc -l`$CMD_PERF probe --force --add $TEST_PROBE 2> $LOGS_DIR/adding_kernel_forceadd_03.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"Added new events?:" "probe:${TEST_PROBE}_${NO_OF_PROBES}" \	"on $TEST_PROBE" < $LOGS_DIR/adding_kernel_forceadd_03.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "force-adding probes :: second probe adding (with force)"(( TEST_RESULT += $? ))  ### using doubled probe # since they are the same, they should produce the same results$CMD_PERF stat -e probe:$TEST_PROBE -e probe:${TEST_PROBE}_${NO_OF_PROBES} -x';' -o $LOGS_DIR/adding_kernel_using_two.log -- bash -c 'cat /proc/cpuinfo > /dev/null'PERF_EXIT_CODE=$? REGEX_LINE="$RE_NUMBER;+probe:${TEST_PROBE}_?(?:$NO_OF_PROBES)?;$RE_NUMBER;$RE_NUMBER""$DIR_PATH/../common/check_all_lines_matched.pl" \	"$REGEX_LINE" "$RE_LINE_EMPTY" "$RE_LINE_COMMENT" \	< $LOGS_DIR/adding_kernel_using_two.logCHECK_EXIT_CODE=$? VALUE_1=`grep "$TEST_PROBE;" $LOGS_DIR/adding_kernel_using_two.log | awk -F';' '{print $1}'`VALUE_2=`grep "${TEST_PROBE}_${NO_OF_PROBES};" $LOGS_DIR/adding_kernel_using_two.log | awk -F';' '{print $1}'` test $VALUE_1 -eq $VALUE_2(( CHECK_EXIT_CODE += $? )) print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "using doubled probe"  ### removing multiple probes # using wildcards should remove all matching probes$CMD_PERF probe --del \* 2> $LOGS_DIR/adding_kernel_removing_wildcard.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_lines_matched.pl" \	"Removed event: probe:$TEST_PROBE" \	"Removed event: probe:${TEST_PROBE}_1" < $LOGS_DIR/adding_kernel_removing_wildcard.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "removing multiple probes"(( TEST_RESULT += $? ))  ### wildcard adding support $CMD_PERF probe -nf --max-probes=512 -a 'vfs_* $params' 2> $LOGS_DIR/adding_kernel_adding_wildcard.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"probe:vfs_mknod" "probe:vfs_create" "probe:vfs_rmdir" \	"probe:vfs_link" "probe:vfs_write" < $LOGS_DIR/adding_kernel_adding_wildcard.errCHECK_EXIT_CODE=$? if [ $NO_DEBUGINFO ] ; then	print_testcase_skipped $NO_DEBUGINFO $NO_DEBUGINFO "Skipped due to missing debuginfo"else	print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "wildcard adding support"fi (( TEST_RESULT += $? ))  ### non-existing variable # perf probe should survive a non-existing variable probing attempt{ $CMD_PERF probe 'vfs_read somenonexistingrandomstuffwhichisalsoprettylongorevenlongertoexceed64' ; } 2> $LOGS_DIR/adding_kernel_nonexisting.errPERF_EXIT_CODE=$? # the exitcode should not be 0 or segfaulttest $PERF_EXIT_CODE -ne 139 -a $PERF_EXIT_CODE -ne 0PERF_EXIT_CODE=$? # check that the error message is reasonable"$DIR_PATH/../common/check_all_patterns_found.pl" \	"Failed to find" \	"somenonexistingrandomstuffwhichisalsoprettylongorevenlongertoexceed64" \	< $LOGS_DIR/adding_kernel_nonexisting.errCHECK_EXIT_CODE=$?"$DIR_PATH/../common/check_all_patterns_found.pl" \	"in this function|at this address" "Error" "Failed to add events" \	< $LOGS_DIR/adding_kernel_nonexisting.err(( CHECK_EXIT_CODE += $? ))"$DIR_PATH/../common/check_all_lines_matched.pl" \	"Failed to find" "Error" "Probe point .+ not found" "optimized out" \	"Use.+\-\-range option to show.+location range" \	< $LOGS_DIR/adding_kernel_nonexisting.err(( CHECK_EXIT_CODE += $? ))"$DIR_PATH/../common/check_no_patterns_found.pl" \	"$RE_SEGFAULT" < $LOGS_DIR/adding_kernel_nonexisting.err(( CHECK_EXIT_CODE += $? )) if [ $NO_DEBUGINFO ]; then	print_testcase_skipped $NO_DEBUGINFO $NO_DEBUGINFO "Skipped due to missing debuginfo"else	print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "non-existing variable"fi (( TEST_RESULT += $? ))  ### function with return value # adding probe with return value$CMD_PERF probe --add "$TEST_PROBE%return \$retval" 2> $LOGS_DIR/adding_kernel_func_retval_add.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"Added new events?:" "probe:$TEST_PROBE" \	"on $TEST_PROBE%return with \\\$retval" \	< $LOGS_DIR/adding_kernel_func_retval_add.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "function with retval :: add"(( TEST_RESULT += $? )) # recording some data$CMD_PERF record -e probe:$TEST_PROBE\* -o $CURRENT_TEST_DIR/perf.data -- cat /proc/cpuinfo > /dev/null 2> $LOGS_DIR/adding_kernel_func_retval_record.errPERF_EXIT_CODE=$? "$DIR_PATH/../common/check_all_patterns_found.pl" \	"$RE_LINE_RECORD1" "$RE_LINE_RECORD2" \	< $LOGS_DIR/adding_kernel_func_retval_record.errCHECK_EXIT_CODE=$? print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "function with retval :: record"(( TEST_RESULT += $? )) # perf script should report the function calls with the correct arg values$CMD_PERF script -i $CURRENT_TEST_DIR/perf.data > $LOGS_DIR/adding_kernel_func_retval_script.logPERF_EXIT_CODE=$? REGEX_SCRIPT_LINE="\s*cat\s+$RE_NUMBER\s+\[$RE_NUMBER\]\s+$RE_NUMBER:\s+probe:$TEST_PROBE\w*:\s+\($RE_NUMBER_HEX\s+<\-\s+$RE_NUMBER_HEX\)\s+arg1=$RE_NUMBER_HEX""$DIR_PATH/../common/check_all_lines_matched.pl" \	"$REGEX_SCRIPT_LINE" < $LOGS_DIR/adding_kernel_func_retval_script.logCHECK_EXIT_CODE=$?"$DIR_PATH/../common/check_all_patterns_found.pl" \	"$REGEX_SCRIPT_LINE" < $LOGS_DIR/adding_kernel_func_retval_script.log(( CHECK_EXIT_CODE += $? )) print_results $PERF_EXIT_CODE $CHECK_EXIT_CODE "function argument probing :: script"(( TEST_RESULT += $? ))  clear_all_probes # print overall resultsprint_overall_results "$TEST_RESULT"exit $?