master 093a6be: Update gdb-mi-tests

[Mattias Engdegård]

branch: master
commit 093a6bec52d21aba6b3b1318a6d7bafc2c870f25
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Update gdb-mi-tests
    
    * test/lisp/progmodes/gdb-mi-tests.el (gdb-mi-parse-value):
    Make test pass after the change in gdb-mi-decode-strings default value.
---
 test/lisp/progmodes/gdb-mi-tests.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/lisp/progmodes/gdb-mi-tests.el 
b/test/lisp/progmodes/gdb-mi-tests.el
index 79493a5..64b7a26 100644
--- a/test/lisp/progmodes/gdb-mi-tests.el
+++ b/test/lisp/progmodes/gdb-mi-tests.el
@@ -34,8 +34,10 @@
            '((alpha . "ab\ncd")
              (beta . ("x" ("y" (delta . ())))))))
 
-  (should (equal (gdb-mi--from-string "alpha=\"a\\303\\245b\"")
-                 `((alpha . ,(string-to-multibyte "a\303\245b")))))
+  (let ((gdb-mi-decode-strings nil))
+    (let ((ref `((alpha . ,(string-to-multibyte "a\303\245b")))))
+      (should (equal (gdb-mi--from-string "alpha=\"a\\303\\245b\"")
+                     ref))))
   (let ((gdb-mi-decode-strings 'utf-8))
     (should (equal (gdb-mi--from-string "alpha=\"a\\303\\245b\"")
                    '((alpha . "aåb")))))