diff options
author | Jeff Johnston <jjohnstn@redhat.com> | 2004-04-22 22:19:40 +0000 |
---|---|---|
committer | Jeff Johnston <jjohnstn@redhat.com> | 2004-04-22 22:19:40 +0000 |
commit | 7339a42e03e6168e949e1a41755ab6698e2fa043 (patch) | |
tree | 5feafc0cd8ee72b83a019b59500f575f281f4403 /gdb/testsuite | |
parent | 017315e42d8bd16ffdfb88b0625d0b244e6c8e87 (diff) | |
download | gdb-7339a42e03e6168e949e1a41755ab6698e2fa043.zip gdb-7339a42e03e6168e949e1a41755ab6698e2fa043.tar.gz gdb-7339a42e03e6168e949e1a41755ab6698e2fa043.tar.bz2 |
2004-04-22 Jeff Johnston <jjohnstn@redhat.com>
Daniel Jacobowitz <drow@mvista.com>
* gdb.threads/manythreads.c: New testcase.
* gdb.threads/manythreads.exp: Ditto.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 7 | ||||
-rw-r--r-- | gdb/testsuite/gdb.threads/manythreads.c | 42 | ||||
-rw-r--r-- | gdb/testsuite/gdb.threads/manythreads.exp | 125 |
3 files changed, 174 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d11849c..2b5e05d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-04-22 Jeff Johnston <jjohnstn@redhat.com> + Daniel Jacobowitz <drow@mvista.com> + + * gdb.threads/manythreads.c: New testcase. + * gdb.threads/manythreads.exp: Ditto. + 2004-04-22 Jim Blandy <jimb@redhat.com> * gdb.stabs/exclfwd.exp, gdb.stabs/exclfwd1.c, @@ -87,6 +93,7 @@ * lib/ada.exp: New file. +>>>>>>> 1.851 2004-03-24 Daniel Jacobowitz <drow@mvista.com> * gdb.base/gdb1250.exp: Use runto {allow-pending}. diff --git a/gdb/testsuite/gdb.threads/manythreads.c b/gdb/testsuite/gdb.threads/manythreads.c new file mode 100644 index 0000000..c874b15 --- /dev/null +++ b/gdb/testsuite/gdb.threads/manythreads.c @@ -0,0 +1,42 @@ +#include <pthread.h> +#include <stdio.h> + +void * +thread_function (void *arg) +{ + int x = (int)arg; + + printf ("Thread <%d> executing\n", x); + + return NULL; +} + +int +main (int argc, char **argv) +{ + pthread_attr_t attr; + pthread_t threads[256]; + int i, j; + + pthread_attr_init (&attr); + + /* Create a ton of quick-executing threads, then wait for them to + complete. */ + for (i = 0; i < 1000; ++i) + { + for (j = 0; j < 256; ++j) + { + pthread_create (&threads[j], &attr, thread_function, + (void *)(i * 1000 + j)); + } + + for (j = 0; j < 256; ++j) + { + pthread_join (threads[j], NULL); + } + } + + pthread_attr_destroy (&attr); + + return 0; +} diff --git a/gdb/testsuite/gdb.threads/manythreads.exp b/gdb/testsuite/gdb.threads/manythreads.exp new file mode 100644 index 0000000..dcedd7f --- /dev/null +++ b/gdb/testsuite/gdb.threads/manythreads.exp @@ -0,0 +1,125 @@ +# manythreads.exp -- Expect script to test stopping many threads +# 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@prep.ai.mit.edu + +# This file was written by Jeff Johnston. (jjohnstn@redhat.com) + +if $tracelevel then { + strace $tracelevel +} + +set prms_id 0 +set bug_id 0 + +set testfile "manythreads" +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_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} +gdb_test "set print sevenbit-strings" "" +runto_main + +# We'll need this when we send_gdb a ^C to GDB. Need to do it before we +# run the program and gdb starts saving and restoring tty states. +# On Ultrix, we don't need it and it is really slow (because shell_escape +# doesn't use vfork). +if ![istarget "*-*-ultrix*"] then { + gdb_test "shell stty intr '^C'" "" +} + +set message "first continue" +gdb_test_multiple "continue" "first continue" { + -re "error:.*$gdb_prompt $" { + fail "$message" + } + -re "Continuing" { + pass "$message" + } +} + +# Send a Ctrl-C and verify that we can do info threads and continue +after 1000 {send_gdb "\003"} +set message "stop threads 1" +gdb_test_multiple "" "stop threads 1" { + -re "\\\[New \[^\]\]*\\\]\r\n" { + exp_continue + } + -re "\\\[\[^\]\]* exited\\\]\r\n" { + exp_continue + } + -re "Thread \[^\n\]* executing\r\n" { + exp_continue + } + -re "Program received signal SIGINT.*$gdb_prompt $" { + pass "$message" + } + timeout { + fail "$message (timeout)" + } +} + +gdb_test "info threads" ".*1 Thread.*.LWP.*" + +set message "second continue" +gdb_test_multiple "continue" "second continue" { + -re "error:.*$gdb_prompt $" { + fail "$message" + } + -re "Continuing" { + pass "$message" + } +} + +# Send another Ctrl-C and verify that we can do info threads and quit +after 1000 {send_gdb "\003"} +set message "stop threads 2" +gdb_test_multiple "" "stop threads 2" { + -re "\\\[New \[^\]\]*\\\]\r\n" { + exp_continue + } + -re "\\\[\[^\]\]* exited\\\]\r\n" { + exp_continue + } + -re "Thread \[^\n\]* executing\r\n" { + exp_continue + } + -re "Program received signal SIGINT.*$gdb_prompt $" { + pass "stop threads 2" + } +} + +gdb_test_multiple "quit" "GDB exits after stopping multithreaded program" { + -re "The program is running. Exit anyway\\? \\(y or n\\) $" { + send_gdb "y\n" + exp_continue + } + eof { + pass "GDB exits after stopping multithreaded program" + } + timeout { + fail "GDB exits after stopping multithreaded program (timeout)" + } +} + |