From 093a6bec52d21aba6b3b1318a6d7bafc2c870f25 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Fri, 6 Nov 2020 15:37:17 +0100
Subject: [PATCH] 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 79493a571b6..64b7a266635 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")))))
-- 
2.39.2