313f4e31dd
* gdb.gdbtk/browser.test,browser.exp: Add browser window
tests.
* gdb.gdbtk/stack1.c,stack2.c: Test case for browser window.
44 lines
No EOL
903 B
Text
44 lines
No EOL
903 B
Text
if {$tracelevel} {
|
|
strace $tracelevel
|
|
}
|
|
|
|
#
|
|
# test console window
|
|
#
|
|
set prms_id 0
|
|
set bug_id 0
|
|
|
|
set testfile "stack"
|
|
set binfile ${objdir}/${subdir}/${testfile}
|
|
set r [gdb_compile "${srcdir}/${subdir}/stack1.c ${srcdir}/${subdir}/stack2.c" "${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 browser.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...
|
|
}
|
|
}
|
|
} |