diff options
Diffstat (limited to 'gdb/testsuite/gdb.gdbtk/browser.exp')
-rw-r--r-- | gdb/testsuite/gdb.gdbtk/browser.exp | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/browser.exp b/gdb/testsuite/gdb.gdbtk/browser.exp deleted file mode 100644 index 9869bc4ee48..00000000000 --- a/gdb/testsuite/gdb.gdbtk/browser.exp +++ /dev/null @@ -1,41 +0,0 @@ -# Copyright 1998, 1999, 2001 Red Hat, Inc. -# -# This program is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License (GPL) as published by -# the Free Software Foundation; either version 2 of the License, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. - -load_lib insight-support.exp - -if {[gdbtk_initialize_display]} { - if {$tracelevel} { - strace $tracelevel - } - - # - # test browser 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_done $results -} |