From 93ce5efb0a0f085c2e6e33b85b6ab62297cc0c20 Mon Sep 17 00:00:00 2001
From: Jeff Johnston <jjohnstn@redhat.com>
Date: Fri, 13 Dec 2002 17:57:38 +0000
Subject: [PATCH] 2002-12-13  Jeff Johnston  <jjohnstn@redhat.com>

        * mi-basics.exp: Change tests for -environment-directory.  Also add
        tests for -environment-cd, -environment-pwd, and -environment-path.
        Part of fix for PR gdb/741.
---
 gdb/testsuite/gdb.mi/ChangeLog     |  6 +++
 gdb/testsuite/gdb.mi/mi-basics.exp | 86 +++++++++++++++++++++++++++---
 2 files changed, 85 insertions(+), 7 deletions(-)

diff --git a/gdb/testsuite/gdb.mi/ChangeLog b/gdb/testsuite/gdb.mi/ChangeLog
index 8b4426b3da1..2e2a82e3c85 100644
--- a/gdb/testsuite/gdb.mi/ChangeLog
+++ b/gdb/testsuite/gdb.mi/ChangeLog
@@ -1,3 +1,9 @@
+2002-12-13  Jeff Johnston  <jjohnstn@redhat.com>
+
+	* mi-basics.exp: Change tests for -environment-directory.  Also add
+	tests for -environment-cd, -environment-pwd, and -environment-path.
+	Part of fix for PR gdb/741.
+
 2002-11-05  Jeff Johnston  <jjohnstn@redhat.com>
 
 	* gdb792.cc: New file to test patch for PR gdb/792.
diff --git a/gdb/testsuite/gdb.mi/mi-basics.exp b/gdb/testsuite/gdb.mi/mi-basics.exp
index 4913d8f8b35..98ffe1d2acf 100644
--- a/gdb/testsuite/gdb.mi/mi-basics.exp
+++ b/gdb/testsuite/gdb.mi/mi-basics.exp
@@ -148,26 +148,98 @@ proc test_dir_specification {} {
     global srcdir
     global subdir
 
-    # Clear the search directories, then specify one to be searched
+    # Add to the search directories, display, then reset back to default
     # Tests:
-    # -environment-directory
     # -environment-directory arg
+    # -environment-directory 
+    # -environment-directory -r
 
 #exp_internal 1
-    mi_gdb_test "202-environment-directory" \
-             "\\\^done" \
+    mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
+             "\\\^done,source-path=\"${srcdir}/${subdir}.\\\$cdir.\\\$cwd\"" \
+             "environment-directory arg operation"
+
+    mi_gdb_test "203-environment-directory" \
+             "\\\^done,source-path=\"${srcdir}/${subdir}.\\\$cdir.\\\$cwd\"" \
+             "environment-directory empty-string operation"
+
+    mi_gdb_test "204-environment-directory -r" \
+             "\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \
              "environment-directory operation"
 
-    mi_gdb_test "203-environment-directory ${srcdir}/${subdir}" \
-             "\\\^done" \
-             "environment-directory arg operation"
 #exp_internal 0
 }
 
+proc test_cwd_specification {} {
+    global mi_gdb_prompt
+    global objdir
+    global subdir
+
+    # Change the working directory, then print the current working directory
+    # Tests:
+    # -environment-cd ${objdir}
+    # -environment-pwd
+
+    mi_gdb_test "205-environment-cd ${objdir}" \
+             "\\\^done" \
+             "environment-cd arg operation"
+
+    mi_gdb_test "206-environment-pwd" \
+             "\\\^done,cwd=\"${objdir}\"" \
+             "environment-pwd operation"
+}
+
+proc test_path_specification {} {
+    global mi_gdb_prompt
+    global orig_path
+    global objdir
+    global srcdir
+
+    # Add to the path, display, then reset 
+    # Tests:
+    # -environment-path 
+    # -environment-path dir1 dir2
+    # -environment-path -r dir
+    # -environment-path -r
+
+#exp_internal 1
+
+    send_gdb "-environment-path\n"
+    gdb_expect 20 {
+	-re "\\\^done,path=\"\(.*\)\"\r\n$mi_gdb_prompt" { 
+	  set orig_path $expect_out(1,string); 
+	}
+	timeout { 
+	  perror "-environment-path (timeout)" ; 
+	  return 
+	}
+    }
+
+    mi_gdb_test "207-environment-path" \
+             "\\\^done,path=\"$orig_path\"" \
+             "environment-path no-args operation"
+
+    mi_gdb_test "208-environment-path $srcdir $objdir" \
+             "\\\^done,path=\"$srcdir.$objdir.$orig_path\"" \
+             "environment-path dir1 dir2 operation"
+
+    mi_gdb_test "209-environment-path -r $objdir" \
+             "\\\^done,path=\"$objdir.$orig_path\"" \
+             "environment-path -r dir operation"
+
+    mi_gdb_test "210-environment-path -r" \
+             "\\\^done,path=\"$orig_path\"" \
+             "environment-path -r operation"
+
+#exp_internal 0
+} 
+
 if [test_mi_interpreter_selection] {
   test_exec_and_symbol_mi_operatons
   test_breakpoints_deletion
   test_dir_specification
+  test_cwd_specification
+  test_path_specification
 }
 
 mi_gdb_exit
-- 
2.30.2