| #!/bin/sh -e |
| |
| log_and_die() |
| { |
| echo "$1" |
| |
| exit 1 |
| } |
| |
| host_clock() |
| { |
| # BOOTTIME clock |
| awk '{print $1}' /proc/uptime |
| } |
| |
| goto_hyp_trace() |
| { |
| if [ -d "/sys/kernel/debug/tracing/hyp" ]; then |
| cd /sys/kernel/debug/tracing/hyp |
| return |
| fi |
| |
| if [ -d "/sys/kernel/tracing/hyp" ]; then |
| cd /sys/kernel/debug/tracing/hyp |
| return |
| fi |
| |
| echo "ERROR: hyp tracing folder not found!" |
| |
| exit 1 |
| } |
| |
| reset_hyp_trace() |
| { |
| echo 0 > tracing_on |
| echo 0 > trace |
| for event in events/hyp/*; do |
| echo 0 > $event/enable |
| done |
| } |
| |
| setup_hyp_trace() |
| { |
| [ -d "/sys/kernel/debug" ] \ |
| || log_and_die "debugfs not found" |
| |
| goto_hyp_trace |
| |
| reset_hyp_trace |
| |
| echo 16 > buffer_size_kb |
| echo 1 > events/hyp/selftest/enable |
| echo 1 > tracing_on |
| } |
| |
| stop_hyp_trace() |
| { |
| echo 0 > tracing_on |
| } |
| |
| write_events() |
| { |
| local num="$1" |
| local func="$2" |
| |
| for i in $(seq 1 $num); do |
| # Currently limited to a single CPU as we know the trace_pipe for all |
| # CPUs might produce out of order events. |
| taskset -a "$(echo $((1 << 0)))" echo 1 > /sys/kernel/debug/pkvm_selftest_event |
| [ -z "$func" -o $i -eq $num ] || eval $func |
| done |
| } |
| |
| non_consuming_read() |
| { |
| local output=$1 |
| |
| cat trace > $output |
| } |
| |
| consuming_read() |
| { |
| local output=$1 |
| |
| nohup cat trace_pipe > $output & |
| |
| echo $! |
| } |
| |
| run_test_non_consuming() |
| { |
| local nr_events=$1 |
| local func=$2 |
| local tmp="$(mktemp)" |
| local start_ts=0 |
| local end_ts=0 |
| |
| echo "Output trace file: $tmp" |
| |
| setup_hyp_trace |
| |
| start_ts=$(host_clock) |
| write_events $nr_events $func |
| stop_hyp_trace |
| end_ts=$(host_clock) |
| |
| non_consuming_read $tmp |
| validate_test $tmp $nr_events $start_ts $end_ts |
| ret=$? |
| |
| rm $tmp |
| } |
| |
| run_test_consuming() |
| { |
| local nr_events=$1 |
| local func=$2 |
| local tmp="$(mktemp)" |
| local start_ts=0 |
| local end_ts=0 |
| local pid=0 |
| |
| echo "Output trace file: $tmp" |
| |
| setup_hyp_trace |
| pid=$(consuming_read $tmp) |
| |
| start_ts=$(host_clock) |
| write_events $nr_events $func |
| stop_hyp_trace |
| end_ts=$(host_clock) |
| |
| kill $pid |
| validate_test $tmp $nr_events $start_ts $end_ts |
| |
| rm $tmp |
| } |
| |
| validate_test() |
| { |
| local output=$1 |
| local expected_events=$2 |
| local start_ts=$3 |
| local end_ts=$4 |
| local prev_ts=$3 |
| local ts=0 |
| local num_events=0 |
| |
| IFS=$'\n' |
| for line in $(cat $output); do |
| echo "$line" | grep -q -E "^# " && continue |
| ts=$(echo "$line" | awk '{print $2}' | cut -d ':' -f1) |
| if [ $(echo "$ts<$prev_ts" | bc) -eq 1 ]; then |
| log_and_die "Error event @$ts < $prev_ts" |
| fi |
| prev_ts=$ts |
| num_events=$((num_events + 1)) |
| done |
| |
| if [ $(echo "$ts>$end_ts" | bc) -eq 1 ]; then |
| log_and_die "Error event @$ts > $end_ts" |
| fi |
| |
| if [ $num_events -ne $expected_events ]; then |
| log_and_die "Expected $expected_events events, got $num_events" |
| fi |
| } |
| |
| test_base() |
| { |
| echo "Test consuming read..." |
| |
| run_test_consuming 1000 |
| |
| echo "done." |
| } |
| |
| test_extended_ts() |
| { |
| echo "Test Extended timestamp..." |
| |
| run_test_consuming 1000 "sleep 0.1" |
| |
| echo "done." |
| } |
| |
| __suspend() |
| { |
| echo +10 > /sys/class/rtc/rtc0/wakealarm |
| echo mem > /sys/power/state |
| } |
| |
| test_suspend() |
| { |
| echo "Test suspend..." |
| |
| run_test_consuming 2 "__suspend" |
| |
| echo "done." |
| } |
| |
| test_base |
| #test_extended_ts |
| #test_suspend |