* gdb.base/break.exp: Change test that deletes all breakpoints

	when no user breakpoints are installed.  A post 4.15 change
	causes gdb to no longer prompt in this case.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index b82f4cde2fb1ad6936e76aa756ebf60e0562ec82..b697d6c0399f883b95c7be5137cc4658528cdf8d 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+Wed Nov  1 15:57:16 1995  Fred Fish  <fnf@cygnus.com>
+
+       * gdb.base/break.exp: Change test that deletes all breakpoints
+       when no user breakpoints are installed.  A post 4.15 change
+       causes gdb to no longer prompt in this case.
+
 Tue Oct 31 15:13:43 1995  Fred Fish  <fnf@cygnus.com>
 
        * gdb.base/return.exp (return_tests):  Change xfail for test

diff --git a/gdb/testsuite/gdb.base/break.exp b/gdb/testsuite/gdb.base/break.exp
index ee8bb0a27870111369ba5f5c9676e320fe83eae2..2496e15c614cc3a43d43dda24c7cd3dc8c015dac 100644 (file)
--- a/gdb/testsuite/gdb.base/break.exp
+++ b/gdb/testsuite/gdb.base/break.exp
@@ -12,7 +12,7 @@
 # 
 # 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+# 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
@@ -56,28 +56,24 @@ if $usestubs {
 # test simple breakpoint setting commands
 #
 
-#
-# test deleting all breakpoints; note that gdb-init.exp provides a
-# "delete_breakpoints" proc for general use elsewhere
-#
+# Test deleting all breakpoints when there are none installed.
+# Between 4.15 and 4.16 a change made gdb stop prompting when
+# there are no user breakpoints installed.
+# Note that gdb-init.exp provides a "delete_breakpoints" proc
+# for general use elsewhere.
+
 send "delete breakpoints\n"
 expect {
     -re "Delete all breakpoints.*y or n. $"\
        { send "y\n"
            expect {
-               -re ".*$prompt $"\
-                   { send "info breakpoints\n"
-                       expect {
-                           -re "No breakpoints or watchpoints..*$prompt $" { pass "Deleted all breakpoints" }
-                           -re ".*$prompt $"       { fail "Deleted all breakpoints" }
-                           timeout                 { fail "Deleted all breakpoints" }
-                       }
-                   }
-               timeout             { fail "Deleted all breakpoints" }      
+               -re ".*$prompt $" {}
+               timeout { fail "Delete all breakpoints when none (timeout)" }
            }
+           fail "Delete all breakpoints when none (known pre 4.16 bug)"
        }
-    -re ".*$prompt $"       { fail "Deleted all breakpoints" }
-    timeout                { fail "Deleted all breakpoints" }
+    -re ".*$prompt $"       { pass "Delete all breakpoints when none" }
+    timeout                { fail "Delete all breakpoints when none" }
 }
 
 #
@@ -119,9 +115,15 @@ gdb_test "break $srcfile:70" \
 #
 # check to see what breakpoints are set
 #
+if $usestubs then {
+    set main_line 57
+} else {
+    set main_line 60
+}
+
 gdb_test "info break" \
     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
-\[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:57.*
+\[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$main_line.*
 \[0-9\]+\[\t \]+breakpoint     keep y.* in factorial at .*$srcfile:76.*
 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:64.*
 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:64.*
@@ -146,6 +148,10 @@ if !$usestubs then {
        send "run\n"
   }
   expect {
+    -re "The program .* has been started already.*y or n. $" {
+       send "y\n"
+       exp_continue
+    }
     -re "Starting program.*Breakpoint \[0-9\]+,.*main .*argc.*argv.* at .*$srcfile:60.*60\[\t \]+if .argc.* \{.*$prompt $"\
                            { pass "run until function breakpoint" }
     -re ".*$prompt $"       { fail "run until function breakpoint" }
@@ -153,8 +159,6 @@ if !$usestubs then {
   }
 }
 
-#if $usestubs {}
-
 #
 # run until the breakpoint at a line number
 #
@@ -244,7 +248,7 @@ gdb_test  "tbreak $srcfile:66" "Breakpoint.*at.* file .*$srcfile, line 66.*" "Te
 send "info break\n"
 expect {
     -re "Num Type.*Disp Enb Address.*What.*
-\[0-9\]+\[\t \]+breakpoint     del.*y.*in main at .*$srcfile:57.*
+\[0-9\]+\[\t \]+breakpoint     del.*y.*in main at .*$srcfile:$main_line.*
 \[0-9\]+\[\t \]+breakpoint     del.*y.*in factorial at .*$srcfile:76.*
 \[0-9\]+\[\t \]+breakpoint     del.*y.*in main at .*$srcfile:64.*
 \[0-9\]+\[\t \]+breakpoint     del.*y.*in main at .*$srcfile:70.*$prompt $" {
@@ -342,7 +346,10 @@ proc test_next_with_recursion {} {
     if $result!=0 then { return }
 
     # Continue until we exit.  Should not stop again.
-    gdb_test "continue" "Continuing.\r\n720\r\n\r\nProgram exited normally\\."\
+    # Don't bother to check the output of the program, that may be
+    # extremely tough for some remote systems.
+    gdb_test "continue"\
+               "Continuing.\[\r\n0-9\]+Program exited normally\\."\
                "continue until exit in recursive next test"
 }