* gdb.base/completion.exp: Remove incorrect 'p "a' test.

        Add tests for 'p "break' (pass) and 'p "break.' (xfail).

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1e8f1d8..06e2302 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-27  Daniel Jacobowitz  <drow@mvista.com>
+
+       * gdb.base/completion.exp: Remove incorrect 'p "a' test.
+       Add tests for 'p "break' (pass) and 'p "break.' (xfail).
+
 2001-09-27  Michael Snyder  <msnyder@redhat.com>
 
        * lib/gdb.exp (test_debug_format): New proc.

diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 975c1fc..ccd53c3 100644 (file)
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -38,7 +38,9 @@
 #   "info ajksdlfk " no completions
 #   "info" " "
 #   "info " ambiguous (all info commands)
-#   "p \"a" no completions (string constant)
+#   "p \"break" unambiguous (completes to filename "break.c")
+#   "p \"break." unambiguous (should complete to "break.c" but does not,
+#      due to readline limitations)
 #   "p 'a" ambiguous (all symbols starting with a)
 #   "p b-a" ambiguous (all symbols starting with a)
 #   "p b-" ambiguous (all symbols)
@@ -349,20 +351,61 @@ gdb_expect  {
         }
 
 
-send_gdb "p \"a\t"
+send_gdb "p \"break\t"
 sleep 1
 gdb_expect  {
-        -re "^p \"a\\\x07$"\
+        -re "^p \"break\\\x07$"\
             { send_gdb "\n"
               gdb_expect {
-                      -re "Unterminated string in expression\\..*$gdb_prompt $"\
-                                        { pass "complete 'p a'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p a'"}
-                      timeout           {fail "(timeout) complete 'p a'"}
+                      -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
+                      timeout           {fail "(timeout) complete 'p \"break'"}
                      }
             }
-        -re ".*$gdb_prompt $"       { fail "complete 'p \"a'" }
-        timeout         { fail "(timeout) complete 'p \"a'" }
+       -re "^p \"break\\.c\"$"\
+           {   send_gdb "\n"
+               gdb_expect {
+                   -re ".*$gdb_prompt $" { pass "complete 'p \"break'"}
+                   timeout           {fail "(timeout) complete 'p \"break'"}
+               }
+           }
+       -re "^p \"break.*$"
+           {   send_gdb "\n"
+               gdb_expect {
+                   -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
+                   timeout           {fail "(timeout) complete 'p \"break'"}
+               }
+           }
+        -re ".*$gdb_prompt $"       { fail "complete 'p \"break'" }
+        timeout         { fail "(timeout) complete 'p \"break'" }
+        }
+
+setup_xfail "*-*-*"
+send_gdb "p \"break.\t"
+sleep 1
+gdb_expect  {
+        -re "^p \"break\\.\\\x07$"\
+            { send_gdb "\n"
+              gdb_expect {
+                      -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
+                      timeout           {fail "(timeout) complete 'p \"break.'"}
+                     }
+            }
+       -re "^p \"break\\.c\"$"\
+           {   send_gdb "\n"
+               gdb_expect {
+                   -re ".*$gdb_prompt $" { pass "complete 'p \"break.'"}
+                   timeout           {fail "(timeout) complete 'p \"break.'"}
+               }
+           }
+       -re "^p \"break\\..*$"
+           {   send_gdb "\n"
+               gdb_expect {
+                   -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
+                   timeout           {fail "(timeout) complete 'p \"break.'"}
+               }
+           }
+        -re ".*$gdb_prompt $"       { fail "complete 'p \"break.'" }
+        timeout         { fail "(timeout) complete 'p \"break.'" }
         }
 
 send_gdb "p 'a\t"