1# step2.exp -- Expect script to test gdb step.c
2# Copyright (C) 1992, 1997, 2007 Free Software Foundation, Inc.
3
4# This program is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3 of the License, or
7# (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12# GNU General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program.  If not, see <http://www.gnu.org/licenses/>.
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20# This file was written by Jeff Law. (law@cygnus.com)
21#
22
23
24if $tracelevel then {
25	strace $tracelevel
26}
27
28set program_exited 0
29
30# A simple and crude test to see that we can step two threads independently
31proc test_multi_threaded_stepping {} {
32    global gdb_prompt
33    global hex
34    global srcfile
35    global decimal
36
37    # Set breakpoints in code that we know is executed in only
38    # thread of control.
39    gdb_test "break thread1" \
40	     "Break.* at $hex: file .*$srcfile, line $decimal\\."
41    gdb_test "break thread2" \
42	     "Break.* at $hex: file .*$srcfile, line $decimal\\."
43
44    # the order in which things happen is indeterminate.  So we basically
45    # look for a set of events and note that each one happens and that
46    # all of the required events have happened when we're done.
47    #
48    # Right now we only verify that both threads start and that they
49    # both call pthread_cond_wait twice.
50    set thread1started 0
51    set thread1condwait 0
52    set thread2started 0
53    set thread2condwait 0
54
55    send_gdb "run\n"
56    gdb_expect {
57	-re "The program .* has been started already.*y or n. $" {
58	    send_gdb "y\n"
59	    exp_continue
60	}
61	-re ".*Breakpoint \[0-9\]+,.*thread1.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
62	    if { $thread1started != 0 } then {
63		fail "thread1 started"
64		return
65	    } else {
66		set thread1started 1
67		pass "thread1 started"
68	    }
69	    send_gdb "step\n"
70	    exp_continue
71	}
72	-re ".*Breakpoint \[0-9\]+,.*thread2.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
73	    if { $thread2started != 0 } then {
74		fail "thread2 started"
75		return
76	    } else {
77		set thread2started 1
78		pass "thread2 started"
79	    }
80	    send_gdb "step\n"
81	    exp_continue
82	}
83	-re ".*pthread_cond_wait.*cv_a.*$gdb_prompt" {
84	    if { $thread1started == 0 } then {
85		fail "thread1 condwait"
86		return
87	    }
88	    if { $thread1condwait < 2 } then {
89		pass "thread1 condwait"
90		incr thread1condwait
91	    }
92	    if { $thread2condwait == 2 } then {
93		pass "multi threaded stepping"
94		return
95	    }
96	    send_gdb "step\n"
97	    exp_continue
98	}
99
100	-re ".*pthread_cond_wait.*cv_b.*$gdb_prompt" {
101	    if { $thread2started == 0 } then {
102		fail "thread2 condwait"
103		return
104	    }
105	    if { $thread2condwait < 2 } then {
106		pass "thread2 condwait"
107		incr thread2condwait
108	    }
109	    if { $thread1condwait == 2 } then {
110		pass "multi threaded stepping"
111		return
112	    }
113	    send_gdb "step\n"
114	    exp_continue
115	}
116
117	-re "$gdb_prompt" {
118	    send_gdb "step\n"
119	    exp_continue
120	}
121	default { fail "multi threaded stepping" }
122    }
123}
124
125# Check to see if we have an executable to test.  If not, then either we
126# haven't tried to compile one, or the compilation failed for some reason.
127# In either case, just notify the user and skip the tests in this file.
128
129set binfile "step"
130set srcfile "step.c"
131
132if ![file exists $objdir/$subdir/$binfile] then {
133    if $all_flag then {
134	warning "$binfile does not exist; tests suppressed."
135    }
136    return
137}
138
139set prms_id 0
140set bug_id 0
141
142# Start with a fresh gdb.
143
144gdb_exit
145gdb_start
146gdb_reinitialize_dir $srcdir/$subdir
147gdb_load $objdir/$subdir/$binfile
148
149test_multi_threaded_stepping
150