gdb/testsuite/

	* gdb.base/list.exp (test_only_end): New function.
	Call it.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a53896a45fd168e2fed82a755933150c816403ad..f7c2763709a88b906e48c7ae58fc0fb1a2b1bfac 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-06  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       * gdb.base/list.exp (test_only_end): New function.
+       Call it.
+
 2012-08-03  Edjunior Machado  <emachado@linux.vnet.ibm.com>
 
        * gdb.base/valgrind-infcall.exp: Expect leading `.' on ppc64's

diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp
index 16d25d25a19d88dc636e4de1cd4827da7ead092c..6b5b207d4b36dd1fd13cc8f5fdf74c12b3a2d4b4 100644 (file)
--- a/gdb/testsuite/gdb.base/list.exp
+++ b/gdb/testsuite/gdb.base/list.exp
@@ -505,6 +505,12 @@ proc test_forward_search {} {
        verbose "Timeout is now $timeout seconds" 2
 }
 
+proc test_only_end {} {
+    gdb_test_no_output "set listsize 2"
+    gdb_test "list 1" "list 1\r\n1\[ \t\]\[^\r\n\]*\r\n2\[ \t\]\[^\r\n\]*"
+    gdb_test "list ,5" "list ,5\r\n4\[ \t\]\[^\r\n\]*\r\n5\[ \t\]\[^\r\n\]*"
+}
+
 # Start with a fresh gdb.
 
 gdb_exit
@@ -526,6 +532,7 @@ if [ set_listsize 10 ] then {
     test_list_range
     test_list_filename_and_function
     test_forward_search
+    test_only_end
 }
 
 remote_exec build "rm -f list0.h"