projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
import gdb-1999-06-28 snapshot
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / completion.exp
CommitLineData
c906108c
SS		 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
50if $tracelevel then {
51 strace $tracelevel
52 }
53
54
085dd6e6
JM		 55if { ![istarget "hppa*-hp-hpux*"] } {
56 #skip all these tests for now (FIXME)
57 continue
58}
c906108c
SS		 59
60global usestubs
61
62#
63# test running programs
64#
65set prms_id 0
66set bug_id 0
67
68set testfile "break"
69set srcfile ${testfile}.c
70set binfile ${objdir}/${subdir}/${testfile}
71if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
72 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
73}
74
085dd6e6
JM		 75if [get_compiler_info ${binfile}] {
76 return -1;
77}
78
c906108c
SS		 79gdb_exit
80gdb_start
81gdb_reinitialize_dir $srcdir/$subdir
82gdb_load ${binfile}
83
84if ![runto_main] then {
85 perror "tests suppressed"
86}
87
88set oldtimeout1 $timeout
085dd6e6 89set timeout 30
c906108c
SS		 90
91
92send_gdb "hfgfh\t"
93sleep 1
94gdb_expect {
95 -re "^hfgfh\\\x07$"\
96 { send_gdb "\n"
97 gdb_expect {
98 -re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $"\
99 { pass "complete 'hfgfh'"}
100 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
101 timeout {fail "(timeout) complete 'hfgfh'"}
102 }
103 }
104 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
105 timeout { fail "(timeout) complete 'hfgfh'" }
106 }
107
108#exp_internal 0
109
110send_gdb "show output\t"
111sleep 1
112gdb_expect {
113 -re "^show output-radix $"\
114 { send_gdb "\n"
115 gdb_expect {
116 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
117 { pass "complete 'show output'"}
118 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
119 timeout {fail "(timeout) complete 'show output'"}
120 }
121 }
122 -re "^show output$"\
123 { send_gdb "\n"
124 gdb_expect {
125 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
126 { fail "complete 'show output'"}
127 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
128 timeout { fail "(timeout) complete 'show output'"}
129 }
130
131 }
132
133 -re ".*$gdb_prompt $" { fail "complete 'show output'" }
134 timeout { fail "(timeout) complete 'show output'" }
135 }
136
137
138send_gdb "show output-\t"
139sleep 1
140gdb_expect {
141 -re "^show output-radix $"\
142 { send_gdb "\n"
143 gdb_expect {
144 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
145 { pass "complete 'show output-'"}
146 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
147 timeout {fail "(timeout) complete 'show output-'"}
148 }
149 }
150 -re "^show output-$"\
151 { send_gdb "\n"
152 gdb_expect {
153 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
154 { fail "complete 'show output-'"}
155 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
156 timeout { fail "(timeout) complete 'show output-'"}
157 }
158
159 }
160
161 -re ".*$gdb_prompt $" { fail "complete 'show output-'" }
162 timeout { fail "(timeout) complete 'show output-'" }
163 }
164
165send_gdb "p\t"
166sleep 1
167gdb_expect {
168 -re "^p\\\x07$"\
169 { send_gdb "\n"
085dd6e6 170 sleep 1
c906108c
SS		 171 gdb_expect {
172 -re "The history is empty\\..*$gdb_prompt $"\
173 { pass "complete 'p'"}
174 -re ".*$gdb_prompt $" { fail "complete 'p'"}
085dd6e6 175 timeout {fail "(timeout) complete 'p' 2"}
c906108c
SS		 176 }
177 }
178 -re ".*$gdb_prompt $" { fail "complete 'p'" }
085dd6e6 179 timeout { fail "(timeout) complete 'p' 1" }
c906108c
SS		 180 }
181
182send_gdb "p \t"
085dd6e6 183sleep 3
c906108c
SS		 184gdb_expect {
185 -re "^p \\\x07$"\
186 { send_gdb "\n"
085dd6e6 187 sleep 1
c906108c
SS		 188 gdb_expect {
189 -re "The history is empty\\..*$gdb_prompt $"\
190 { pass "complete 'p '"}
191 -re ".*$gdb_prompt $" { fail "complete 'p '"}
085dd6e6 192 timeout {fail "(timeout) complete 'p ' 1"}
c906108c
SS		 193 }
194 }
195 -re ".*$gdb_prompt $" { fail "complete 'p '" }
085dd6e6 196 timeout { fail "(timeout) complete 'p ' 2" }
c906108c
SS		 197 }
198
199
200send_gdb "info t foo\t"
201sleep 1
202gdb_expect {
203 -re "^info t foo\\\x07$"\
204 { send_gdb "\n"
205 gdb_expect {
206 -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
207 { pass "complete 'info t foo'"}
208 -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
209 timeout {fail "(timeout) complete 'info t foo'"}
210 }
211 }
212 -re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
213 timeout { fail "(timeout) complete 'info t foo'" }
214 }
215
216send_gdb "info t\t"
217sleep 1
218gdb_expect {
219 -re "^info t\\\x07$"\
220 { send_gdb "\n"
221 gdb_expect {
222 -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
223*$gdb_prompt $"\
224 { pass "complete 'info t'"}
225 -re ".*$gdb_prompt $" { fail "complete 'info t'"}
226 timeout {fail "(timeout) complete 'info t'"}
227 }
228 }
229 -re ".*$gdb_prompt $" { fail "complete 'info t'" }
230 timeout { fail "(timeout) complete 'info t'" }
231 }
232
233
234send_gdb "info t \t"
235sleep 1
236gdb_expect {
237 -re "^info t \\\x07$"\
238 { send_gdb "\n"
239 gdb_expect {
240 -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
241*$gdb_prompt $"\
242 { pass "complete 'info t '"}
243 -re ".*$gdb_prompt $" { fail "complete 'info t '"}
244 timeout {fail "(timeout) complete 'info t '"}
245 }
246 }
247 -re ".*$gdb_prompt $" { fail "complete 'info t '" }
248 timeout { fail "(timeout) complete 'info t '" }
249 }
250
251
252send_gdb "info asdfgh\t"
253sleep 1
254gdb_expect {
255 -re "^info asdfgh\\\x07$"\
256 { send_gdb "\n"
257 gdb_expect {
258 -re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
259*$gdb_prompt $"\
260 { pass "complete 'info asdfgh'"}
261 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
262 timeout {fail "(timeout) complete 'info asdfgh'"}
263 }
264 }
265 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
266 timeout { fail "(timeout) complete 'info asdfgh'" }
267 }
268
269
270send_gdb "info asdfgh \t"
271sleep 1
272gdb_expect {
273 -re "^info asdfgh \\\x07$"\
274 { send_gdb "\n"
275 gdb_expect {
276 -re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
277*$gdb_prompt $"\
278 { pass "complete 'info asdfgh '"}
279 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
280 timeout {fail "(timeout) complete 'info asdfgh '"}
281 }
282 }
283 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
284 timeout { fail "(timeout) complete 'info asdfgh '" }
285 }
286
287send_gdb "info\t"
288sleep 1
289gdb_expect {
290 -re "^info $"\
291 { send_gdb "\n"
292 gdb_expect {
085dd6e6 293 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*info 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 $"\
c906108c
SS		 294 { pass "complete 'info'"}
295 -re ".*$gdb_prompt $" { fail "complete 'info'"}
296 timeout {fail "(timeout) complete 'info'"}
297 }
298 }
299 -re ".*$gdb_prompt $" { fail "complete 'info'" }
300 timeout { fail "(timeout) complete 'info'" }
301 }
302
303send_gdb "info \t"
304sleep 1
305gdb_expect {
306 -re "^info \\\x07$"\
307 { send_gdb "\n"
308 gdb_expect {
085dd6e6 309 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*info address.*Type \"help info\" followed by info subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
c906108c
SS		 310 { pass "complete 'info '"}
311 -re ".*$gdb_prompt $" { fail "complete 'info '"}
312 timeout {fail "(timeout) complete 'info '"}
313 }
314 }
315 -re ".*$gdb_prompt $" { fail "complete 'info '" }
316 timeout { fail "(timeout) complete 'info '" }
317 }
318
319
320send_gdb "info \t"
321sleep 1
322gdb_expect {
085dd6e6 323 -re "^info \\\x07$"\
c906108c
SS		 324 { send_gdb "\t"
325 gdb_expect {
326 -re "address.*types.*$gdb_prompt info $"\
327 { send_gdb "\n"
328 gdb_expect {
329 -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
330 { pass "complete (2) 'info '"}
331 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
332 timeout {fail "(timeout) complete (2) 'info '"}
333 }
334 }
335 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
336 timeout {fail "(timeout) complete (2) 'info '"}
337 }
338 }
339 -re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
340 timeout { fail "(timeout) complete (2) 'info '" }
341 }
342
343
344send_gdb "p \"a\t"
345sleep 1
346gdb_expect {
347 -re "^p \"a\\\x07$"\
348 { send_gdb "\n"
349 gdb_expect {
350 -re "Unterminated string in expression\\..*$gdb_prompt $"\
351 { pass "complete 'p a'"}
352 -re ".*$gdb_prompt $" { fail "complete 'p a'"}
353 timeout {fail "(timeout) complete 'p a'"}
354 }
355 }
356 -re ".*$gdb_prompt $" { fail "complete 'p \"a'" }
357 timeout { fail "(timeout) complete 'p \"a'" }
358 }
359
360send_gdb "p 'a\t"
361sleep 1
362gdb_expect {
363 -re "^p 'a\\\x07$"\
364 { send_gdb "\n"
365 gdb_expect {
366 -re "Invalid character constant\\..*$gdb_prompt $"\
367 { pass "complete 'p \'a'"}
368 -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
369 timeout {fail "(timeout) complete 'p \'a'"}
370 }
371 }
372 -re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
373 timeout { fail "(timeout) complete 'p \'a'" }
374 }
375
376send_gdb "p 'a\t"
377sleep 1
085dd6e6
JM		 378gdb_expect {
379 -re "^p 'a\\\x07$" {
380 send_gdb "\t"
381 gdb_expect {
382 -re "a64l.*atol.*$gdb_prompt p .a$" {
383 send_gdb "\n"
384 gdb_expect {
385 -re "Invalid character constant\\..*$gdb_prompt $" {
386 pass "complete (2) 'p \'a'"
387 }
388 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
389 timeout { fail "(timeout) complete (2) 'p \'a'" }
390 }
391 }
392 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
393 send_gdb "n"
394 gdb_expect {
395 -re "\\(gdb\\) p 'a$" {
396 send_gdb "\n"
397 gdb_expect {
398 -re "Invalid character constant\\..*$gdb_prompt $" {
399 pass "complete (2) 'p \'a'"
400 }
401 -re ".*$gdb_prompt $" {
402 fail "complete (2) 'p \'a'"
403 }
404 timeout { fail "(timeout) complete (2) 'p \'a'" }
405 }
406 }
407 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
408 timeout { fail "(timeout) complete (2) 'p \'a'" }
409 }
410 }
411 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
412 timeout { fail "(timeout) complete (2) 'p \'a'" }
413 }
414 }
415 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
416 timeout { fail "(timeout) complete (2) 'p \'a'" }
417}
c906108c
SS		 418
419
420send_gdb "p b-a\t"
421sleep 1
422gdb_expect {
423 -re "^p b-a\\\x07$"\
424 { send_gdb "\n"
425 gdb_expect {
426 -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
427 { pass "complete 'p b-a'"}
428 -re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
429 timeout {fail "(timeout) complete 'p b-a'"}
430 }
431 }
432 -re ".*$gdb_prompt $" { fail "complete 'p b-a'" }
433 timeout { fail "(timeout) complete 'p b-a'" }
434 }
435
436send_gdb "p b-a\t"
437sleep 1
085dd6e6
JM		 438gdb_expect {
439 -re "^p b-a\\\x07$" {
440 send_gdb "\t"
441 gdb_expect {
442 -re "a64l.*atol.*$gdb_prompt p b-a$" {
443 send_gdb "\n"
444 gdb_expect {
445 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
446 pass "complete (2) 'p b-a'"
447 }
448 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
449 timeout { fail "(timeout) complete (2) 'p b-a'" }
450 }
451 }
452 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
453 send_gdb "n"
454 gdb_expect {
455 -re "\\(gdb\\) p b-a$" {
456 send_gdb "\n"
457 gdb_expect {
458 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
459 pass "complete (2) 'p b-a'"
460 }
461 -re ".*$gdb_prompt $" {
462 fail "complete (2) 'p b-a'"
463 }
464 timeout { fail "(timeout) complete (2) 'p b-a'" }
465 }
466 }
467 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
468 timeout { fail "(timeout) complete (2) 'p b-a'" }
469 }
470 }
471 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
472 timeout { fail "(timeout) complete (2) 'p b-a'" }
c906108c 473 }
085dd6e6
JM		 474 }
475 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
476 timeout { fail "(timeout) complete (2) 'p b-a'" }
477}
c906108c
SS		 478
479send_gdb "p b-\t"
480sleep 1
481gdb_expect {
085dd6e6
JM		 482 -re "^p b-\\\x07$" {
483 send_gdb "\t"
484 gdb_expect {
485 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
486 send_gdb "n"
487 gdb_expect {
488 -re "\\(gdb\\) p b-$" {
489 send_gdb "\n"
490 gdb_expect {
491 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
492 pass "complete (2) 'p b-'"
493 }
494 -re ".*$gdb_prompt $" {
495 fail "complete (2) 'p b-'"
496 }
497 timeout { fail "(timeout) complete (2) 'p b-'" }
498 }
499 }
500 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
501 timeout { fail "(timeout) complete (2) 'p b-'" }
502 }
503 }
504 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
505 timeout { fail "(timeout) complete (2) 'p b-'" }
506 }
507 }
508 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
509 timeout { fail "(timeout) complete (2) 'p b-'" }
510}
c906108c
SS		 511
512send_gdb "file ${objdir}/Make\t"
513sleep 1
514gdb_expect {
515 -re "file ${objdir}/Makefile.*$"\
516 { send_gdb "\n"
517 gdb_expect {
518 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\
519 { send_gdb "n\n"
520 gdb_expect {
521 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
522 { pass "complete 'file Make'"}
523 -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
524 timeout {fail "(timeout) complete 'file Make'"}
525 }
526 }
527 -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
528 timeout {fail "(timeout) complete 'file Make'"}
529 }
530 }
531 -re ".*$gdb_prompt $" { fail "complete 'file Make'" }
532 timeout { fail "(timeout) complete 'file Make'" }
533 }
534
535
536send_gdb "file ${srcdir}/gdb.base/a1\t"
537sleep 1
538gdb_expect {
085dd6e6 539 -re "^file ${srcdir}/gdb.base/.*'a1.*-self\\.exp' $"\
c906108c
SS		 540 { send_gdb "\n"
541 gdb_expect {
542 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
543\
544 { send_gdb "n\n"
545 gdb_expect {
546 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
547 { pass "complete 'file gdb.base/a1'"}
548 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
549 timeout {fail "(timeout) complete 'file gdb.base/a1'"}
550 }
551 }
552 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
553 timeout {fail "(timeout) complete 'file gdb.base/a1'"}
554 }
555 }
556 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'" }
557 timeout { fail "(timeout) complete 'file gdb.base/a1'" }
558 }
559
560
561send_gdb "info func mark\t"
562sleep 1
563gdb_expect {
564 -re "^info func mark.*er$"\
085dd6e6
JM		 565 {
566 send_gdb "\t\t"
c906108c
SS		 567 sleep 3
568 gdb_expect {
085dd6e6 569 -re "marker1.*$gdb_prompt info func marker$"\
c906108c
SS		 570 { send_gdb "\n"
571 gdb_expect {
085dd6e6 572 -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(.*\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long\\);\r\n$gdb_prompt $"\
c906108c
SS		 573 { pass "complete 'info func mar'"}
574 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
575 timeout {fail "(timeout) complete 'info func mar'"}
576 }
577 }
578 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
579 timeout {fail "(timeout) complete 'info func mar'"}
580 }
581 }
582 -re ".*$gdb_prompt $" { fail "complete 'info func mar'" }
583 timeout { fail "(timeout) complete 'info func mar'" }
584 }
585
586
587send_gdb "set follow-fork-mode \t\t"
588sleep 1
589gdb_expect {
590 -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
591 { send_gdb "\n"
592 gdb_expect {
085dd6e6
JM		 593 -re "Requires an argument.*parent.*child.*ask.*$gdb_prompt $"\
594 { pass "complete 'set follow-fork-mode'"}
c906108c
SS		 595 -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
596 { pass "complete 'set follow-fork-mode'"}
597 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
598 timeout {fail "(timeout) complete 'set follow-fork-mode'"}
599 }
600 }
601 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
602 timeout { fail "(timeout) complete 'set follow-fork-mode'" }
603 }
604
605set timeout $oldtimeout1
606return 0
607
608
609
610
611
612
613
614
615
616
617
618
619
620
GDB Binutils - Deliverables
This page took 0.075618 seconds and 4 git commands to generate.