f35ea21826
* configure.in: Add options for gdbtk testsuite.
* configure: Regenerate.
* gdb.gdbtk: New directory to hold gdbtk tests.
* gdb.gdbtk/console.{exp, test}: New console window tests.
45 lines
No EOL
903 B
Text
45 lines
No EOL
903 B
Text
if {$tracelevel} {
|
|
strace $tracelevel
|
|
}
|
|
|
|
#
|
|
# test console window
|
|
#
|
|
set prms_id 0
|
|
set bug_id 0
|
|
|
|
set testfile "simple"
|
|
set srcfile ${testfile}.c
|
|
set binfile ${objdir}/${subdir}/${testfile}
|
|
set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}]
|
|
if { $r != "" } {
|
|
gdb_suppress_entire_file \
|
|
"Testcase compile failed, so some tests in this file will automatically fail."
|
|
}
|
|
|
|
# Start with a fresh gdbtk
|
|
gdb_exit
|
|
set results [gdbtk_start [file join $srcdir $subdir console.test]]
|
|
set results [split $results \n]
|
|
|
|
# Analyze results
|
|
foreach test $results {
|
|
set status [lindex $test 0]
|
|
set name [lindex $test 1]
|
|
set description [lindex $test 2]
|
|
set msg [lindex $test 3]
|
|
|
|
switch $status {
|
|
pass {
|
|
pass "$description ($name)"
|
|
}
|
|
|
|
fail {
|
|
fail "$description ($name)"
|
|
}
|
|
|
|
error {
|
|
# We should do something with this...
|
|
}
|
|
}
|
|
} |