testsuite/systemtap.samples/tcptest.exp


1
2
3
4
5
6
7
8
9
10
11

# Test TCP probes
load_lib "stap_run.exp"
set test "tcptest"

set tcp_tcl "$srcdir/$subdir/tcptest.tcl"
proc tcp_gen { } {
   exec $::tcp_tcl 1 
   return 0
}
set output_string "\\mTCP totalbytes: \\d+\\M"
stap_run $srcdir/$subdir/$test.stp tcp_gen $output_string