diff options
| author | Bob Rossi <bob@brasko.net> | 2004-07-08 01:57:51 +0000 |
|---|---|---|
| committer | Bob Rossi <bob@brasko.net> | 2004-07-08 01:57:51 +0000 |
| commit | 8351ea3f01c3cb249fce85f0e6bfba2121786757 (patch) | |
| tree | 1d68cee474e240293f0c1481b9b075de4b5e93bb | |
| parent | 1198c6adaadb9c47fe965f1758e82255bb80ef99 (diff) | |
| download | gdb-8351ea3f01c3cb249fce85f0e6bfba2121786757.tar.gz | |
I added the testcase for -file-list-exec-source-files to mi2-file.exp.
It should have been added to mi-file.exp. So, here it is.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.mi/mi-file.exp | 16 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.mi/mi2-file.exp | 12 |
3 files changed, 23 insertions, 14 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f49dac41464..1918fdfde35 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2004-07-07 Bob Rossi <bob_rossi@cox.net> + + * gdb.mi/mi2-file.exp: Revert to version 1.1, except changed name of + test from test_tbreak_creation_and_listing to + test_file_list_exec_source_file + * gdb.mi/mi-file.exp: Add test for -file-list-exec-source-files + Changed name of test from test_tbreak_creation_and_listing to + test_file_list_exec_source_file + 2004-07-07 Jeff Johnston <jjohnstn@redhat.com> * gdb.java/jmisc.exp: Fix expected output of ptype to look for diff --git a/gdb/testsuite/gdb.mi/mi-file.exp b/gdb/testsuite/gdb.mi/mi-file.exp index 2ffdcbfc6a9..070750fc672 100644 --- a/gdb/testsuite/gdb.mi/mi-file.exp +++ b/gdb/testsuite/gdb.mi/mi-file.exp @@ -1,4 +1,4 @@ -# Copyright 1999 Free Software Foundation, Inc. +# Copyright 1999, 2004 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -47,7 +47,7 @@ mi_delete_breakpoints mi_gdb_reinitialize_dir $srcdir/$subdir mi_gdb_load ${binfile} -proc test_tbreak_creation_and_listing {} { +proc test_file_list_exec_source_file {} { global srcfile global srcdir global subdir @@ -59,7 +59,17 @@ proc test_tbreak_creation_and_listing {} { "request path info of current source file (${srcfile})" } -test_tbreak_creation_and_listing +proc test_file_list_exec_source_files {} { + global srcfile + + # get the path and absolute path to the current executable + mi_gdb_test "222-file-list-exec-source-files" \ + "222\\\^done,files=\\\[\{file=\".*/${srcfile}\",fullname=\"/.*/${srcfile}\"\},\{file=\".*\"\},\{file=\".*\"\},\{file=\".*\"\},\{file=\".*\"\}\\\]" \ + "Getting a list of source files." +} + +test_file_list_exec_source_file +test_file_list_exec_source_files mi_gdb_exit return 0 diff --git a/gdb/testsuite/gdb.mi/mi2-file.exp b/gdb/testsuite/gdb.mi/mi2-file.exp index 9742e2c8a40..1d2a4177404 100644 --- a/gdb/testsuite/gdb.mi/mi2-file.exp +++ b/gdb/testsuite/gdb.mi/mi2-file.exp @@ -1,4 +1,4 @@ -# Copyright 1999 Free Software Foundation, Inc. +# Copyright 1999, 2004 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -59,17 +59,7 @@ proc test_file_list_exec_source_file {} { "request path info of current source file (${srcfile})" } -proc test_file_list_exec_source_files {} { - global srcfile - - # get the path and absolute path to the current executable - mi_gdb_test "222-file-list-exec-source-files" \ - "222\\\^done,files=\\\[\{file=\".*/${srcfile}\",fullname=\"/.*/${srcfile}\"\},\{file=\".*\"\},\{file=\".*\"\},\{file=\".*\"\},\{file=\".*\"\}\\\]" \ - "Getting a list of source files." -} - test_file_list_exec_source_file -test_file_list_exec_source_files mi_gdb_exit return 0 |