blob: 10ca7a289bc532a4f0ec8afa346009b5900e7e31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# Test the basic functionality of LKET tapset and lket-b2a utility
proc cleanfiles {} {
catch {exec /bin/sh -c "rm -f stpd_cpu* lket.out"}
}
set test "$subdir\/lket"
if {[info procs installtest_p]!="" && ![installtest_p]} {untested $test; return}
eval spawn stap -v -DMAXSKIPPED=100000 -bM $srcdir/$subdir/lket.stp
set failed 1
set timeout 180
expect {
-re {^Pass\ ([1234]):\ [^\r]*\r\n} {
set detail "pass$expect_out(1,string)";
exp_continue
}
-re {^Pass\ 5: starting run.\r\n} {
set detail "stap runtime";
exp_continue
}
-re {Pass\ 5:[^\r]*\ in\ ([0-9]+)usr/([0-9]+)sys/([0-9]+)real\ ms.\r\n} {
set failed 0
}
-re {parse error|semantic error} {set detail "$expect_out(0,string)"}
timeout {set detail "stap timeout"; send "\003" }
}
if {$failed} { fail "$test\($detail\)"; cleanfiles; return}
set failed [catch {exec /bin/sh -c "lket-b2a -f stpd_cpu*"}]
if { $failed || ![file readable "lket.out"] } {
fail "$test\(lket-b2a runtime\)"; cleanfiles; return
}
eval {spawn head -n 10 "lket.out"}
expect -re {^LKET\ Magic:\t0xAEFCDB6B\r\nInitHdrLen:\t[0-9]+\r\nVersion\ Major:\t[0-9]+\r\nVersion\ Minor:\t[0-9]+\r\nBig\ endian:\t(YES|NO)\r\nTiming\ method:\t.+\r\nBits\ width:\t[0-9]+\r\nInitial\ CPU\ timebase:\t[0-9]+\ \(cycles\ per\ microsecond\)\r\n\r\n[0-9]+\.[0-9]+\ CPU:[0-9]+\ PID:[0-9]+\ APPNAME:.+\ EVT_NAME:process_snapshot\ tid:[0-9]+,pid:[0-9]+,ppid:[0-9]+,pname:} {
set failed 0
}
if {$failed} {
fail "$test\(wrong init_header\)";
} else {
pass "$test\($failed\)";
}
cleanfiles
return
|
