From: Pierre Muller <muller@sourceware.org>
Date: Wed, 25 Mar 2009 10:52:22 +0000 (+0000)
Subject: 	* gdb.base/completion.exp: Add a test for directory completion.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cc1d7add9b4b487504ee97d88a66241938d728a1;p=binutils-gdb.git

	* gdb.base/completion.exp: Add a test for directory completion.
---

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  {