From cc1d7add9b4b487504ee97d88a66241938d728a1 Mon Sep 17 00:00:00 2001
From: Pierre Muller <muller@sourceware.org>
Date: Wed, 25 Mar 2009 10:52:22 +0000
Subject: [PATCH] 	* gdb.base/completion.exp: Add a test for directory
 completion.

---
 gdb/testsuite/ChangeLog               |  4 ++++
 gdb/testsuite/gdb.base/completion.exp | 30 +++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 38837b0832a..7f7f6f6b805 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-25  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+	* gdb.base/completion.exp: Add a test for directory completion.
+
 2009-03-22  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
 	Fix a racy FAIL.
diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 879743160f6..b937298a168 100644
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -734,6 +734,36 @@ gdb_test "cd ${fullsrcdir}" \
          "Working directory [string_to_regexp ${fullsrcdir}].*" \
          "cd to \${srcdir}"
 
+
+# GDB used to fail adding / on directories, on the first try only
+send_gdb "dir ../testsu\t"
+gdb_expect {
+	-re "../testsuite/$" {
+	    pass "directory completion"
+	    send_gdb "gdb.bas\t"
+	}
+	-re "../testsuite $" {
+	    fail "directory completion (old gdb bug)"
+	    send_gdb "\b/gdb.bas\t"
+	}
+	default {
+	    fail "directory completion (timeout)"
+	    send_gdb "\ndir ../testsuite/gdb.bas\t"
+	}
+}
+
+gdb_expect {
+	-re "gdb.base/$" {
+	    pass "directory completion 2"
+	}
+	timeout {
+	    fail "directory completion 2"
+	}
+}
+
+gdb_test "\n" "" "Glob remaining of directory test"
+
+
 send_gdb "complete file ./gdb.base/compl\n"
 sleep 1
 gdb_expect  {
-- 
2.30.2