From 20429c40710b16bacfb67e05d723a7a1e68103ba Mon Sep 17 00:00:00 2001 From: Marek Polacek Date: Wed, 20 Apr 2011 14:56:49 +0000 Subject: [PATCH] Fix racy tests in gdb.base/setshow.exp --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.base/setshow.exp | 19 +++++++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index cef18ac13aa..1dbe936b8e8 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2011-04-20 Marek Polacek + * gdb.base/setshow.exp: Fix racy tests. + ($old_gdb_prompt): New variable. + 2011-04-19 Tom Tromey * gdb.mi/mi-nsmoribund.exp: diff --git a/gdb/testsuite/gdb.base/setshow.exp b/gdb/testsuite/gdb.base/setshow.exp index f014b4b22a0..ef32f1cecf9 100644 --- a/gdb/testsuite/gdb.base/setshow.exp +++ b/gdb/testsuite/gdb.base/setshow.exp @@ -55,25 +55,32 @@ gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level i #test set annotate 2 +# Here we need to fiddle with prompts. +set old_gdb_prompt $gdb_prompt +set gdb_prompt "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n" + gdb_test_multiple "set annotate 2" "set annotate 2" { - -re ".*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" { - pass "set annotate 2" + -re "\r\n$gdb_prompt$" { + pass "set annotate 2" } } gdb_test_multiple "show annotate" "show annotate 2" { - -re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" { + -re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$old_gdb_prompt .*\032\032prompt.*$" { pass "show annotate 2" } } #test annotation_level 2 gdb_test_multiple "info line 1" "annotation_level 2" { - -re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" { + -re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$old_gdb_prompt .*\032\032prompt.*$" { pass "annotation_level 2" } } +# Restore the original prompt for the rest of the testsuite. +set gdb_prompt $old_gdb_prompt + #test set annotate 1 gdb_test "set annotate 1" ".*post-prompt.*" "set annotate 1" gdb_test "show annotate" "Annotation_level is 1..*" "show annotate (1)" @@ -197,7 +204,7 @@ if ![board_info target exists gdb_prompt] { set newprompt "\\(FooBarBaz\\)" gdb_test_multiple "set prompt (FooBarBaz) " "set prompt FooBarBaz" { - -re "$newprompt $" { + -re "\[\r\n\]$newprompt $" { pass "set prompt FooBarBaz" } } @@ -213,7 +220,7 @@ if ![board_info target exists gdb_prompt] { #test set prompt (gdb) gdb_test_multiple "set prompt (gdb) " "set prompt gdb" { - -re "$gdb_prompt $" { + -re "\[\r\n\]$gdb_prompt $" { pass "set prompt gdb" } } -- 2.30.2