gdb/testsuite/gdb.gdbtk/windows.exp

   1 # Copyright 2001, 2004 Red Hat, Inc.
   2 #
   3 # This program is free software; you can redistribute it and/or modify it
   4 # under the terms of the GNU General Public License (GPL) as published by
   5 # the Free Software Foundation; either version 2 of the License, or (at
   6 # your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12
  13 load_lib ../gdb.gdbtk/insight-support.exp
  14
  15 if {[gdbtk_initialize_display]} {
  16   if {$tracelevel} {
  17     strace $tracelevel
  18   }
  19
  20   #
  21   # Basic window tests (basic as in, "do they open")
  22   #
  23   set prms_id 0
  24   set bug_id 0
  25
  26   set srcfile [file join $srcdir $subdir c_variable.c]
  27   set binfile [file join $objdir $subdir c_variable]
  28   set r [gdb_compile $srcfile $binfile executable {debug}]
  29   if  { $r != "" } {
  30     gdb_suppress_entire_file \
  31       "Testcase compile failed, so some tests in this file will automatically fail."
  32   }
  33
  34   # Start with a fresh gdbtk
  35   gdb_exit
  36   set results [gdbtk_start [file join $srcdir $subdir windows.test]]
  37   set results [split $results \n]
  38
  39   # Analyze results
  40   gdbtk_done $results
  41 }