[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.gdbtk / console.test

#   Copyright (C) 1998 Cygnus Solutions
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu

# This file was written by Keith Seitz (keiths@cygnus.com)

# Read in the standard defs file

if {![gdbtk_read_defs]} {
  break
}

global objdir test_ran
global console text
set console [ManagedWin::open Console]
set text [$console get_text]

#####                            #####
#                                    #
#  Helper functions for this module  #
#                                    #
#####                            #####

# console_command --
#      Invoke STRING as a command in the console window and
#      return the result
proc console_command {string} { 
  global console text

  # Save current position
  set line [lindex [split [$text index cmdmark] .] 0]
  incr line 1

  # Insert and invoke command
  $text insert end $string
  $console invoke
  update

  # Get the result
  set end [lindex [split [$text index cmdmark] .] 0]
  incr end -1
  return [$text get $line.0 [list $end.0 lineend]]
} 

# get_cmd_line --
#     Return the command line
proc get_cmd_line {} {
  global text

  update
  set index [$text index cmdmark]
  return [$text get [list $index linestart] [list $index lineend]]
}

# clear_command_line --
#     Clear the command line
proc clear_command_line {} {
  global text
  $text delete {cmdmark + 1 char} insert
}

#####         #####
#                 #
#  CONSOLE TESTS  #
#                 #
#####         #####

#
# Miscellaneous tests
#

# Test:  console-misc-1
# Desc:  Change console prompt
gdbtk_test console-misc-1 {change console prompt} {
  # Insert the "set prompt" command into the text widget
  console_command {set prompt (test) }

  $text get {cmdmark linestart} {cmdmark lineend}
} {(test) }
if {$test_ran} {
  console_command {set prompt (gdb) }
}

#
# Paste tests
#

# Test:  console-paste-1
# Desc:  Paste the X selection into console window
gdbtk_test console-paste-1 {paste X text} {
  # This is cheesy, but it works... Create a text widget
  # which holds the current selection...
  text .test_text
  .test_text insert end "this is some pasted text"
  .test_text tag add sel 1.0 {1.0 lineend}

  event generate $text <<Paste>>
  get_cmd_line
} {(gdb) this is some pasted text}
if {$test_ran} {
  destroy .test_text
  clear_command_line
}

#
# Test for errors
#

# Test:  console-error-1
# Desc:  Check if console window reports internal gdb errors
gdbtk_test console-error-1 {invoke unknown command} {
  console_command {this_command_doesn't_exist}
} {Error: Undefined command: "this".  Try "help".
}

#
# History tests
#

# Test:  console-history-1.1
# Desc:  Exercise the up-history functionality
gdbtk_test console-history-1.1 {up history once} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}
  event generate $text <Up>
  get_cmd_line
} {(gdb) help si}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-1.2
# Desc:  Exercise the up-history functionality
gdbtk_test console-history-1.2 {up history twice} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}
  event generate $text <Up>
  event generate $text <Up>
  get_cmd_line
} {(gdb) help quit}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-1.3
# Desc:  Exercise the up-history functionality
gdbtk_test console-history-1.3 {up history four times} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}

  for {set i 0} {$i < 4} {incr i} {
    event generate $text <Up>
  }
  get_cmd_line
} {(gdb) show remotedevice}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-1.4
# Desc:  Exercise the up-history functionality
gdbtk_test console-history-1.4 {up fourteen times} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}
  for {set i 0} {$i < 14} {incr i} {
    event generate $text <Up>
  }
  get_cmd_line
} {(gdb) show annotate}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-2.1
# Desc:  Exercise the down-history functionality
gdbtk_test console-history-2.1 {down once} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}

  for {set i 0} {$i < 14} {incr i} {
    event generate $text <Up>
  }
  event generate $text <Down>
  get_cmd_line
} {(gdb) show complaints}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-2.2
# Desc:  Exercise the down-history functionality
gdbtk_test console-history-2.2 {down twice} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}

  for {set i 0} {$i < 14} {incr i} {
    event generate $text <Up>
  }

  event generate $text <Down>
  event generate $text <Down>
  get_cmd_line
} {(gdb) show confirm}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-2.3
# Desc:  Exercise the down-history functionality
gdbtk_test console-history-2.3 {down four times} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}

  for {set i 0} {$i < 14} {incr i} {
    event generate $text <Up>
  }

  for {set i 0} {$i < 4} {incr i} {
  event generate $text <Down>
  }
  get_cmd_line
} {(gdb) show language}
if {$test_ran} {
  clear_command_line
}

