gdb/testsuite/gdb.gdbtk/browser.exp

   1 if {$tracelevel} {
   2   strace $tracelevel
   3 }
   4
   5 #
   6 # test console window
   7 #
   8 set prms_id 0
   9 set bug_id 0
  10
  11 set testfile "stack"
  12 set binfile ${objdir}/${subdir}/${testfile}
  13 set r [gdb_compile "${srcdir}/${subdir}/stack1.c ${srcdir}/${subdir}/stack2.c" "${binfile}" executable {debug}]
  14 if  { $r != "" } {
  15      gdb_suppress_entire_file \
  16        "Testcase compile failed, so some tests in this file will automatically fail."
  17 }
  18
  19 # Start with a fresh gdbtk
  20 gdb_exit
  21 set results [gdbtk_start [file join $srcdir $subdir browser.test]]
  22 set results [split $results \n]
  23
  24 # Analyze results
  25 foreach test $results {
  26   set status [lindex $test 0]
  27   set name [lindex $test 1]
  28   set description [lindex $test 2]
  29   set msg [lindex $test 3]
  30
  31   switch $status {
  32     pass {
  33       pass "$description ($name)"
  34     }
  35
  36     fail {
  37       fail "$description ($name)"
  38     }
  39
  40     error {
  41       # We should do something with this...
  42     }
  43   }
  44 }