File: tcptest.exp

package info (click to toggle)
systemtap 3.1-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 32,860 kB
  • ctags: 12,513
  • sloc: cpp: 58,610; ansic: 58,189; exp: 37,322; sh: 10,633; xml: 7,771; perl: 2,252; python: 2,066; tcl: 1,305; makefile: 969; lisp: 105; java: 100; awk: 94; asm: 91; sed: 16
file content (12 lines) | stat: -rw-r--r-- 469 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
 
# Test TCP probes
set test "tcptest"

set tcp_tcl "$srcdir/$subdir/tcptest.tcl"
proc tcp_gen { } {
   exec $::tcp_tcl 1 
   return 0
}
set output_header "UID\tPID\tSIZE\tNAME\t\t\tPORT\tSOURCE\t\tRTO\tRCVMSS\tSSTHRES\tCWND\tSTATE\r\n"
set output_rows "((\\d+\t\\d+\t\\d+\t\\S+\t\t\t\\d+\t\\S*\t\\d+\t\\d+\t\\d+\t\\d+\t\\d+)?\r\n){5}"
set output_string "TCP totalbytes: \\d+\r\n$output_header$output_rows"
stap_run $test tcp_gen $output_string $srcdir/$subdir/$test.stp