Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests 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
Download Patch File Download Diff File Expand all files Collapse all 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";