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

Add tests for 'p "break' (pass) and 'p "break.' (xfail).
This commit is contained in:
Daniel Jacobowitz 2001-09-27 22:21:22 +00:00
parent b55a47712d
commit 9b28427211
2 changed files with 57 additions and 9 deletions

View File

@ -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.

View File

@ -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"