File gdb-testsuite-handle-init-errors-in-gdb.mi-user... of Package gdb

Overview Repositories Revisions Requests Users Attributes Meta

File gdb-testsuite-handle-init-errors-in-gdb.mi-user-selected-context-sync.exp.patch of Package gdb (Revision 531d225e92cf30ba27a1907735e01283)

Currently displaying revision 531d225e92cf30ba27a1907735e01283 , Show latest

Index: gdb-12.1/gdb/testsuite/gdb.mi/user-selected-context-sync.exp
===================================================================
--- gdb-12.1.orig/gdb/testsuite/gdb.mi/user-selected-context-sync.exp
+++ gdb-12.1/gdb/testsuite/gdb.mi/user-selected-context-sync.exp
@@ -393,7 +393,7 @@ proc_with_prefix test_setup { mode } {
 	}
 
 	if { [mi_gdb_start "separate-mi-tty"] != 0 } {
-	    return
+	    return -1
 	}
     }
 
@@ -402,7 +402,7 @@ proc_with_prefix test_setup { mode } {
     mi_gdb_load $binfile
 
     if { [mi_runto_main] < 0 } {
-	return
+	return -1
     }
 
     # When using mi_expect_stop, we don't expect a prompt after the *stopped
@@ -443,6 +443,8 @@ proc_with_prefix test_setup { mode } {
 	# Prepare the second inferior for the test.
 	test_continue_to_start $mode 2
     }
+
+    return 0
 }
 
 # Reset the selection to frame #0 of thread THREAD.
@@ -1300,7 +1302,12 @@ proc_with_prefix test_cli_in_mi_frame {
 }
 
 foreach_with_prefix mode { "all-stop" "non-stop" } {
-    test_setup $mode
+    set test "setup done"
+    if { [test_setup $mode] == -1 } {
+	fail $test
+	continue
+    }
+    pass $test
 
     # Test selecting inferior, thread and frame from CLI

Places

File gdb-testsuite-handle-init-errors-in-gdb.mi-user-selected-context-sync.exp.patch of Package gdb (Revision 531d225e92cf30ba27a1907735e01283)

Places