blob: 522d8f8942a1621b770d281e4681bc61c07c3c8a (
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
if $tracelevel then {
strace $tracelevel
}
set prms_id 0
set bug_id 0
set binfile $objdir/$subdir/interrupt
if ![file exists $binfile] then {
perror "$binfile does not exist."
return 0
} else {
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
gdb_test "shell stty intr ^C" "" \
"set interrupt character in interrupt.exp"
if [runto main] then {
send "continue\n"
expect {
-re "\r\ntalk to me baby\r\n$" {}
timeout { fail "run (timeout)" }
eof { fail "run (eof)" }
}
# This should appear twice, once for the echo and once for the
# program's output. Under dejagnu (but not interactively) for
# SunOS4, it only appears once. Don't worry about it, I imagine
# dejagnu has just done something to the tty modes.
send "a\n"
expect {
-re "^a\r\n(|a\r\n)$" {}
timeout { fail "echo a (timeout)" }
eof { fail "echo a (eof)" }
}
# Wait until the program is in the read system call again.
exec sleep 2
send "\003"
expect {
-re "Program received signal SIGINT.*$prompt $" {
pass "send control C"
}
-re ".*$prompt $" { fail "send control C" }
timeout { fail "send control C (timeout)" }
eof { fail "send control C (eof)" }
}
send "p func1 ()\n"
expect {
-re " = 4.*$prompt $" { pass "call function when asleep" }
-re "$prompt $" { fail "call function when asleep (wrong output)" }
timeout {
# This fail probably happens whenever we use /proc (we
# don't use PRSABORT), but apparently also happens on
# other machines as well.
setup_xfail "sparc-*-solaris2*"
setup_xfail "mips-*-ultrix*"
setup_xfail "hppa*-*-*"
setup_xfail "i386*-*-bsd*"
setup_xfail "*-*-sysv4*"
setup_xfail "vax-*-*"
setup_xfail "alpha-*-*"
setup_xfail "*-*-irix*"
fail "call function when asleep (stays asleep)"
# Send a newline to wake it up
send "\n"
gdb_test "" " = 4" "call function after waking it"
}
eof { fail "call function when asleep (eof)" }
}
# Now try calling the function again.
gdb_test "p func1 ()" " = 4" "call function a second time"
# And the program should still be doing the same thing.
# The optional trailing \r\n is in case we sent a newline above
# to wake the program, in which case the program now sends it
# back. We check for it either here or in the next expect
# command, because which one it ends up in is timing dependent.
send "continue\n"
# For some reason, i386-*-sysv4 gdb fails to issue the Continuing
# message, but otherwise appears normal (FIXME).
expect {
-re "^continue\r\nContinuing.\r\n(\r\n|)$" { pass "continue" }
-re "^continue\r\n\r\n" { fail "continue (missing Continuing.)" }
-re "$prompt $" { fail "continue" }
timeout { fail "continue" }
eof { fail "continue" }
}
send "data\n"
# The optional leading \r\n is in case we sent a newline above
# to wake the program, in which case the program now sends it
# back.
expect {
-re "^(\r\n|)data\r\n(|data\r\n)$" { pass "echo data" }
timeout { fail "echo data (timeout)" }
eof { fail "echo data (eof)" }
}
send "\004"
expect {
-re "end of file.*Program exited normally.*$prompt $" {
pass "send end of file"
}
-re "$prompt $" { fail "send end of file" }
timeout { fail "send end of file (timeout)" }
eof { fail "send end of file (eof)" }
}
}
}
return 0
|
