blob: 6c22e039d7da87127d539b4d7cb1427c6e318099 (
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
50
51
52
53
54
55
56
|
# stap_run2.exp
#
# Simple script for testing multiple lines of exact output.
# stap_run2 TEST_NAME
# TEST_NAME is path to the current test
# Additional arguments are passed to stap as-is.
#
# global result_string must be set to the expected output
proc stap_run2 { TEST_NAME args } {
# zap the srcdir prefix
set test_file_name $TEST_NAME
set TEST_NAME [regsub {.*/testsuite/} $TEST_NAME ""]
if {[info procs installtest_p] != "" && ![installtest_p]} { untested $TEST_NAME; return }
# fix up expected string
regsub -all \n $::result_string \r\n output
# spawn test
set cmd [concat {stap -v} $args]
if [file readable $test_file_name] {
lappend cmd $test_file_name
}
eval spawn $cmd
expect {
-timeout 180
-re {^Pass\ ([1234]):[^\r]*\ in\ ([0-9]+)usr/([0-9]+)sys/([0-9]+)real\ ms.\r\n}
{set pass$expect_out(1,string) "\t$expect_out(2,string)\t$expect_out(3,string)\t$expect_out(4,string)"; exp_continue}
-re {^Pass\ ([34]): using cached [^\r]+\r\n}
{set pass$expect_out(1,string) "\t0\t0\t0"; exp_continue}
-re {^Pass 5: starting run.\r\n} {exp_continue}
-ex $output {
pass "$TEST_NAME"
expect {
-timeout 20
-re {^Pass\ ([5]):[^\r]*\ in\ ([0-9]+)usr/([0-9]+)sys/([0-9]+)real\ ms\.\r\n}
{set pass$expect_out(1,string) "\t$expect_out(2,string)\t$expect_out(3,string)\t$expect_out(4,string)"
verbose -log "metric:\t$TEST_NAME $pass1$pass2$pass3$pass4$pass5"}
}
}
timeout {
fail "$TEST_NAME timed out" }
eof {
fail "$TEST_NAME unexpected EOF" }
-re "semantic error:" { fail "$TEST_NAME compilation" }
-re "ERROR:" {
send "\003"
fail "$TEST_NAME runtime error"
}
}
catch close
wait
}
|
