From: Mattias Engdegård Date: Fri, 6 Nov 2020 14:37:17 +0000 (+0100) Subject: Update gdb-mi-tests X-Git-Tag: emacs-28.0.90~5223 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=093a6bec52d21aba6b3b1318a6d7bafc2c870f25;p=emacs.git 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. --- 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")))))