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

(test_path_specification): Use objdir instead of srcdir to always
get an absolute filename.

diff --git a/gdb/testsuite/gdb.mi/mi-basics.exp b/gdb/testsuite/gdb.mi/mi-basics.exp
index 9cdc0c98280578fcd2bee4d7332f7d9d837d35d2..d8d4b172453338aa26bf3b5ab6e4227a59ade7ee 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-basics.exp
+++ b/gdb/testsuite/gdb.mi/mi-basics.exp
@@ -42,7 +42,7 @@ set testfile "basics"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 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}] != "" } {
      untested mi-basics.exp
@@ -150,8 +150,9 @@ proc test_breakpoints_deletion {} {
 
 proc test_dir_specification {} {
     global mi_gdb_prompt
-    global srcdir
+    global objdir
     global subdir
+    global envirodir
 
     # Add to the search directories, display, then reset back to default
     # Tests:
@@ -159,9 +160,7 @@ proc test_dir_specification {} {
     # -environment-directory 
     # -environment-directory -r
 
-    set envirodir [string_to_regexp ${srcdir}/${subdir}]
-
-    mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
+    mi_gdb_test "202-environment-directory ${objdir}/${subdir}" \
              "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
              "environment-directory arg operation"
 
@@ -198,9 +197,9 @@ proc test_path_specification {} {
     global mi_gdb_prompt
     global orig_path
     global objdir
-    global srcdir
+    global subdir
     global escapedobjdir
-    global escapedsrcdir
+    global envirodir
 
     # Add to the path, display, then reset 
     # Tests:
@@ -221,13 +220,14 @@ proc test_path_specification {} {
     }
 
     set orig_path [string_to_regexp ${orig_path}]
+    set pathdir [string_to_regexp ${objdir}/${subdir}]
 
     mi_gdb_test "207-environment-path" \
              "207\\\^done,path=\"$orig_path\"" \
              "environment-path no-args operation"
 
-    mi_gdb_test "208-environment-path $srcdir $objdir" \
-             "208\\\^done,path=\"$escapedsrcdir.$escapedobjdir.$orig_path\"" \
+    mi_gdb_test "208-environment-path $objdir ${objdir}/${subdir}" \
+             "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
              "environment-path dir1 dir2 operation"
 
     mi_gdb_test "209-environment-path -r $objdir" \

diff --git a/gdb/testsuite/gdb.mi/mi2-basics.exp b/gdb/testsuite/gdb.mi/mi2-basics.exp
index 824ee428ca92af908c374e23b56f2eadd7a38895..9075029cf53a57f90f05e340c21a4acb577a5917 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi2-basics.exp
+++ b/gdb/testsuite/gdb.mi/mi2-basics.exp
@@ -42,7 +42,7 @@ set testfile "basics"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 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}] != "" } {
      untested mi2-basics.exp
@@ -150,8 +150,9 @@ proc test_breakpoints_deletion {} {
 
 proc test_dir_specification {} {
     global mi_gdb_prompt
-    global srcdir
+    global objdir
     global subdir
+    global envirodir
 
     # Add to the search directories, display, then reset back to default
     # Tests:
@@ -159,9 +160,7 @@ proc test_dir_specification {} {
     # -environment-directory 
     # -environment-directory -r
 
-    set envirodir [string_to_regexp ${srcdir}/${subdir}]
-
-    mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
+    mi_gdb_test "202-environment-directory ${objdir}/${subdir}" \
              "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
              "environment-directory arg operation"
 
@@ -200,9 +199,9 @@ proc test_path_specification {} {
     global mi_gdb_prompt
     global orig_path
     global objdir
-    global srcdir
+    global subdir
     global escapedobjdir
-    global escapedsrcdir
+    global envirodir
 
     # Add to the path, display, then reset 
     # Tests:
@@ -223,13 +222,14 @@ proc test_path_specification {} {
     }
 
     set orig_path [string_to_regexp ${orig_path}]
+    set pathdir [string_to_regexp ${objdir}/${subdir}]
 
     mi_gdb_test "207-environment-path" \
              "207\\\^done,path=\"$orig_path\"" \
              "environment-path no-args operation"
 
-    mi_gdb_test "208-environment-path $srcdir $objdir" \
-             "208\\\^done,path=\"$escapedsrcdir.$escapedobjdir.$orig_path\"" \
+    mi_gdb_test "208-environment-path $objdir ${objdir}/${subdir}" \
+             "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
              "environment-path dir1 dir2 operation"
 
     mi_gdb_test "209-environment-path -r $objdir" \