diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/list.exp | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3f2e496..a85ea17 100644 --- 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-06 Tom Tromey <tromey@redhat.com> * gdb.python/py-mi.exp: Add test for printer whose children diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp index 16d25d2..6b5b207 100644 --- 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" |