This commit was generated by cvs2svn to track changes on a CVS vendor
[platform/upstream/binutils.git] / gdb / testsuite / gdb.base / completion.exp
1 # Copyright (C) 1998 Free Software Foundation, Inc.
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
7
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11 # GNU General Public License for more details.
12
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
16
17 # Please email any bugs, comments, and/or additions to this file to:
18 # bug-gdb@prep.ai.mit.edu
19
20 # This file was written by Elena Zannoni (ezannoni@cygnus.com)
21
22 # This file is part of the gdb testsuite.
23
24 #
25 # tests for command completion
26 #
27 # Here are some useful test cases for completion.  
28 # They should be tested with both M-? and TAB.
29 #
30 #   "show output-" "radix"
31 #   "show output" "-radix"
32 #   "p" ambiguous (commands starting with p--path, print, printf, etc.)
33 #   "p "  ambiguous (all symbols)
34 #   "info t foo" no completions
35 #   "info t " no completions
36 #   "info t" ambiguous ("info target", "info terminal", etc.)
37 #   "info ajksdlfk" no completions
38 #   "info ajksdlfk " no completions
39 #   "info" " "
40 #   "info " ambiguous (all info commands)
41 #   "p \"a" no completions (string constant)
42 #   "p 'a" ambiguous (all symbols starting with a)
43 #   "p b-a" ambiguous (all symbols starting with a)
44 #   "p b-" ambiguous (all symbols)
45 #   "file Make" "file" (word break hard to screw up here)
46 #   "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
47 #
48
49
50 if $tracelevel then {
51         strace $tracelevel
52         }
53
54
55 #skip all these tests for now (FIXME)
56
57 continue
58
59 global usestubs
60
61 #
62 # test running programs
63 #
64 set prms_id 0
65 set bug_id 0
66
67 set testfile "break"
68 set srcfile ${testfile}.c
69 set binfile ${objdir}/${subdir}/${testfile}
70 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
71     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
72 }
73
74 gdb_exit
75 gdb_start
76 gdb_reinitialize_dir $srcdir/$subdir
77 gdb_load ${binfile}
78
79 if ![runto_main] then {
80         perror "tests suppressed"
81 }
82
83 set oldtimeout1 $timeout
84 set timeout [expr $timeout + 500]
85
86
87 send_gdb "hfgfh\t"
88 sleep 1
89 gdb_expect  {
90         -re "^hfgfh\\\x07$"\
91             { send_gdb "\n"
92               gdb_expect {
93                       -re "Undefined command: \"hfgfh\"\\.  Try \"help\"\\..*$gdb_prompt $"\
94                                         { pass "complete 'hfgfh'"}
95                       -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
96                       timeout           {fail "(timeout) complete 'hfgfh'"}
97                      }
98             }
99         -re ".*$gdb_prompt $"       { fail "complete 'hfgfh'" }
100         timeout         { fail "(timeout) complete 'hfgfh'" }
101         }
102
103 #exp_internal 0
104
105 send_gdb "show output\t"
106 sleep 1
107 gdb_expect  {
108         -re "^show output-radix $"\
109             { send_gdb "\n"
110               gdb_expect {
111                       -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
112                                         { pass "complete 'show output'"}
113                       -re ".*$gdb_prompt $" { fail "complete 'show output'"}
114                       timeout           {fail "(timeout) complete 'show output'"}
115                      }
116             }
117         -re "^show output$"\
118             { send_gdb "\n"
119                gdb_expect {
120                       -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
121                                         { fail "complete 'show output'"}
122                       -re ".*$gdb_prompt $" { fail "complete 'show output'"}
123                       timeout           { fail "(timeout) complete 'show output'"}
124                      }
125
126              }
127
128         -re ".*$gdb_prompt $"       { fail "complete 'show output'" }
129         timeout         { fail "(timeout) complete 'show output'" }
130         }
131
132
133 send_gdb "show output-\t"
134 sleep 1
135 gdb_expect  {
136         -re "^show output-radix $"\
137             { send_gdb "\n"
138               gdb_expect {
139                       -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
140                                         { pass "complete 'show output-'"}
141                       -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
142                       timeout           {fail "(timeout) complete 'show output-'"}
143                      }
144             }
145         -re "^show output-$"\
146             { send_gdb "\n"
147                gdb_expect {
148                       -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
149                                         { fail "complete 'show output-'"}
150                       -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
151                       timeout           { fail "(timeout) complete 'show output-'"}
152                      }
153
154              }
155
156         -re ".*$gdb_prompt $"       { fail "complete 'show output-'" }
157         timeout         { fail "(timeout) complete 'show output-'" }
158         }
159
160 send_gdb "p\t"
161 sleep 1
162 gdb_expect  {
163         -re "^p\\\x07$"\
164             { send_gdb "\n"
165               gdb_expect {
166                       -re "The history is empty\\..*$gdb_prompt $"\
167                                         { pass "complete 'p'"}
168                       -re ".*$gdb_prompt $" { fail "complete 'p'"}
169                       timeout           {fail "(timeout) complete 'p'"}
170                      }
171             }
172         -re ".*$gdb_prompt $"       { fail "complete 'p'" }
173         timeout         { fail "(timeout) complete 'p'" }
174         }
175
176 send_gdb "p \t"
177 sleep 1
178 gdb_expect  {
179         -re "^p \\\x07$"\
180             { send_gdb "\n"
181               gdb_expect {
182                       -re "The history is empty\\..*$gdb_prompt $"\
183                                         { pass "complete 'p '"}
184                       -re ".*$gdb_prompt $" { fail "complete 'p '"}
185                       timeout           {fail "(timeout) complete 'p '"}
186                      }
187             }
188         -re ".*$gdb_prompt $"       { fail "complete 'p '" }
189         timeout         { fail "(timeout) complete 'p '" }
190         }
191
192
193 send_gdb "info t foo\t"
194 sleep 1
195 gdb_expect  {
196         -re "^info t foo\\\x07$"\
197             { send_gdb "\n"
198               gdb_expect {
199                       -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
200                                         { pass "complete 'info t foo'"}
201                       -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
202                       timeout           {fail "(timeout) complete 'info t foo'"}
203                      }
204             }
205         -re ".*$gdb_prompt $"       { fail "complete 'info t foo'" }
206         timeout         { fail "(timeout) complete 'info t foo'" }
207         }
208
209 send_gdb "info t\t"
210 sleep 1
211 gdb_expect  {
212         -re "^info t\\\x07$"\
213             { send_gdb "\n"
214               gdb_expect {
215                       -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
216 *$gdb_prompt $"\
217                                         { pass "complete 'info t'"}
218                       -re ".*$gdb_prompt $" { fail "complete 'info t'"}
219                       timeout           {fail "(timeout) complete 'info t'"}
220                      }
221             }
222         -re ".*$gdb_prompt $"       { fail "complete 'info t'" }
223         timeout         { fail "(timeout) complete 'info t'" }
224         }
225
226
227 send_gdb "info t \t"
228 sleep 1
229 gdb_expect  {
230         -re "^info t \\\x07$"\
231             { send_gdb "\n"
232               gdb_expect {
233                       -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
234 *$gdb_prompt $"\
235                                         { pass "complete 'info t '"}
236                       -re ".*$gdb_prompt $" { fail "complete 'info t '"}
237                       timeout           {fail "(timeout) complete 'info t '"}
238                      }
239             }
240         -re ".*$gdb_prompt $"       { fail "complete 'info t '" }
241         timeout         { fail "(timeout) complete 'info t '" }
242         }
243
244
245 send_gdb "info asdfgh\t"
246 sleep 1
247 gdb_expect  {
248         -re "^info asdfgh\\\x07$"\
249             { send_gdb "\n"
250               gdb_expect {
251                       -re "Undefined info command: \"asdfgh\".  Try \"help info\"\\..
252 *$gdb_prompt $"\
253                                         { pass "complete 'info asdfgh'"}
254                       -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
255                       timeout           {fail "(timeout) complete 'info asdfgh'"}
256                      }
257             }
258         -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh'" }
259         timeout         { fail "(timeout) complete 'info asdfgh'" }
260         }
261
262
263 send_gdb "info asdfgh \t"
264 sleep 1
265 gdb_expect  {
266         -re "^info asdfgh \\\x07$"\
267             { send_gdb "\n"
268               gdb_expect {
269                       -re "Undefined info command: \"asdfgh \".  Try \"help info\"\\..
270 *$gdb_prompt $"\
271                                         { pass "complete 'info asdfgh '"}
272                       -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
273                       timeout           {fail "(timeout) complete 'info asdfgh '"}
274                      }
275             }
276         -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh '" }
277         timeout         { fail "(timeout) complete 'info asdfgh '" }
278         }
279
280 send_gdb "info\t"
281 sleep 1
282 gdb_expect  {
283         -re "^info $"\
284             { send_gdb "\n"
285               gdb_expect {
286                       -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\ninfo address.*info watchpoints.*\r\n\r\nType \"help info\" followed by info subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
287                                         { pass "complete 'info'"}
288                       -re ".*$gdb_prompt $" { fail "complete 'info'"}
289                       timeout           {fail "(timeout) complete 'info'"}
290                      }
291             }
292         -re ".*$gdb_prompt $"       { fail "complete 'info'" }
293         timeout         { fail "(timeout) complete 'info'" }
294         }
295
296 send_gdb "info \t"
297 sleep 1
298 gdb_expect  {
299         -re "^info \\\x07$"\
300             { send_gdb "\n"
301               gdb_expect {
302                       -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\ninfo address.*Type \"help info\" followed by info subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
303                                         { pass "complete 'info '"}
304                       -re ".*$gdb_prompt $" { fail "complete 'info '"}
305                       timeout           {fail "(timeout) complete 'info '"}
306                      }
307             }
308         -re ".*$gdb_prompt $"       { fail "complete 'info '" }
309         timeout         { fail "(timeout) complete 'info '" }
310         }
311
312
313 send_gdb "info \t"
314 sleep 1
315 gdb_expect  {
316         -re "^info \0x7$"\
317             { send_gdb "\t"
318               gdb_expect {
319                       -re "address.*types.*$gdb_prompt info $"\
320                           { send_gdb "\n"
321                             gdb_expect {
322                                      -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
323                                         { pass "complete (2) 'info '"}
324                                      -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
325                                      timeout           {fail "(timeout) complete (2) 'info '"}
326                                     }
327                            }
328                       -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
329                       timeout           {fail "(timeout) complete (2) 'info '"}
330                      }
331             }
332         -re ".*$gdb_prompt $"       { fail "complete (2) 'info '" }
333         timeout         { fail "(timeout) complete (2) 'info '" }
334         }
335
336
337 send_gdb "p \"a\t"
338 sleep 1
339 gdb_expect  {
340         -re "^p \"a\\\x07$"\
341             { send_gdb "\n"
342               gdb_expect {
343                       -re "Unterminated string in expression\\..*$gdb_prompt $"\
344                                         { pass "complete 'p a'"}
345                       -re ".*$gdb_prompt $" { fail "complete 'p a'"}
346                       timeout           {fail "(timeout) complete 'p a'"}
347                      }
348             }
349         -re ".*$gdb_prompt $"       { fail "complete 'p \"a'" }
350         timeout         { fail "(timeout) complete 'p \"a'" }
351         }
352
353 send_gdb "p 'a\t"
354 sleep 1
355 gdb_expect  {
356         -re "^p 'a\\\x07$"\
357             { send_gdb "\n"
358               gdb_expect {
359                       -re "Invalid character constant\\..*$gdb_prompt $"\
360                                         { pass "complete 'p \'a'"}
361                       -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
362                       timeout           {fail "(timeout) complete 'p \'a'"}
363                      }
364             }
365         -re ".*$gdb_prompt $"       { fail "complete 'p \'a'" }
366         timeout         { fail "(timeout) complete 'p \'a'" }
367         }
368
369 send_gdb "p 'a\t"
370 sleep 1
371 gdb_expect  {
372         -re "^p 'a\\\x07$"\
373             { send_gdb "\t"
374               gdb_expect {
375                       -re "a64l.*atol.*$gdb_prompt p .a$"\
376                           { send_gdb "\n"
377                             gdb_expect {
378                                      -re "Invalid character constant\\..*$gdb_prompt $"\
379                                                        { pass "complete (2) 'p \'a'"}
380                                      -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'"}
381                                      timeout           {fail "(timeout) complete (2) 'p \'a'"}
382                                    }
383                           }
384                       -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'"}
385                       timeout           {fail "(timeout) complete (2) 'p \'a'"}
386                      }
387             }
388         -re ".*$gdb_prompt $"       { fail "complete (2) 'p \'a'" }
389         timeout         { fail "(timeout) complete (2) 'p \'a'" }
390         }
391
392
393 send_gdb "p b-a\t"
394 sleep 1
395 gdb_expect  {
396         -re "^p b-a\\\x07$"\
397             { send_gdb "\n"
398               gdb_expect {
399                       -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
400                                         { pass "complete 'p b-a'"}
401                       -re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
402                       timeout           {fail "(timeout) complete 'p b-a'"}
403                      }
404             }
405         -re ".*$gdb_prompt $"       { fail "complete 'p b-a'" }
406         timeout         { fail "(timeout) complete 'p b-a'" }
407         }
408
409 send_gdb "p b-a\t"
410 sleep 1
411 gdb_expect  {
412         -re "^p b-a\\\x07$"\
413             { send_gdb "\t"
414               gdb_expect {
415                       -re "a64l.*atol.*$gdb_prompt p b-a$"\
416                           { send_gdb "\n"
417                             gdb_expect {
418                                      -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
419                                                        { pass "complete (2) 'p b-a'"}
420                                      -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'"}
421                                      timeout           {fail "(timeout) complete (2) 'p b-a'"}
422                                    }
423                           }
424                       -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'"}
425                       timeout           {fail "(timeout) complete (2) 'p b-a'"}
426                      }
427             }
428         -re ".*$gdb_prompt $"       { fail "complete (2) 'p b-a'" }
429         timeout         { fail "(timeout) complete (2) 'p b-a'" }
430         }
431
432
433 send_gdb "p b-\t"
434 sleep 1
435 gdb_expect  {
436         -re "^p b-\\\x07$"\
437             { send_gdb "\t"
438               gdb_expect {
439                       -re "There are $decimal possibilities\\.  Do you really\r\nwish to see them all. \\(y or n\\)$"\
440                           { send_gdb "n"
441                             gdb_expect {
442                                      -re "\\(gdb\\) p b-$"\
443                                          { send_gdb "\n"
444                                            gdb_expect {
445                                                    -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
446                                                        { pass "complete (2) 'p b-'"}
447                                                    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'"}
448                                                    timeout           {fail "(timeout) complete (2) 'p b-'"}
449                                                   }
450                                           }
451                                      -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'"}
452                                      timeout           {fail "(timeout) complete (2) 'p b-'"}
453                                    }
454                           }
455                       -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'"}
456                       timeout           {fail "(timeout) complete (2) 'p b-'"}
457                      }
458             }
459         -re ".*$gdb_prompt $"       { fail "complete (2) 'p b-'" }
460         timeout         { fail "(timeout) complete (2) 'p b-'" }
461         }
462
463 send_gdb "file ${objdir}/Make\t"
464 sleep 1
465 gdb_expect  {
466         -re "file ${objdir}/Makefile.*$"\
467             { send_gdb "\n"
468               gdb_expect {
469                       -re "\r\nA program is being debugged already\\.  Kill it\\? \\(y or n\\) $"\
470                       { send_gdb "n\n"
471                         gdb_expect {
472                                 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
473                                         { pass "complete 'file Make'"}
474                                 -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
475                                 timeout           {fail "(timeout) complete 'file Make'"}
476                                }
477                       }
478                       -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
479                       timeout           {fail "(timeout) complete 'file Make'"}
480                      }
481             }
482         -re ".*$gdb_prompt $"       { fail "complete 'file Make'" }
483         timeout         { fail "(timeout) complete 'file Make'" }
484         }
485
486
487 send_gdb "file ${srcdir}/gdb.base/a1\t"
488 sleep 1
489 gdb_expect  {
490         -re "^file ${srcdir}/gdb.base/.*'a1.*-selftest\\.exp' $"\
491             { send_gdb "\n"
492               gdb_expect {
493                       -re "\r\nA program is being debugged already\\.  Kill it\\? \\(y or n\\) $"
494 \
495                       { send_gdb "n\n"
496                         gdb_expect {
497                                 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
498                                         { pass "complete 'file gdb.base/a1'"}
499                                 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
500                                 timeout           {fail "(timeout) complete 'file gdb.base/a1'"}
501                                }
502                       }
503                       -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
504                       timeout           {fail "(timeout) complete 'file gdb.base/a1'"}
505                      }
506             }
507         -re ".*$gdb_prompt $"       { fail "complete 'file gdb.base/a1'" }
508         timeout         { fail "(timeout) complete 'file gdb.base/a1'" }
509         }
510
511
512 send_gdb "info func mark\t"
513 sleep 1
514 gdb_expect  {
515         -re "^info func mark.*er$"\
516             { send_gdb "\t\t"
517               sleep 3
518               gdb_expect {
519                       -re "marker1  marker2  marker3  marker4.*$gdb_prompt info func marker$"\
520                       { send_gdb "\n"
521                         gdb_expect {
522                                 -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\);\r\n$gdb_prompt $"\
523                                                   { pass "complete 'info func mar'"}
524                                 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
525                                 timeout           {fail "(timeout) complete 'info func mar'"}
526                                }
527                       }
528                       -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
529                       timeout           {fail "(timeout) complete 'info func mar'"}
530                      }
531             }
532         -re ".*$gdb_prompt $"       { fail "complete 'info func mar'" }
533         timeout         { fail "(timeout) complete 'info func mar'" }
534         }
535
536
537 send_gdb "set follow-fork-mode \t\t"
538 sleep 1
539 gdb_expect  {
540         -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
541             { send_gdb "\n"
542               gdb_expect {
543                       -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
544                                         { pass "complete 'set follow-fork-mode'"}
545                       -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
546                       timeout           {fail "(timeout) complete 'set follow-fork-mode'"}
547                      }
548             }
549         -re ".*$gdb_prompt $"       { fail "complete 'set follow-fork-mode'" }
550         timeout         { fail "(timeout) complete 'set follow-fork-mode'" }
551         }
552
553 set timeout $oldtimeout1
554 return 0
555
556
557
558
559
560
561
562
563
564
565
566
567
568