diff options
author | Stephane Carrez <stcarrez@nerim.fr> | 2001-07-16 18:44:23 +0000 |
---|---|---|
committer | Stephane Carrez <stcarrez@nerim.fr> | 2001-07-16 18:44:23 +0000 |
commit | c477543d3a562402f09911258b44fc168aee1320 (patch) | |
tree | 3217544bf8da2d4b0a47b85cd51736de34421cdb /gdb | |
parent | 54cfd411afe802f0104e68850a7d0749ba977aac (diff) | |
download | gdb-c477543d3a562402f09911258b44fc168aee1320.zip gdb-c477543d3a562402f09911258b44fc168aee1320.tar.gz gdb-c477543d3a562402f09911258b44fc168aee1320.tar.bz2 |
* call-ar-st.exp: Use gdb_skip_float_test to avoid executing
tests that print a float.
* call-rt-st.exp: Likewise.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/call-ar-st.exp | 8 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/call-rt-st.exp | 5 |
3 files changed, 14 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index ebaaeda..7e0a941 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2001-07-16 Stephane Carrez <Stephane.Carrez@worldnet.fr> + + * call-ar-st.exp: Use gdb_skip_float_test to avoid executing + tests that print a float. + * call-rt-st.exp: Likewise. + 2001-07-12 Mark Kettenis <kettenis@gnu.org> * gdb.base/so-impl-ld.exp: Remove stray space that prevented diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp index 61380e9..d7721c8 100644 --- a/gdb/testsuite/gdb.base/call-ar-st.exp +++ b/gdb/testsuite/gdb.base/call-ar-st.exp @@ -1,4 +1,4 @@ -# Copyright 1998, 1999, 2000 +# Copyright 1998, 1999, 2000, 2001 # Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify @@ -193,7 +193,8 @@ gdb_test "tbreak 1220" \ "Breakpoint.* file .*$srcfile, line 1220.*" \ "tbreakpoint line 1220" -if ![gdb_skip_stdio_test "continuing to breakpoint 1220"] { +if {![gdb_skip_float_test "continuing to breakpoint 1220"] && \ + ![gdb_skip_stdio_test "continuing to breakpoint 1220"] } { send_gdb "continue\n" gdb_expect_list "continuing to breakpoint 1220" ".*$gdb_prompt $" { "Continuing\\." @@ -278,7 +279,8 @@ gdb_test "tbreak 1236" \ "Breakpoint.* file .*$srcfile, line 1236.*" \ "tbreakpoint line 1236" -if ![gdb_skip_stdio_test "continuing to 1236"] { +if {![gdb_skip_float_test "continuing to 1236"] && \ + ![gdb_skip_stdio_test "continuing to 1236"] } { send_gdb "continue\n" gdb_expect_list "continuing to 1236" ".*$gdb_prompt $" { "Continuing\\..*array_c" diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp index 70af9be..cfd81e1 100644 --- a/gdb/testsuite/gdb.base/call-rt-st.exp +++ b/gdb/testsuite/gdb.base/call-rt-st.exp @@ -1,4 +1,4 @@ -# Copyright 1998, 1999, 2000 Free Software Foundation, Inc. +# Copyright 1998, 1999, 2000, 2001 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 @@ -173,7 +173,8 @@ if {![gdb_skip_float_test "print print_one_double(*d1)"] && \ } } -if ![gdb_skip_stdio_test "print print_two_floats(*f3)"] { +if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \ + ![gdb_skip_stdio_test "print print_two_floats(*f3)"] } { send_gdb "print print_two_floats(*f3)\n" gdb_expect { -re ".*Contents of two_floats_t:\[ \r\n\]+-2\\.345000\[ \t]+1\\.000000\[ \r\n\]+.\[0-9\]+ = \{float1 = -2\\.34500003, float2 = 1\}.*$gdb_prompt $" { |