Add support to GDB for the Renesas rl78 architecture.
[external/binutils.git] / gdb / testsuite / gdb.base / completion.exp
index 1c077fc..35fb537 100644 (file)
@@ -1,5 +1,5 @@
-# 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
@@ -270,7 +264,7 @@ gdb_test_multiple "" "$test" {
     }
 }
 
-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 $" {
@@ -296,7 +290,7 @@ gdb_test_multiple "" "$test" {
     -re "^p \"break1\\.c\"$" {
        send_gdb "\n"
        gdb_test_multiple "" "$test" {
-           -re ".*$gdb_prompt $" {
+           -re "$gdb_prompt $" {
                pass "$test"
            }
        }
@@ -314,7 +308,7 @@ gdb_test_multiple "" "$test" {
     -re "^p \"break1\\.c\"$" {
        send_gdb "\n"
        gdb_test_multiple "" "$test" {
-           -re ".*$gdb_prompt $" {
+           -re "$gdb_prompt $" {
                pass "$test"
            }
        }
@@ -325,7 +319,7 @@ gdb_test_multiple "" "$test" {
     }
 }
 
-set test "complete 'p \'arg'"
+set test "complete 'p 'arg'"
 send_gdb "p 'arg\t"
 gdb_test_multiple "" "$test" {
     -re "^p 'arg\\\x07$" {
@@ -338,13 +332,13 @@ gdb_test_multiple "" "$test" {
     }
 }
 
-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 $" {
@@ -411,7 +405,7 @@ gdb_test_multiple "" "$test" {
     -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 $" {
@@ -467,7 +461,7 @@ 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 $" {
@@ -485,7 +479,7 @@ gdb_test_multiple "" "$test" {
     -re "^p values.0..a_field $" {
        send_gdb "\n"
        gdb_test_multiple "" "$test" {
-           -re "^.* = 0.*$gdb_prompt $" {
+           -re " = 0.*$gdb_prompt $" {
                pass "$test"
            }
        }
@@ -498,7 +492,7 @@ gdb_test_multiple "" "$test" {
     -re "^p values.0. . a_field $" {
        send_gdb "\n"
        gdb_test_multiple "" "$test" {
-           -re "^.* = 0.*$gdb_prompt $" {
+           -re " = 0.*$gdb_prompt $" {
                pass "$test"
            }
        }
@@ -511,7 +505,7 @@ gdb_test_multiple "" "$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"
            }
        }
@@ -608,7 +602,7 @@ gdb_test_multiple "" "$test" {
                send_gdb "n\n"
                exp_continue
            }
-           -re ".*$gdb_prompt $" {
+           -re "$gdb_prompt $" {
                pass "$test"
            }
        }