[gdb/testsuite] Fix DUPLICATE in gdb.base/info-os.exp
authorTom de Vries <tdevries@suse.de>
Thu, 30 Sep 2021 17:07:48 +0000 (19:07 +0200)
committerTom de Vries <tdevries@suse.de>
Thu, 30 Sep 2021 17:07:48 +0000 (19:07 +0200)
When running test-case gdb.base/info-os.exp, I run into:
...
PASS: gdb.base/info-os.exp: get threads
PASS: gdb.base/info-os.exp: get threads
DUPLICATE: gdb.base/info-os.exp: get threads
...

Fix this not doing pass followed by exp_continue in gdb_test_multiple.

Tested on x86_64-linux.

gdb/testsuite/gdb.base/info-os.exp

index b17a7842d5f3cb31273da4bd950286f31077b9af..14bbbd95a0793f4a71c0a02af5bf7af889c9d678 100644 (file)
@@ -125,17 +125,16 @@ proc expect_multiline { command expect test } {
     global gdb_prompt
 
     # Do not duplicate FAILs from gdb_test_multiple.
-    set pass 0
-    set fail 0
+    set found 0
+    set ok 0
     gdb_test_multiple $command $test {
        -re "^$expect *\r\n" {
-           pass $test
-           set pass 1
+           set found 1
            exp_continue
        }
        -re "^$gdb_prompt $" {
-           if !$pass {
-               set fail 1
+           if $found {
+               set ok 1
            }
            # Exit the loop.
        }
@@ -144,9 +143,7 @@ proc expect_multiline { command expect test } {
            exp_continue
        }
     }
-    if $fail {
-       fail $test
-    }
+    gdb_assert { $ok } $test
 }
 
 # Test output of the 'info os' commands against the expected results.