# Test:  console-history-2.4
# Desc:  Exercise the down-history functionality
gdbtk_test console-history-2.4 {down infinitely} {
  # Add some commands into the command buffer
  console_command {show annotate}
  console_command {show complaints}
  console_command {show confirm}
  console_command {show height}
  console_command {show language}
  console_command {show print demangle}
  console_command {show remotebaud}
  console_command {show remotebreak}
  console_command {show remotecache}
  console_command {show remotedebug}
  console_command {show remotedevice}
  console_command {show remotelogbase}
  console_command {help quit}
  console_command {help si}
  for {set i 0} {$i < 14} {incr i} {
    event generate $text <Up>
  }

  for {set i 0} {$i < 20} {incr i} {
    event generate $text <Down>
  }
  get_cmd_line
} {(gdb) }
if {$test_ran} {
  clear_command_line
}

#
# gdb - gdbtk Interface Tests
#

# Test:  console-interface-1.1
# Desc:  Verify that a "file" command in the console window causes
#        gdb to invoke the pre-/post-add-symbol hooks
set file_loaded 0
gdbtk_test console-interface-1.1 {file command goes through hooks} {
  global TEST1_RESULT TEST2_RESULT

  # This is really ugly, but its the only way to do this...
  rename gdbtk_tcl_pre_add_symbol pre_add
  rename gdbtk_tcl_post_add_symbol post_add

  proc gdbtk_tcl_pre_add_symbol {file} {
    global TEST1_RESULT

    set TEST1_RESULT $file
    pre_add $file
  }
  proc gdbtk_tcl_post_add_symbol {} {
    global TEST2_RESULT

    set TEST2_RESULT ok
    post_add
  }

  # load a file and make sure we went through the pre/post_add_symbol hooks
  set TEST1_RESULT {}
  set TEST2_RESULT {}
  set file [file join $objdir simple]
  console_command "file $file"
  if {$TEST1_RESULT != $file} {
    set result "did not go through gdbtk_tcl_pre_add_symbol ($TEST1_RESULT)"
  } elseif {$TEST2_RESULT != "ok"} {
    set result "did not go through gdbtk_tcl_post_add_symbol"
  } else {
    set result {}
    set file_loaded 1
  }

  set result
} {}
if {$test_ran} {
  rename gdbtk_tcl_pre_add_symbol {}
  rename gdbtk_tcl_post_add_symbol {}
  rename pre_add gdbtk_tcl_pre_add_symbol
  rename post_add gdbtk_tcl_post_add_symbol
}

