Re: [RFA/testsuite] new gdb.threads testcase

[Michael Snyder <msnyder at redhat dot com>]

Joel Brobecker wrote:
> Re: http://sources.redhat.com/ml/gdb-patches/2004-07/msg00443.html
>
> Here is new testcase checking for the problem reported in the message
> above.
>
> 2004-07-29  Joel Brobecker  <brobecker@gnat.com>
>
>         * bp_in_thread.exp: New testcase.
>
> Tested on AIX 5.1, before and after the patch posted in the message
> above. Failed 5 times in a row before, never failed in 10 tries after.
>
> OK to commit? (I must say that I couldn't find a good name for that
> test, so I'm ready to change it to anything else that you might prefer).
>
> Another thing: I reused the code of another testcase. I hope that's fine.
>
> Cheers,

Joel,

Modulo Michael Chastain's comments, this looks fine to me.
Sorry for the delay, I seem to have confused this patch
with another one.

Michael

> ------------------------------------------------------------------------
>
> # Copyright (C) 2004 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 2 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, write to the Free Software
> # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
>
> # Please email any bugs, comments, and/or additions to this file to:
> # bug-gdb@gnu.org
>
> if $tracelevel then {
> 	strace $tracelevel
> }
>
> set testfile "pthread_cond_wait"
> set srcfile ${testfile}.c
> set binfile ${objdir}/${subdir}/${testfile}
>
> if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug "incdir=${objdir}"]] != "" } {
>     return -1
> }
>
> gdb_exit
> gdb_start
> gdb_reinitialize_dir $srcdir/$subdir
> gdb_load ${binfile}
>
> gdb_test "break noreturn" \
>          "Breakpoint 1 at .*: file .*${srcfile}, line .*" \
>          "breakpoint on noreturn"
>
> # Run the program and make sure GDB reports that we stopped after
> # hitting breakpoint 1 in noreturn().
>
> gdb_test "run" \
>          ".*Breakpoint 1, noreturn ().*" \
>          "run to noreturn"