-# Copyright 1998, 1999, 2002, 2003, 2004, 2007, 2008, 2009, 2010, 2011
-# Free Software Foundation, Inc.
+# Copyright 1998-1999, 2002-2004, 2007-2012 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
#
-if $tracelevel then {
- strace $tracelevel
- }
-
-
-global usestubs
#
# test running programs
}
}
-set test "complete help info wat"
+set test "complete 'help info wat'"
send_gdb "help info wat\t"
gdb_test_multiple "" "$test" {
-re "^help info watchpoints $" {
-re "^p \"break1\\.c\"$" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
- -re ".*$gdb_prompt $" {
+ -re "$gdb_prompt $" {
pass "$test"
}
}
-re "^p \"break1\\.c\"$" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
- -re ".*$gdb_prompt $" {
+ -re "$gdb_prompt $" {
pass "$test"
}
}
}
}
-set test "complete 'p \'arg'"
+set test "complete 'p 'arg'"
send_gdb "p 'arg\t"
gdb_test_multiple "" "$test" {
-re "^p 'arg\\\x07$" {
}
}
-set test "complete (2) 'p \'arg'"
+set test "complete (2) 'p 'arg'"
send_gdb "p 'arg\t"
gdb_test_multiple "" "$test" {
-re "^p 'arg\\\x07$" {
send_gdb "\t"
gdb_test_multiple "" "$test" {
- -re ".*argv.*$gdb_prompt " {
+ -re "argv.*$gdb_prompt " {
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
-re "^p no_var_named_this-arg\\\x07$" {
send_gdb "\t"
gdb_test_multiple "" "$test" {
- -re ".*argv.*$gdb_prompt " {
+ -re "argv.*$gdb_prompt " {
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
}
}
}
- -re ".*argv.*$gdb_prompt $" {
+ -re "argv.*$gdb_prompt $" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-re "^p values.0..a_field $" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
- -re "^.* = 0.*$gdb_prompt $" {
+ -re " = 0.*$gdb_prompt $" {
pass "$test"
}
}
-re "^p values.0. . a_field $" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
- -re "^.* = 0.*$gdb_prompt $" {
+ -re " = 0.*$gdb_prompt $" {
pass "$test"
}
}
-re "^p &values.0. -> a_field $" {
send_gdb "\n"
gdb_test_multiple "" "$test" {
- -re "^.* = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $" {
+ -re " = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $" {
pass "$test"
}
}
send_gdb "n\n"
exp_continue
}
- -re ".*$gdb_prompt $" {
+ -re "$gdb_prompt $" {
pass "$test"
}
}