Re: [RFA/TESTSUITE] completion.exp info func

[Elena Zannoni <ezannoni at redhat dot com>]

Elena Zannoni writes:
 > 
 > There are several symbols that start with "mark" in some glibc's (at
 > least that is where I think they come from), and this can create
 > problems, with the test as is. Completing on "marke" seems to work.
 > 
 > (gdb) info func mark <-- TAB here produces
 > mark_removed.0  marker1         marker3         
 > marker.0        marker2         marker4         
 > 
 > (gdb) info func marke <-- TAB here produces
 > (gdb) info func marker <-- TAB TAB here produces
 > marker.0  marker1   marker2   marker3   marker4
 > 
 > This last output satisfies the test, even though marker.0 is not in break.c.
 > 
 > elena 
 > 
 > 
 >       * gdb.base/completion.exp: Make 'info func mark' complete on 'info
 >       func marke' instead.
 > 

I committed the following, including the renaming of the test case.

elena


Index: completion.exp
===================================================================
RCS file: /cvs/uberbaum/gdb/testsuite/gdb.base/completion.exp,v
retrieving revision 1.15
diff -u -p -r1.15 completion.exp
--- completion.exp	10 Apr 2003 13:38:15 -0000	1.15
+++ completion.exp	16 Apr 2003 20:00:02 -0000
@@ -701,10 +701,10 @@ gdb_expect  {
         timeout         { fail "(timeout) complete 'file ./gdb.base/compl'" }
         }
 
-send_gdb "info func mark\t"
+send_gdb "info func marke\t"
 sleep 1
 gdb_expect  {
-        -re "^info func mark.*er$"\
+        -re "^info func marke.*r$"\
             {
 	      send_gdb "\t\t"
               sleep 3
@@ -713,17 +713,17 @@ gdb_expect  {
                       { send_gdb "\n"
                         gdb_expect {
                                 -re "All functions matching regular expression \"marker\":.*File.*break.c:\r\nint marker1\\((void|)\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);.*$gdb_prompt $"\
-                                                  { pass "complete 'info func mar'"}
-                                -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
-                                timeout           {fail "(timeout) complete 'info func mar'"}+                                                  { pass "complete 'info func marke'"}
+                                -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
+                                timeout           {fail "(timeout) complete 'info func marke'"}
                                }
                       }
-                      -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
-                      timeout           {fail "(timeout) complete 'info func mar'"}
+                      -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
+                      timeout           {fail "(timeout) complete 'info func marke'"}
                      }
             }
-        -re ".*$gdb_prompt $"       { fail "complete 'info func mar'" }
-        timeout         { fail "(timeout) complete 'info func mar'" }
+        -re ".*$gdb_prompt $"       { fail "complete 'info func marke'" }
+        timeout         { fail "(timeout) complete 'info func marke'" }
         }