1 # Copyright 2001, 2004 Red Hat, Inc.
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.
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.
13 load_lib ../gdb.gdbtk/insight-support.exp
15 if {[gdbtk_initialize_display]} {
21 # Basic window tests (basic as in, "do they open")
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}]
30 gdb_suppress_entire_file \
31 "Testcase compile failed, so some tests in this file will automatically fail."
34 # Start with a fresh gdbtk
36 set results [gdbtk_start [file join $srcdir $subdir windows.test]]
37 set results [split $results \n]