blob: 0ccc65635c134ac9d5def4751675058ab9be2e0c (
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
|
# function to test error handling when reading nonexistent pmap elements
set test "ix_clear"
if {![installtest_p]} { untested $test; return }
set pass_result {foo\[1\] = 1 1*ERROR: empty aggregate*}
# spawn test
spawn stap $srcdir/$subdir/$test.stp
expect {
$pass_result {
pass "$test passed"
}
-timeout 30 {
send "\003"
fail "$test timed out"
}
eof {
fail "$test unexpected EOF" }
-re "semantic error:" { fail "$test compilation" }
}
catch { close }
wait
|