#
#  Exit
#
gdbtk_test_done
Commit	Line	Data
c98fe0c1 JI	1	# Copyright (C) 1998 Cygnus Solutions
	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 Keith Seitz (keiths@cygnus.com)
	21
	22	# Read in the standard defs file
	23
	24	if {![gdbtk_read_defs]} {
	25	break
	26	}
	27
	28	global objdir test_ran
	29	global console text
	30	set console [ManagedWin::open Console]
	31	set text [$console get_text]
	32
	33	##### #####
	34	# #
	35	# Helper functions for this module #
	36	# #
	37	##### #####
	38
	39	# console_command --
	40	# Invoke STRING as a command in the console window and
	41	# return the result
	42	proc console_command {string} {
	43	global console text
	44
	45	# Save current position
	46	set line [lindex [split [$text index cmdmark] .] 0]
	47	incr line 1
	48
	49	# Insert and invoke command
	50	$text insert end $string
	51	$console invoke
	52	update
	53
	54	# Get the result
	55	set end [lindex [split [$text index cmdmark] .] 0]
	56	incr end -1
	57	return [$text get $line.0 [list $end.0 lineend]]
	58	}
	59
	60	# get_cmd_line --
	61	# Return the command line
	62	proc get_cmd_line {} {
	63	global text
	64
65	update
66	set index [$text index cmdmark]
67	return [$text get [list $index linestart] [list $index lineend]]
68	}
69
70	# clear_command_line --
71	# Clear the command line
72	proc clear_command_line {} {
73	global text
74	$text delete {cmdmark + 1 char} insert
75	}
76
77	##### #####
78	# #
79	# CONSOLE TESTS #
80	# #
81	##### #####
82
83	#
84	# Miscellaneous tests
85	#
86
87	# Test: console-misc-1
88	# Desc: Change console prompt
89	gdbtk_test console-misc-1 {change console prompt} {
90	# Insert the "set prompt" command into the text widget
91	console_command {set prompt (test) }
92
93	$text get {cmdmark linestart} {cmdmark lineend}
94	} {(test) }
95	if {$test_ran} {
96	console_command {set prompt (gdb) }
97	}
98
99	#
100	# Paste tests
101	#
102
103	# Test: console-paste-1
104	# Desc: Paste the X selection into console window
105	gdbtk_test console-paste-1 {paste X text} {
106	# This is cheesy, but it works... Create a text widget
107	# which holds the current selection...
108	text .test_text
109	.test_text insert end "this is some pasted text"
110	.test_text tag add sel 1.0 {1.0 lineend}
111
112	event generate $text <<Paste>>
113	get_cmd_line
114	} {(gdb) this is some pasted text}
115	if {$test_ran} {
116	destroy .test_text
117	clear_command_line
118	}
119
120	#
121	# Test for errors
122	#
123
124	# Test: console-error-1
125	# Desc: Check if console window reports internal gdb errors
126	gdbtk_test console-error-1 {invoke unknown command} {
127	console_command {this_command_doesn't_exist}
128	} {Error: Undefined command: "this". Try "help".
129	}
130
131	#
132	# History tests
133	#
134
135	# Test: console-history-1.1
136	# Desc: Exercise the up-history functionality
137	gdbtk_test console-history-1.1 {up history once} {
138	# Add some commands into the command buffer
139	console_command {show annotate}
140	console_command {show complaints}
141	console_command {show confirm}
142	console_command {show height}
143	console_command {show language}
144	console_command {show print demangle}
145	console_command {show remotebaud}
146	console_command {show remotebreak}
147	console_command {show remotecache}
148	console_command {show remotedebug}
149	console_command {show remotedevice}
150	console_command {show remotelogbase}
151	console_command {help quit}
152	console_command {help si}
153	event generate $text <Up>
154	get_cmd_line
155	} {(gdb) help si}
156	if {$test_ran} {
157	clear_command_line
158	}
159
160	# Test: console-history-1.2
161	# Desc: Exercise the up-history functionality
162	gdbtk_test console-history-1.2 {up history twice} {
163	# Add some commands into the command buffer
164	console_command {show annotate}
165	console_command {show complaints}
166	console_command {show confirm}
167	console_command {show height}
168	console_command {show language}
169	console_command {show print demangle}
170	console_command {show remotebaud}
171	console_command {show remotebreak}
172	console_command {show remotecache}
173	console_command {show remotedebug}
174	console_command {show remotedevice}
175	console_command {show remotelogbase}
176	console_command {help quit}
177	console_command {help si}
178	event generate $text <Up>
179	event generate $text <Up>
180	get_cmd_line
181	} {(gdb) help quit}
182	if {$test_ran} {
183	clear_command_line
184	}
185
186	# Test: console-history-1.3
187	# Desc: Exercise the up-history functionality
188	gdbtk_test console-history-1.3 {up history four times} {
189	# Add some commands into the command buffer
190	console_command {show annotate}
191	console_command {show complaints}
192	console_command {show confirm}
193	console_command {show height}
194	console_command {show language}
195	console_command {show print demangle}
196	console_command {show remotebaud}
197	console_command {show remotebreak}
198	console_command {show remotecache}
199	console_command {show remotedebug}
200	console_command {show remotedevice}
201	console_command {show remotelogbase}
202	console_command {help quit}
203	console_command {help si}
204
205	for {set i 0} {$i < 4} {incr i} {
206	event generate $text <Up>
207	}
208	get_cmd_line
209	} {(gdb) show remotedevice}
210	if {$test_ran} {
211	clear_command_line
212	}
213
214	# Test: console-history-1.4
215	# Desc: Exercise the up-history functionality
216	gdbtk_test console-history-1.4 {up fourteen times} {
217	# Add some commands into the command buffer
218	console_command {show annotate}
219	console_command {show complaints}
220	console_command {show confirm}
221	console_command {show height}
222	console_command {show language}
223	console_command {show print demangle}
224	console_command {show remotebaud}
225	console_command {show remotebreak}
226	console_command {show remotecache}
227	console_command {show remotedebug}
228	console_command {show remotedevice}
229	console_command {show remotelogbase}
230	console_command {help quit}
231	console_command {help si}
232	for {set i 0} {$i < 14} {incr i} {
233	event generate $text <Up>
234	}
235	get_cmd_line
236	} {(gdb) show annotate}
237	if {$test_ran} {
238	clear_command_line
239	}
240
241	# Test: console-history-2.1
242	# Desc: Exercise the down-history functionality
243	gdbtk_test console-history-2.1 {down once} {
244	# Add some commands into the command buffer
245	console_command {show annotate}
246	console_command {show complaints}
247	console_command {show confirm}
248	console_command {show height}
249	console_command {show language}
250	console_command {show print demangle}
251	console_command {show remotebaud}
252	console_command {show remotebreak}
253	console_command {show remotecache}
254	console_command {show remotedebug}
255	console_command {show remotedevice}
256	console_command {show remotelogbase}
257	console_command {help quit}
258	console_command {help si}
259
260	for {set i 0} {$i < 14} {incr i} {
261	event generate $text <Up>
262	}
263	event generate $text <Down>
264	get_cmd_line
265	} {(gdb) show complaints}
266	if {$test_ran} {
267	clear_command_line
268	}
269
270	# Test: console-history-2.2
271	# Desc: Exercise the down-history functionality
272	gdbtk_test console-history-2.2 {down twice} {
273	# Add some commands into the command buffer
274	console_command {show annotate}
275	console_command {show complaints}
276	console_command {show confirm}
277	console_command {show height}
278	console_command {show language}
279	console_command {show print demangle}
280	console_command {show remotebaud}
281	console_command {show remotebreak}
282	console_command {show remotecache}
283	console_command {show remotedebug}
284	console_command {show remotedevice}
285	console_command {show remotelogbase}
286	console_command {help quit}
287	console_command {help si}
288
289	for {set i 0} {$i < 14} {incr i} {
290	event generate $text <Up>
291	}
292
293	event generate $text <Down>
294	event generate $text <Down>
295	get_cmd_line
296	} {(gdb) show confirm}
297	if {$test_ran} {
298	clear_command_line
299	}
300
301	# Test: console-history-2.3
302	# Desc: Exercise the down-history functionality
303	gdbtk_test console-history-2.3 {down four times} {
304	# Add some commands into the command buffer
305	console_command {show annotate}
306	console_command {show complaints}
307	console_command {show confirm}
308	console_command {show height}
309	console_command {show language}
310	console_command {show print demangle}
311	console_command {show remotebaud}
312	console_command {show remotebreak}
313	console_command {show remotecache}
314	console_command {show remotedebug}
315	console_command {show remotedevice}
316	console_command {show remotelogbase}
317	console_command {help quit}
318	console_command {help si}
319
320	for {set i 0} {$i < 14} {incr i} {
321	event generate $text <Up>
322	}
323
324	for {set i 0} {$i < 4} {incr i} {
325	event generate $text <Down>
326	}
327	get_cmd_line
328	} {(gdb) show language}
329	if {$test_ran} {
330	clear_command_line
331	}
332
333	# Test: console-history-2.4
334	# Desc: Exercise the down-history functionality
335	gdbtk_test console-history-2.4 {down infinitely} {
336	# Add some commands into the command buffer
337	console_command {show annotate}
338	console_command {show complaints}
339	console_command {show confirm}
340	console_command {show height}
341	console_command {show language}
342	console_command {show print demangle}
343	console_command {show remotebaud}
344	console_command {show remotebreak}
345	console_command {show remotecache}
346	console_command {show remotedebug}
347	console_command {show remotedevice}
348	console_command {show remotelogbase}
349	console_command {help quit}
350	console_command {help si}
351	for {set i 0} {$i < 14} {incr i} {
352	event generate $text <Up>
353	}
354
355	for {set i 0} {$i < 20} {incr i} {
356	event generate $text <Down>
357	}
358	get_cmd_line
359	} {(gdb) }
360	if {$test_ran} {
361	clear_command_line
362	}
363
364	#
365	# gdb - gdbtk Interface Tests
366	#
367
368	# Test: console-interface-1.1
369	# Desc: Verify that a "file" command in the console window causes
370	# gdb to invoke the pre-/post-add-symbol hooks
371	set file_loaded 0
372	gdbtk_test console-interface-1.1 {file command goes through hooks} {
373	global TEST1_RESULT TEST2_RESULT
374
375	# This is really ugly, but its the only way to do this...
376	rename gdbtk_tcl_pre_add_symbol pre_add
377	rename gdbtk_tcl_post_add_symbol post_add
378
379	proc gdbtk_tcl_pre_add_symbol {file} {
380	global TEST1_RESULT
381
382	set TEST1_RESULT $file
383	pre_add $file
384	}
385	proc gdbtk_tcl_post_add_symbol {} {
386	global TEST2_RESULT
387
388	set TEST2_RESULT ok
389	post_add
390	}
391
392	# load a file and make sure we went through the pre/post_add_symbol hooks
393	set TEST1_RESULT {}
394	set TEST2_RESULT {}
395	set file [file join $objdir simple]
396	console_command "file $file"
397	if {$TEST1_RESULT != $file} {
398	set result "did not go through gdbtk_tcl_pre_add_symbol ($TEST1_RESULT)"
399	} elseif {$TEST2_RESULT != "ok"} {
400	set result "did not go through gdbtk_tcl_post_add_symbol"
401	} else {
402	set result {}
403	set file_loaded 1
404	}
405
406	set result
407	} {}
408	if {$test_ran} {
409	rename gdbtk_tcl_pre_add_symbol {}
410	rename gdbtk_tcl_post_add_symbol {}
411	rename pre_add gdbtk_tcl_pre_add_symbol
412	rename post_add gdbtk_tcl_post_add_symbol
413	}
414
415	#
416	# Exit
417	#
418	gdbtk_test_done