darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

2002-09-24 Andrew Cagney <ac131313@redhat.com>

Browse source 
* gdb.gdb/complaints.exp (test_initial_complaints): Rename
	test_isolated_complaints.
	(test_empty_complaint): New function.
	(test_empty_complaints): New function.  Check no output when no
	complaints.
This commit is contained in:
Andrew Cagney 2002-09-24 16:07:42 +00:00
parent 6b3ac70943
commit 9dd34b2bcf
2 changed files with 46 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,11 @@
2002-09-24 Andrew Cagney <ac131313@redhat.com>
* gdb.gdb/complaints.exp (test_initial_complaints): Rename
test_isolated_complaints.
(test_empty_complaint): New function.
(test_empty_complaints): New function. Check no output when no
complaints.
2002-09-19 Jim Blandy <jimb@redhat.com>
* gdb.base/charset.exp, gdb.base/charset.c: New files.

40
gdb/testsuite/gdb.gdb/complaints.exp
View file

@ -101,7 +101,7 @@ proc setup_test { executable } {
return 0
}
proc test_isolated_complaints { } {
proc test_initial_complaints { } {
global gdb_prompt
@ -233,6 +233,41 @@ proc test_short_complaints { } {
return 0
}
# Check that nothing comes out when there haven't been any real
# complaints. Note that each test is really checking the previous
# command.
proc test_empty_complaint { cmd msg } {
global gdb_prompt
send_gdb $cmd
gdb_expect {
-re "\r\n\r\n$gdb_prompt " {
fail $msg
}
"\r\n$gdb_prompt" {
pass $msg
}
timeout {
fail "$msg (timeout)"
}
}
}
proc test_empty_complaints { } {
test_empty_complaint "call clear_complaints(&symfile_complaints,0,0)\n" \
"empty non-verbose non-noisy clear"
test_empty_complaint "call clear_complaints(&symfile_complaints,1,0)\n" \
"empty verbose non-noisy clear"
test_empty_complaint "call clear_complaints(&symfile_complaints,1,1)\n" \
"empty verbose noisy clear"
test_empty_complaint "call clear_complaints(&symfile_complaints,0,1)\n" \
"empty non-verbose noisy clear"
return 0
}
# Find a pathname to a file that we would execute if the shell was asked
# to run $arg using the current PATH.
@ -274,9 +309,10 @@ if {$setup_result <0} then {
return -1
}
test_isolated_complaints
test_initial_complaints
test_serial_complaints
test_short_complaints
test_empty_complaints
gdb_exit;
catch "remote_file host delete $file";