gdb/

[binutils-gdb.git] / gdb / testsuite / gdb.trace / mi-trace-unavailable.exp

diff --git a/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp b/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp
index 42f6e326c2e2e33ca832d00f89e04a7f22e97359..d96ec8b185e40096a5999435466e68269a681bb5 100644 (file)
--- a/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp
+++ b/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp
@@ -75,9 +75,6 @@ mi_gdb_test "-trace-save ${tracefile}.tf" ".*\\^done" \
 mi_gdb_test "-trace-save -ctf ${tracefile}.ctf" ".*\\^done" \
     "save ctf trace file"
 
-mi_gdb_test "-gdb-set print entry-values no" {\^done} \
-    "-gdb-set print entry-values no"
-
 proc test_trace_unavailable { data_source } {
     global decimal
 
@@ -89,6 +86,22 @@ proc test_trace_unavailable { data_source } {
            ".*\\^done,found=\"1\",tracepoint=\"${decimal}\",traceframe=\"0\",frame=\{.*" \
            "-trace-find frame-number 0"
 
+       # The "print entry-values" option shouldn't affect the output of
+       # '-stack-list-locals'.
+       foreach entry_values { no only preferred if-needed both compact default } {
+           mi_gdb_test "-gdb-set print entry-values $entry_values" {\^done} ""
+
+           with_test_prefix "$entry_values" {
+               # Test MI command '-stack-list-locals'.
+               mi_gdb_test "-stack-list-locals --simple-values" \
+                   ".*\\^done,locals=\\\[\{name=\"array\",type=\"unsigned char \\\[2\\\]\"\},\{name=\"i\",type=\"int\",value=\"<unavailable>\"\}\\\]" \
+                   "-stack-list-locals --simple-values"
+           }
+       }
+
+       mi_gdb_test "-gdb-set print entry-values no" {\^done} \
+           "-gdb-set print entry-values no"
+
        # Test MI command '-stack-list-locals'.
        mi_gdb_test "-stack-list-locals --simple-values" \
            ".*\\^done,locals=\\\[\{name=\"array\",type=\"unsigned char \\\[2\\\]\"\},\{name=\"i\",type=\"int\",value=\"<unavailable>\"\}\\\]" \