1 files changed, 0 insertions, 47 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/srcwin.exp b/gdb/testsuite/gdb.gdbtk/srcwin.exp
deleted file mode 100644
index c919fe6..0000000
--- a/gdb/testsuite/gdb.gdbtk/srcwin.exp
+++ /dev/null
@@ -1,47 +0,0 @@
-#
-# Check if we have a display
-#
-if {![info exists ::env(DISPLAY)]} {
-  warning "No DISPLAY -- skipping test"
-} else {
-  if {$tracelevel} {
-    strace $tracelevel
-  }
-
-  #
-  # test source window
-  #
-  set prms_id 0
-  set bug_id 0
-  
-  set testfile "list"
-  set binfile $objdir/$subdir/$testfile
-  set r [gdb_compile "$srcdir/gdb.base/list0.c $srcdir/gdb.base/list1.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 srcwin.test]]
-  set results [split $results \n]
-  # Analyze results
-  gdbtk_analyze_results $results
-
-  # move file with "main" out of the way
-  file rename $srcdir/gdb.base/list0.c $srcdir/gdb.base/list0.c.save
-  # run slightly different set of tests
-  gdb_exit
-  set results [gdbtk_start [file join $srcdir $subdir srcwin2.test]]
-  set results [split $results \n]
-  #restore file
-  file rename $srcdir/gdb.base/list0.c.save $srcdir/gdb.base/list0.c
-  # Analyze results
-  gdbtk_analyze_results $results
-}
-
-# Local variables:
-# mode: tcl
-# change-log-default-name: "ChangeLog-gdbtk"
-# End: