From bcc82369d233afc216faa4480bb549e121781bff Mon Sep 17 00:00:00 2001 From: Bob Rossi Date: Thu, 8 Jul 2004 01:57:51 +0000 Subject: [PATCH] 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. --- gdb/testsuite/ChangeLog | 9 +++++++++ gdb/testsuite/gdb.mi/mi-file.exp | 16 +++++++++++++--- 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 + + * 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 * 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 -- 2.30.2