From 39fb8e9e0f5c7cb813eaa19a5f7368cb2d425f3f Mon Sep 17 00:00:00 2001 From: Bob Rossi Date: Tue, 27 Sep 2005 22:39:04 +0000 Subject: [PATCH] 2005-09-27 Bob Rossi * gdb.mi/mi-disassemble.exp, gdb.mi/mi2-disassemble.exp: Remove .* from test. Escape the | in mi_gdb_test call. * gdb.mi/mi-basics.exp, gdb.mi/mi-cli.exp, gdb.mi/mi-disassemble.exp, gdb.mi/mi-pthreads.exp, gdb.mi/mi-stack.exp, gdb.mi/mi2-basics.exp, gdb.mi/mi2-cli.exp, gdb.mi/mi2-disassemble.exp, gdb.mi/mi2-pthreads.exp, gdb.mi/mi2-stack.exp: Add extra details to expected regex's in mi_gdb_test calls. * lib/mi-support.exp: Remove arbitrary .* from tests. (mi_gdb_test): Add string_regex variable. Add anchor to main -re. Fully anchor GDB/MI expected results in mi_gdb_test. * lib/gdb.exp (string_to_regexp): Escape the ] character. * gdb.base/sizeof.exp: Remove escape character. Correct test. --- gdb/testsuite/ChangeLog | 15 +++++++++++++++ gdb/testsuite/gdb.base/sizeof.exp | 4 ++-- gdb/testsuite/gdb.mi/mi-basics.exp | 14 +++++++------- gdb/testsuite/gdb.mi/mi-cli.exp | 8 ++++---- gdb/testsuite/gdb.mi/mi-disassemble.exp | 10 +++++----- gdb/testsuite/gdb.mi/mi-pthreads.exp | 4 ++-- gdb/testsuite/gdb.mi/mi-stack.exp | 8 ++++---- gdb/testsuite/gdb.mi/mi2-basics.exp | 16 ++++++++-------- gdb/testsuite/gdb.mi/mi2-cli.exp | 8 ++++---- gdb/testsuite/gdb.mi/mi2-disassemble.exp | 11 ++++++----- gdb/testsuite/gdb.mi/mi2-pthreads.exp | 4 ++-- gdb/testsuite/gdb.mi/mi2-stack.exp | 8 ++++---- gdb/testsuite/lib/gdb.exp | 4 ++-- gdb/testsuite/lib/mi-support.exp | 14 ++++++++++---- 14 files changed, 75 insertions(+), 53 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f4a78614d8b..5e5ce895440 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,18 @@ +2005-09-27 Bob Rossi + + * gdb.mi/mi-disassemble.exp, gdb.mi/mi2-disassemble.exp: Remove .* + from test. Escape the | in mi_gdb_test call. + * gdb.mi/mi-basics.exp, gdb.mi/mi-cli.exp, gdb.mi/mi-disassemble.exp, + gdb.mi/mi-pthreads.exp, gdb.mi/mi-stack.exp, gdb.mi/mi2-basics.exp, + gdb.mi/mi2-cli.exp, gdb.mi/mi2-disassemble.exp, + gdb.mi/mi2-pthreads.exp, gdb.mi/mi2-stack.exp: Add extra details to + expected regex's in mi_gdb_test calls. + * lib/mi-support.exp: Remove arbitrary .* from tests. + (mi_gdb_test): Add string_regex variable. Add anchor to main -re. + Fully anchor GDB/MI expected results in mi_gdb_test. + * lib/gdb.exp (string_to_regexp): Escape the ] character. + * gdb.base/sizeof.exp: Remove escape character. Correct test. + 2005-09-26 Paul Brook * long_long.exp: Exclude eabi targets from arm FPA float format test. diff --git a/gdb/testsuite/gdb.base/sizeof.exp b/gdb/testsuite/gdb.base/sizeof.exp index b10ffbc13e8..93291342413 100644 --- a/gdb/testsuite/gdb.base/sizeof.exp +++ b/gdb/testsuite/gdb.base/sizeof.exp @@ -1,6 +1,6 @@ # This testcase is part of GDB, the GNU debugger. -# Copyright 2000, 2002, 2003, 2004 Free Software Foundation, Inc. +# Copyright 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -131,7 +131,7 @@ set signof_char [get_valueof "/d" "(int) (char) -1" -1] set signof_signed_char [get_valueof "/d" "(int) (signed char) -1" -1] set signof_unsigned_char [get_valueof "/d" "(int) (unsigned char) -1" -1] -check_valueof "'\\\\377'" ${signof_byte} +check_valueof "'\\377'" ${signof_byte} check_valueof "(int) (char) -1" ${signof_char} check_valueof "(int) (signed char) -1" ${signof_signed_char} check_valueof "(int) (unsigned char) -1" ${signof_unsigned_char} diff --git a/gdb/testsuite/gdb.mi/mi-basics.exp b/gdb/testsuite/gdb.mi/mi-basics.exp index 7e576a7077c..f6e82b095a0 100644 --- a/gdb/testsuite/gdb.mi/mi-basics.exp +++ b/gdb/testsuite/gdb.mi/mi-basics.exp @@ -138,7 +138,7 @@ proc test_breakpoints_deletion {} { # The all parameter is actually no parameter. mi_gdb_test "200-break-delete" \ - "\\\^done" \ + "200\\\^done" \ "break-delete (all) operation" mi_gdb_test "201-break-list" \ @@ -168,7 +168,7 @@ proc test_dir_specification {} { "environment-directory empty-string operation" mi_gdb_test "204-environment-directory -r" \ - "\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \ + "204\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \ "environment-directory operation" } @@ -184,11 +184,11 @@ proc test_cwd_specification {} { # -environment-pwd mi_gdb_test "205-environment-cd ${objdir}" \ - "\\\^done" \ + "205\\\^done" \ "environment-cd arg operation" mi_gdb_test "206-environment-pwd" \ - "\\\^done,cwd=\"${escapedobjdir}\"" \ + "206\\\^done,cwd=\"${escapedobjdir}\"" \ "environment-pwd operation" } @@ -219,7 +219,7 @@ proc test_path_specification {} { } mi_gdb_test "207-environment-path" \ - "\\\^done,path=\"$orig_path\"" \ + "207\\\^done,path=\"$orig_path\"" \ "environment-path no-args operation" mi_gdb_test "208-environment-path $srcdir $objdir" \ @@ -227,11 +227,11 @@ proc test_path_specification {} { "environment-path dir1 dir2 operation" mi_gdb_test "209-environment-path -r $objdir" \ - "\\\^done,path=\"$escapedobjdir.$orig_path\"" \ + "209\\\^done,path=\"$escapedobjdir.$orig_path\"" \ "environment-path -r dir operation" mi_gdb_test "210-environment-path -r" \ - "\\\^done,path=\"$orig_path\"" \ + "210\\\^done,path=\"$orig_path\"" \ "environment-path -r operation" } diff --git a/gdb/testsuite/gdb.mi/mi-cli.exp b/gdb/testsuite/gdb.mi/mi-cli.exp index b2159590fc3..1293c346d7c 100644 --- a/gdb/testsuite/gdb.mi/mi-cli.exp +++ b/gdb/testsuite/gdb.mi/mi-cli.exp @@ -59,7 +59,7 @@ mi_gdb_test "-interpreter-exec console bogus" \ # {(=.*)+\^done} \ # "-interpreter-exec console \"file \$binfile\"" mi_gdb_test "-interpreter-exec console \"file $binfile\"" \ - {\^done} \ + {~"Reading symbols from .*basics...".*done} \ "-interpreter-exec console \"file \$binfile\"" mi_run_to_main @@ -125,7 +125,7 @@ mi_gdb_test "100-interpreter-exec console \"delete 2\"" \ # {.*=selected-frame-level-changed,level="1".*\^done} \ # "-interpreter-exec console \"up\"" mi_gdb_test "200-interpreter-exec console \"up\"" \ - {200\^done} \ + {~"#.*".*200\^done} \ "-interpreter-exec console \"up\"" # NOTE: cagney/2003-02-03: Not yet. @@ -133,7 +133,7 @@ mi_gdb_test "200-interpreter-exec console \"up\"" \ # {.*=selected-frame-level-changed,level="0".*\^done} \ # "-interpreter-exec console \"down\"" mi_gdb_test "300-interpreter-exec console \"down\"" \ - {300\^done} \ + {~"#.*".*300\^done} \ "-interpreter-exec console \"down\"" # NOTE: cagney/2003-02-03: Not yet. @@ -141,7 +141,7 @@ mi_gdb_test "300-interpreter-exec console \"down\"" \ # {.*=selected-frame-level-changed,level="2".*\^done} \ # "-interpreter-exec console \"frame 2\"" mi_gdb_test "400-interpreter-exec console \"frame 2\"" \ - {400\^done} \ + {~"#.*".*400\^done} \ "-interpreter-exec console \"frame 2\"" # NOTE: cagney/2003-02-03: Not yet. diff --git a/gdb/testsuite/gdb.mi/mi-disassemble.exp b/gdb/testsuite/gdb.mi/mi-disassemble.exp index 0b124976a7e..625c430cdd4 100644 --- a/gdb/testsuite/gdb.mi/mi-disassemble.exp +++ b/gdb/testsuite/gdb.mi/mi-disassemble.exp @@ -1,4 +1,4 @@ -# Copyright 1999, 2000, 2001, 2002, 2004 Free Software Foundation, Inc. +# Copyright 1999, 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -163,19 +163,19 @@ proc test_disassembly_bogus_args {} { # -data-disassembly -f basics.c -l 32 -- 9 mi_gdb_test "123-data-disassemble -f foo -l abc -n 0 -- 0" \ - ".*123\\^error,msg=\"mi_cmd_disassemble: Invalid filename.\"" \ + "&.*123\\^error,msg=\"mi_cmd_disassemble: Invalid filename.\"" \ "data-disassemble bogus filename" mi_gdb_test "321-data-disassemble -s foo -e bar -- 0" \ - "321\\^error,msg=\"No symbol \\\\\"foo\\\\\" in current context.\"" \ + "&.*321\\^error,msg=\"No symbol \\\\\"foo\\\\\" in current context.\"" \ "data-disassemble bogus address" mi_gdb_test "456-data-disassemble -s \$pc -f basics.c -- 0" \ - "456\\^error,msg=\"mi_cmd_disassemble: Usage: \\( .-f filename -l linenum .-n howmany.. | .-s startaddr -e endaddr.\\) .--. mixed_mode.\"" \ + "&.*456\\^error,msg=\"mi_cmd_disassemble: Usage: \\( .-f filename -l linenum .-n howmany.. \\| .-s startaddr -e endaddr.\\) .--. mixed_mode.\"" \ "data-disassemble mix different args" mi_gdb_test "789-data-disassemble -f basics.c -l $line_main_body -- 9" \ - "789\\^error,msg=\"mi_cmd_disassemble: Mixed_mode argument must be 0 or 1.\"" \ + "&.*789\\^error,msg=\"mi_cmd_disassemble: Mixed_mode argument must be 0 or 1.\"" \ "data-disassemble wrong mode arg" } diff --git a/gdb/testsuite/gdb.mi/mi-pthreads.exp b/gdb/testsuite/gdb.mi/mi-pthreads.exp index be1864798fc..64b31b0d1b1 100644 --- a/gdb/testsuite/gdb.mi/mi-pthreads.exp +++ b/gdb/testsuite/gdb.mi/mi-pthreads.exp @@ -1,4 +1,4 @@ -# Copyright 2002, 2003, 2004 Free Software Foundation, Inc. +# Copyright 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -187,7 +187,7 @@ proc check_mi_thread_command_set {} { "check_mi_thread_command_set: -thread-select" mi_gdb_test "-thread-select 123456789" \ - {\^error,msg="Thread ID 123456789 not known\."} \ + {&.*\^error,msg="Thread ID 123456789 not known\."} \ "check_mi_thread_command_set: -thread-select 123456789" foreach thread $thread_list { diff --git a/gdb/testsuite/gdb.mi/mi-stack.exp b/gdb/testsuite/gdb.mi/mi-stack.exp index 05ec32db3d0..962b25f222e 100644 --- a/gdb/testsuite/gdb.mi/mi-stack.exp +++ b/gdb/testsuite/gdb.mi/mi-stack.exp @@ -68,7 +68,7 @@ proc test_stack_frame_listing {} { "stack frame listing 1 3" mi_gdb_test "234-stack-list-frames 1" \ - "234\\^error,msg=\"mi_cmd_stack_list_frames: Usage.*FRAME_LOW FRAME_HIGH.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_frames: Usage.*FRAME_LOW FRAME_HIGH.*\"" \ "stack frame listing wrong" mi_gdb_test "235-stack-info-frame" \ @@ -115,7 +115,7 @@ proc test_stack_args_listing {} { "stack args listing 1 1 3" mi_gdb_test "234-stack-list-arguments" \ - "234\\^error,msg=\"mi_cmd_stack_list_args: Usage.*PRINT_VALUES.*FRAME_LOW FRAME_HIGH.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_args: Usage.*PRINT_VALUES.*FRAME_LOW FRAME_HIGH.*\"" \ "stack args listing wrong" } @@ -142,7 +142,7 @@ proc test_stack_info_depth {} { "stack info-depth 99" mi_gdb_test "231-stack-info-depth 99 99" \ - "231\\^error,msg=\"mi_cmd_stack_info_depth: Usage: .MAX_DEPTH.\"" \ + "&.*231\\^error,msg=\"mi_cmd_stack_info_depth: Usage: .MAX_DEPTH.\"" \ "stack info-depth wrong usage" } @@ -181,7 +181,7 @@ gdb_expect { "stack locals listing, simple types: names and values, complex type: names and types" mi_gdb_test "234-stack-list-locals" \ - "234\\^error,msg=\"mi_cmd_stack_list_locals: Usage.*PRINT_VALUES.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_locals: Usage.*PRINT_VALUES.*\"" \ "stack locals listing wrong" mi_gdb_test "232-stack-select-frame 1" \ diff --git a/gdb/testsuite/gdb.mi/mi2-basics.exp b/gdb/testsuite/gdb.mi/mi2-basics.exp index 0fd1c87e157..bde6e94d0e1 100644 --- a/gdb/testsuite/gdb.mi/mi2-basics.exp +++ b/gdb/testsuite/gdb.mi/mi2-basics.exp @@ -1,4 +1,4 @@ -# Copyright 1999, 2000, 2001, 2002, 2003, 2004 +# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify @@ -139,7 +139,7 @@ proc test_breakpoints_deletion {} { # The all parameter is actually no parameter. mi_gdb_test "200-break-delete" \ - "\\\^done" \ + "200\\\^done" \ "break-delete (all) operation" mi_gdb_test "201-break-list" \ @@ -169,7 +169,7 @@ proc test_dir_specification {} { "environment-directory empty-string operation" mi_gdb_test "204-environment-directory -r" \ - "\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \ + "204\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \ "environment-directory operation" #exp_internal 0 @@ -187,11 +187,11 @@ proc test_cwd_specification {} { # -environment-pwd mi_gdb_test "205-environment-cd ${objdir}" \ - "\\\^done" \ + "205\\\^done" \ "environment-cd arg operation" mi_gdb_test "206-environment-pwd" \ - "\\\^done,cwd=\"${escapedobjdir}\"" \ + "206\\\^done,cwd=\"${escapedobjdir}\"" \ "environment-pwd operation" } @@ -222,7 +222,7 @@ proc test_path_specification {} { } mi_gdb_test "207-environment-path" \ - "\\\^done,path=\"$orig_path\"" \ + "207\\\^done,path=\"$orig_path\"" \ "environment-path no-args operation" mi_gdb_test "208-environment-path $srcdir $objdir" \ @@ -230,11 +230,11 @@ proc test_path_specification {} { "environment-path dir1 dir2 operation" mi_gdb_test "209-environment-path -r $objdir" \ - "\\\^done,path=\"$escapedobjdir.$orig_path\"" \ + "209\\\^done,path=\"$escapedobjdir.$orig_path\"" \ "environment-path -r dir operation" mi_gdb_test "210-environment-path -r" \ - "\\\^done,path=\"$orig_path\"" \ + "210\\\^done,path=\"$orig_path\"" \ "environment-path -r operation" } diff --git a/gdb/testsuite/gdb.mi/mi2-cli.exp b/gdb/testsuite/gdb.mi/mi2-cli.exp index 47e909ea9d2..ae778d1c0d5 100644 --- a/gdb/testsuite/gdb.mi/mi2-cli.exp +++ b/gdb/testsuite/gdb.mi/mi2-cli.exp @@ -59,7 +59,7 @@ mi_gdb_test "-interpreter-exec console bogus" \ # {(=.*)+\^done} \ # "-interpreter-exec console \"file \$binfile\"" mi_gdb_test "-interpreter-exec console \"file $binfile\"" \ - {\^done} \ + {~"Reading symbols from .*basics...".*\^done} \ "-interpreter-exec console \"file \$binfile\"" mi_run_to_main @@ -125,7 +125,7 @@ mi_gdb_test "100-interpreter-exec console \"delete 2\"" \ # {.*=selected-frame-level-changed,level="1".*\^done} \ # "-interpreter-exec console \"up\"" mi_gdb_test "200-interpreter-exec console \"up\"" \ - {200\^done} \ + {~"#.*".*200\^done} \ "-interpreter-exec console \"up\"" # NOTE: cagney/2003-02-03: Not yet. @@ -133,7 +133,7 @@ mi_gdb_test "200-interpreter-exec console \"up\"" \ # {.*=selected-frame-level-changed,level="0".*\^done} \ # "-interpreter-exec console \"down\"" mi_gdb_test "300-interpreter-exec console \"down\"" \ - {300\^done} \ + {~"#.*".*300\^done} \ "-interpreter-exec console \"down\"" # NOTE: cagney/2003-02-03: Not yet. @@ -141,7 +141,7 @@ mi_gdb_test "300-interpreter-exec console \"down\"" \ # {.*=selected-frame-level-changed,level="2".*\^done} \ # "-interpreter-exec console \"frame 2\"" mi_gdb_test "400-interpreter-exec console \"frame 2\"" \ - {400\^done} \ + {~"#.*".*400\^done} \ "-interpreter-exec console \"frame 2\"" # NOTE: cagney/2003-02-03: Not yet. diff --git a/gdb/testsuite/gdb.mi/mi2-disassemble.exp b/gdb/testsuite/gdb.mi/mi2-disassemble.exp index a56b027ee21..b79a9c09e21 100644 --- a/gdb/testsuite/gdb.mi/mi2-disassemble.exp +++ b/gdb/testsuite/gdb.mi/mi2-disassemble.exp @@ -1,4 +1,5 @@ -# Copyright 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -163,19 +164,19 @@ proc test_disassembly_bogus_args {} { # -data-disassembly -f basics.c -l 32 -- 9 mi_gdb_test "123-data-disassemble -f foo -l abc -n 0 -- 0" \ - ".*123\\^error,msg=\"mi_cmd_disassemble: Invalid filename.\"" \ + "&.*123\\^error,msg=\"mi_cmd_disassemble: Invalid filename.\"" \ "data-disassemble bogus filename" mi_gdb_test "321-data-disassemble -s foo -e bar -- 0" \ - "321\\^error,msg=\"No symbol \\\\\"foo\\\\\" in current context.\"" \ + "&.*321\\^error,msg=\"No symbol \\\\\"foo\\\\\" in current context.\"" \ "data-disassemble bogus address" mi_gdb_test "456-data-disassemble -s \$pc -f basics.c -- 0" \ - "456\\^error,msg=\"mi_cmd_disassemble: Usage: \\( .-f filename -l linenum .-n howmany.. | .-s startaddr -e endaddr.\\) .--. mixed_mode.\"" \ + "&.*456\\^error,msg=\"mi_cmd_disassemble: Usage: \\( .-f filename -l linenum .-n howmany.. \\| .-s startaddr -e endaddr.\\) .--. mixed_mode.\"" \ "data-disassemble mix different args" mi_gdb_test "789-data-disassemble -f basics.c -l $line_main_body -- 9" \ - "789\\^error,msg=\"mi_cmd_disassemble: Mixed_mode argument must be 0 or 1.\"" \ + "&.*789\\^error,msg=\"mi_cmd_disassemble: Mixed_mode argument must be 0 or 1.\"" \ "data-disassemble wrong mode arg" } diff --git a/gdb/testsuite/gdb.mi/mi2-pthreads.exp b/gdb/testsuite/gdb.mi/mi2-pthreads.exp index 4067883b34f..b2efeed7ed7 100644 --- a/gdb/testsuite/gdb.mi/mi2-pthreads.exp +++ b/gdb/testsuite/gdb.mi/mi2-pthreads.exp @@ -1,4 +1,4 @@ -# Copyright 2002, 2003, 2004 Free Software Foundation, Inc. +# Copyright 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -187,7 +187,7 @@ proc check_mi_thread_command_set {} { "check_mi_thread_command_set: -thread-select" mi_gdb_test "-thread-select 123456789" \ - {\^error,msg="Thread ID 123456789 not known\."} \ + {&.*\^error,msg="Thread ID 123456789 not known\."} \ "check_mi_thread_command_set: -thread-select 123456789" foreach thread $thread_list { diff --git a/gdb/testsuite/gdb.mi/mi2-stack.exp b/gdb/testsuite/gdb.mi/mi2-stack.exp index 80e82b6e996..9199266bfa2 100644 --- a/gdb/testsuite/gdb.mi/mi2-stack.exp +++ b/gdb/testsuite/gdb.mi/mi2-stack.exp @@ -68,7 +68,7 @@ proc test_stack_frame_listing {} { "stack frame listing 1 3" mi_gdb_test "234-stack-list-frames 1" \ - "234\\^error,msg=\"mi_cmd_stack_list_frames: Usage.*FRAME_LOW FRAME_HIGH.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_frames: Usage.*FRAME_LOW FRAME_HIGH.*\"" \ "stack frame listing wrong" mi_gdb_test "235-stack-info-frame" \ @@ -115,7 +115,7 @@ proc test_stack_args_listing {} { "stack args listing 1 1 3" mi_gdb_test "234-stack-list-arguments" \ - "234\\^error,msg=\"mi_cmd_stack_list_args: Usage.*PRINT_VALUES.*FRAME_LOW FRAME_HIGH.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_args: Usage.*PRINT_VALUES.*FRAME_LOW FRAME_HIGH.*\"" \ "stack args listing wrong" } @@ -142,7 +142,7 @@ proc test_stack_info_depth {} { "stack info-depth 99" mi_gdb_test "231-stack-info-depth 99 99" \ - "231\\^error,msg=\"mi_cmd_stack_info_depth: Usage: .MAX_DEPTH.\"" \ + "&.*231\\^error,msg=\"mi_cmd_stack_info_depth: Usage: .MAX_DEPTH.\"" \ "stack info-depth wrong usage" } @@ -176,7 +176,7 @@ gdb_expect { "stack locals listing 1" mi_gdb_test "234-stack-list-locals" \ - "234\\^error,msg=\"mi_cmd_stack_list_locals: Usage.*PRINT_VALUES.*\"" \ + "&.*234\\^error,msg=\"mi_cmd_stack_list_locals: Usage.*PRINT_VALUES.*\"" \ "stack locals listing wrong" mi_gdb_test "232-stack-select-frame 1" \ diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index c2c0b153681..cfddc99dbd7 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1,5 +1,5 @@ # Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, -# 2002, 2003, 2004 +# 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify @@ -864,7 +864,7 @@ proc test_print_reject { args } { proc string_to_regexp {str} { set result $str - regsub -all {[]*+.|()^$\[]} $str {\\&} result + regsub -all {[]*+.|()^$\[\\]} $str {\\&} result return $result } diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index 4c1d5772271..fa99c53f255 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -246,7 +246,7 @@ proc mi_delete_breakpoints {} { send_gdb "y\n"; exp_continue } - -re ".*102-break-delete\r\n102\\\^done\r\n$mi_gdb_prompt$" { + -re "102-break-delete\r\n102\\\^done\r\n$mi_gdb_prompt$" { # This happens if there were no breakpoints } timeout { perror "Delete all breakpoints in mi_delete_breakpoints (timeout)" ; return } @@ -596,6 +596,8 @@ proc mi_gdb_test { args } { set result -1 set string "${command}\n"; + set string_regex [string_to_regexp $command] + if { $command != "" } { while { "$string" != "" } { set foo [string first "\n" "$string"]; @@ -659,7 +661,11 @@ proc mi_gdb_test { args } { gdb_start set result -1 } - -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*" { + -re "^($string_regex\[\r\n\]+)?($pattern\[\r\n\]+$mi_gdb_prompt\[ \]*)" { + # At this point, $expect_out(1,string) is the MI input command. + # and $expect_out(2,string) is the MI output command. + # If $expect_out(1,string) is "", then there was no MI input command here. + # NOTE, there is no trailing anchor because with GDB/MI, # asynchronous responses can happen at any point, causing more # data to be available. Normally an anchor is used to make @@ -925,11 +931,11 @@ proc mi_execute_to_helper { cmd reason func args file line extra test } { global fullname_syntax send_gdb "220-$cmd\n" gdb_expect { - -re ".*220\\^running\r\n${mi_gdb_prompt}.*220\\*stopped,reason=\"$reason\",thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"$line\"\}$extra\r\n$mi_gdb_prompt$" { + -re "220\\^running\r\n${mi_gdb_prompt}.*220\\*stopped,reason=\"$reason\",thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"$line\"\}$extra\r\n$mi_gdb_prompt$" { pass "$test" return 0 } - -re ".*220\\^running\r\n${mi_gdb_prompt}.*220\\*stopped,reason=\"$reason\",thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\".*\",args=\[\\\[\{\].*\[\\\]\}\],file=\".*\",fullname=\"${fullname_syntax}.*\",line=\"\[0-9\]*\"\}.*\r\n$mi_gdb_prompt$" { + -re "220\\^running\r\n${mi_gdb_prompt}.*220\\*stopped,reason=\"$reason\",thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\".*\",args=\[\\\[\{\].*\[\\\]\}\],file=\".*\",fullname=\"${fullname_syntax}.*\",line=\"\[0-9\]*\"\}.*\r\n$mi_gdb_prompt$" { fail "$test (stopped at wrong place)" return -1 } -- 2.30.2