Add tests for new alias default-args related commands and arguments.

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / style.exp

diff --git a/gdb/testsuite/gdb.base/style.exp b/gdb/testsuite/gdb.base/style.exp
index 23a35403bbf416f5ec71733e3c7a6a78c0046f82..bfd26144fa4e66d53b3dde96efcdd5aa32e6525e 100644 (file)
--- a/gdb/testsuite/gdb.base/style.exp
+++ b/gdb/testsuite/gdb.base/style.exp
@@ -120,7 +120,7 @@ save_vars { env(TERM) } {
        [multi_line \
             "List of classes of commands:" \
             "" \
-            "${aliases_expr} -- Aliases of other commands\." \
+            "${aliases_expr} -- User-defined aliases of other commands\." \
             "${breakpoints_expr} -- Making program stop at certain points\." \
             ".*" \
            ] \
@@ -132,11 +132,13 @@ save_vars { env(TERM) } {
     gdb_test "apropos -v cut for 'thre" \
        [multi_line \
             "" \
-            "${taas_expr} --.*" \
+            "${taas_expr}" \
+            "Apply a command to all .*" \
             "Usage:.*" \
             "short${cut_for_thre_expr}ad apply.*" \
             "" \
-            "${tfaas_expr} --.*" \
+            "${tfaas_expr}" \
+            "Apply a command to all .*" \
             "Usage:.*" \
             "short${cut_for_thre_expr}ad apply.*" \
            ]
@@ -167,18 +169,4 @@ save_vars { env(TERM) } {
        "warning: [style .*? file] is not a directory\\..*"
     gdb_test "show data-directory" \
        "GDB's data directory is \"[style .*? file]\"\\..*"
-
-    if {[readline_is_used]} {
-       set test "complete print VALUE_"
-       # ESC-? is the readline binding to show all completions.
-       send_gdb "print VALUE_\x1b?"
-       set pfx [style VALUE_ completion-prefix]
-       set d1 [style O completion-difference]
-       set d2 [style T completion-difference]
-       gdb_test_multiple "" $test {
-           -re "${pfx}${d1}NE\[ \t\]+${pfx}${d2}WO.*$gdb_prompt print VALUE_$" {
-               gdb_test "ONE" " = .*"
-           }
-       }
-    }
 }