# # Check if we have a display # if {![info exists ::env(DISPLAY)]} { untested "No DISPLAY -- skipping test" } else { 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 gdbtk_analyze_results $results }