testsuite/systemtap.samples/ioblocktest.exp


1
2
3
4
5
6
7
8
9
10
11
12

# Test the functionality of the various ioblock probes.

load_lib "stap_run.exp"
set test "ioblocktest"

proc sleep_ten_secs {} {
    after 10000;
    return 0;
}

set output_string "ioblock: \\S+\t\\d+\t\[RW]\t\[01]\r\n"
stap_run $srcdir/$subdir/$test.stp sleep_ten_secs $output_string