FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* gdb.mi/mi-basics.exp, gdb.mi/mi2-basics.exp (test_dir_specification)

Browse source 
(test_path_specification): Use objdir instead of srcdir to always
get an absolute filename.
This commit is contained in:
Nick Roberts 2007-01-12 21:31:35 +00:00
parent 6c3c41f329
commit 18ef391a79
2 changed files with 18 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gdb/testsuite/gdb.mi/mi-basics.exp
View file

@ -42,7 +42,7 @@ set testfile "basics"
set srcfile ${testfile}.c set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
set escapedobjdir [string_to_regexp ${objdir}] set escapedobjdir [string_to_regexp ${objdir}]
set escapedsrcdir [string_to_regexp ${srcdir}] set envirodir [string_to_regexp ${objdir}/${subdir}]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } { if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
untested mi-basics.exp untested mi-basics.exp
@ -150,8 +150,9 @@ proc test_breakpoints_deletion {} {
proc test_dir_specification {} { proc test_dir_specification {} {
global mi_gdb_prompt global mi_gdb_prompt
global srcdir global objdir
global subdir global subdir
global envirodir
# Add to the search directories, display, then reset back to default # Add to the search directories, display, then reset back to default
# Tests: # Tests:
@ -159,9 +160,7 @@ proc test_dir_specification {} {
# -environment-directory # -environment-directory
# -environment-directory -r # -environment-directory -r
set envirodir [string_to_regexp ${srcdir}/${subdir}] mi_gdb_test "202-environment-directory ${objdir}/${subdir}" \
mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
"202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \ "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
"environment-directory arg operation" "environment-directory arg operation"
@ -198,9 +197,9 @@ proc test_path_specification {} {
global mi_gdb_prompt global mi_gdb_prompt
global orig_path global orig_path
global objdir global objdir
global srcdir global subdir
global escapedobjdir global escapedobjdir
global escapedsrcdir global envirodir
# Add to the path, display, then reset # Add to the path, display, then reset
# Tests: # Tests:
@ -221,13 +220,14 @@ proc test_path_specification {} {
} }
set orig_path [string_to_regexp ${orig_path}] set orig_path [string_to_regexp ${orig_path}]
set pathdir [string_to_regexp ${objdir}/${subdir}]
mi_gdb_test "207-environment-path" \ mi_gdb_test "207-environment-path" \
"207\\\^done,path=\"$orig_path\"" \ "207\\\^done,path=\"$orig_path\"" \
"environment-path no-args operation" "environment-path no-args operation"
mi_gdb_test "208-environment-path $srcdir $objdir" \ mi_gdb_test "208-environment-path $objdir ${objdir}/${subdir}" \
"208\\\^done,path=\"$escapedsrcdir.$escapedobjdir.$orig_path\"" \ "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
"environment-path dir1 dir2 operation" "environment-path dir1 dir2 operation"
mi_gdb_test "209-environment-path -r $objdir" \ mi_gdb_test "209-environment-path -r $objdir" \

18
gdb/testsuite/gdb.mi/mi2-basics.exp
View file

@ -42,7 +42,7 @@ set testfile "basics"
set srcfile ${testfile}.c set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
set escapedobjdir [string_to_regexp ${objdir}] set escapedobjdir [string_to_regexp ${objdir}]
set escapedsrcdir [string_to_regexp ${srcdir}] set envirodir [string_to_regexp ${objdir}/${subdir}]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } { if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
untested mi2-basics.exp untested mi2-basics.exp
@ -150,8 +150,9 @@ proc test_breakpoints_deletion {} {
proc test_dir_specification {} { proc test_dir_specification {} {
global mi_gdb_prompt global mi_gdb_prompt
global srcdir global objdir
global subdir global subdir
global envirodir
# Add to the search directories, display, then reset back to default # Add to the search directories, display, then reset back to default
# Tests: # Tests:
@ -159,9 +160,7 @@ proc test_dir_specification {} {
# -environment-directory # -environment-directory
# -environment-directory -r # -environment-directory -r
set envirodir [string_to_regexp ${srcdir}/${subdir}] mi_gdb_test "202-environment-directory ${objdir}/${subdir}" \
mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
"202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \ "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
"environment-directory arg operation" "environment-directory arg operation"
@ -200,9 +199,9 @@ proc test_path_specification {} {
global mi_gdb_prompt global mi_gdb_prompt
global orig_path global orig_path
global objdir global objdir
global srcdir global subdir
global escapedobjdir global escapedobjdir
global escapedsrcdir global envirodir
# Add to the path, display, then reset # Add to the path, display, then reset
# Tests: # Tests:
@ -223,13 +222,14 @@ proc test_path_specification {} {
} }
set orig_path [string_to_regexp ${orig_path}] set orig_path [string_to_regexp ${orig_path}]
set pathdir [string_to_regexp ${objdir}/${subdir}]
mi_gdb_test "207-environment-path" \ mi_gdb_test "207-environment-path" \
"207\\\^done,path=\"$orig_path\"" \ "207\\\^done,path=\"$orig_path\"" \
"environment-path no-args operation" "environment-path no-args operation"
mi_gdb_test "208-environment-path $srcdir $objdir" \ mi_gdb_test "208-environment-path $objdir ${objdir}/${subdir}" \
"208\\\^done,path=\"$escapedsrcdir.$escapedobjdir.$orig_path\"" \ "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
"environment-path dir1 dir2 operation" "environment-path dir1 dir2 operation"
mi_gdb_test "209-environment-path -r $objdir" \ mi_gdb_test "209-environment-path -r $objdir" \