diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/catch_ex.exp | 9 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_catch_ex.exp | 16 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp | 16 |
4 files changed, 31 insertions, 16 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index ae72ce6..ad4e503 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2020-05-12 Tom de Vries <tdevries@suse.de> + * gdb.ada/catch_ex.exp: Use with_test_prefix. + * gdb.ada/mi_catch_ex.exp: Same. + * gdb.ada/mi_catch_ex_hand.exp: Same. + +2020-05-12 Tom de Vries <tdevries@suse.de> + * gdb.fortran/complex.exp: Use with_test_prefix. 2020-05-12 Tom de Vries <tdevries@suse.de> diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 5bdb63c..7bb1c06 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -162,9 +162,10 @@ gdb_test "continue" \ "Continuing\.$eol$temp_catchpoint_msg$eol.*SPOT1" \ "continuing to temporary catchpoint" -gdb_test "continue" \ - "Continuing\..*$inferior_exited_re.*" \ - "continuing to program completion" - +with_test_prefix "temporary catchpoint" { + gdb_test "continue" \ + "Continuing\..*$inferior_exited_re.*" \ + "continuing to program completion" +} diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp index 60a5f6f..4b3e4f6 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex.exp @@ -69,9 +69,11 @@ mi_gdb_load ${binfile} # 1. Try catching all exceptions. # #################################### -if ![mi_run_to_main] then { - fail "cannot run to main, testcase aborted" - return 0 +with_test_prefix "scenario 1" { + if ![mi_run_to_main] then { + fail "cannot run to main, testcase aborted" + return 0 + } } mi_gdb_test "-catch-exception" \ @@ -125,9 +127,11 @@ continue_to_exception \ # - continue, we should see the unhandled Constrait_Error exception # - continue, the program exits. -if ![mi_run_to_main] then { - fail "cannot run to main, testcase aborted" - return 0 +with_test_prefix "scenario 2" { + if ![mi_run_to_main] then { + fail "cannot run to main, testcase aborted" + return 0 + } } mi_gdb_test "-catch-exception -e Program_Error" \ diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp index 159b221..59c8a10 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp @@ -64,9 +64,11 @@ if [mi_gdb_start] { # 1. Try catching all exceptions handlers. # ############################################# -if ![mi_run_to_main] then { - fail "cannot run to main, testcase aborted" - return 0 +with_test_prefix "scenario 1" { + if ![mi_run_to_main] then { + fail "cannot run to main, testcase aborted" + return 0 + } } mi_gdb_test "-catch-handlers" \ @@ -114,9 +116,11 @@ continue_to_exception_handler \ # - continue, we should not stop at the Program_Error exception handler # but exit instead. -if ![mi_run_to_main] then { - fail "cannot run to main, testcase aborted" - return 0 +with_test_prefix "scenario 2" { + if ![mi_run_to_main] then { + fail "cannot run to main, testcase aborted" + return 0 + } } mi_gdb_test "-catch-handlers -e Constraint_Error" \ |