1 files changed, 34 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/console.exp b/gdb/testsuite/gdb.gdbtk/console.exp
new file mode 100644
index 00000000000..1d50c661ab6
--- /dev/null
+++ b/gdb/testsuite/gdb.gdbtk/console.exp
@@ -0,0 +1,34 @@
+#
+# Check if we have a display
+#
+if {![info exists ::env(DISPLAY)]} {
+  untested "No DISPLAY -- skipping test"
+} else {
+
+  if {$tracelevel} {
+    strace $tracelevel
+  }
+
+  #
+  # test console window
+  #
+  set prms_id 0
+  set bug_id 0
+
+  set testfile "simple"
+  set srcfile ${testfile}.c
+  set binfile ${objdir}/${subdir}/${testfile}
+  set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${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 console.test]]
+  set results [split $results \n]
+
+  # Analyze results
+  gdbtk_analyze_results $results
+}