[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / gdb669.exp

# Copyright 2002-2021 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# This file checks for the bug gdb/669, where the console
# command "info threads" and the MI command "-thread-list-ids"
# return different threads in the system.

load_lib mi-support.exp
set MIFLAGS "-i=mi"

#
# Start here
#
standard_testfile pthreads.c

set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
    return -1
}

mi_clean_restart $binfile
mi_runto_main
check_mi_and_console_threads "at main"

for {set i 0} {$i < 4} {incr i} {
  mi_next "next, try $i"
  check_mi_and_console_threads "try $i"
}

mi_gdb_exit
Commit	Line	Data
	1	# Copyright 2002-2021 Free Software Foundation, Inc.
	2
	3	# This program is free software; you can redistribute it and/or modify
	4	# it under the terms of the GNU General Public License as published by
	5	# the Free Software Foundation; either version 3 of the License, or
	6	# (at your option) any later version.
	7	#
	8	# This program is distributed in the hope that it will be useful,
	9	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	10	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	11	# GNU General Public License for more details.
	12	#
	13	# You should have received a copy of the GNU General Public License
	14	# along with this program. If not, see <http://www.gnu.org/licenses/>.
	15
	16	# This file checks for the bug gdb/669, where the console
	17	# command "info threads" and the MI command "-thread-list-ids"
	18	# return different threads in the system.
	19
	20	load_lib mi-support.exp
	21	set MIFLAGS "-i=mi"
	22
	23	#
	24	# Start here
	25	#
	26	standard_testfile pthreads.c
	27
	28	set options [list debug]
	29	if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
	30	return -1
	31	}
	32
	33	mi_clean_restart $binfile
	34	mi_runto_main
	35	check_mi_and_console_threads "at main"
	36
	37	for {set i 0} {$i < 4} {incr i} {
	38	mi_next "next, try $i"
	39	check_mi_and_console_threads "try $i"
	40	}
	41
	42	mi_gdb_exit
	43