1 files changed, 44 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/browser.exp b/gdb/testsuite/gdb.gdbtk/browser.exp
new file mode 100644
index 0000000..2ba2b04
--- /dev/null
+++ b/gdb/testsuite/gdb.gdbtk/browser.exp
@@ -0,0 +1,44 @@
+if {$tracelevel} {
+  strace $tracelevel
+}
+
+#
+# test console 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
+foreach test $results {
+  set status [lindex $test 0]
+  set name [lindex $test 1]
+  set description [lindex $test 2]
+  set msg [lindex $test 3]
+
+  switch $status {
+    pass {
+      pass "$description ($name)"
+    }
+
+    fail {
+      fail "$description ($name)"
+    }
+
+    error {
+      # We should do something with this...
+    }
+  }
+}
+\ No newline at end of file