gdb/testsuite/gdb.gdbtk/console.exp

   1 # Copyright 1998, 1999, 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   # test console window
  22   #
  23   set prms_id 0
  24   set bug_id 0
  25
  26   set testfile "simple"
  27   set srcfile ${testfile}.c
  28   set binfile ${objdir}/${subdir}/${testfile}
  29   set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}]
  30   if  { $r != "" } {
  31     gdb_suppress_entire_file \
  32       "Testcase compile failed, so some tests in this file will automatically fail."
  33   }
  34
  35   # Start with a fresh gdbtk
  36   gdb_exit
  37   set results [gdbtk_start [file join $srcdir $subdir console.test]]
  38   set results [split $results \n]
  39
  40   # Analyze results
  41   gdbtk_done $results
  42 }