From c2513c5d0d51159a87d7718be5cd043b6d1a7e9a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sun, 10 Oct 2021 12:03:15 +0100 Subject: [PATCH] Add new failing test for bug#51089 * test/lisp/progmodes/elisp-mode-tests.el (elisp-dont-shadow-punctuation-only-symbols): Add new failing test. --- test/lisp/progmodes/elisp-mode-tests.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el index ad39cebfc8b..e816d3c1b02 100644 --- a/test/lisp/progmodes/elisp-mode-tests.el +++ b/test/lisp/progmodes/elisp-mode-tests.el @@ -1093,6 +1093,18 @@ evaluation of BODY." (should (= 84 (funcall (intern-soft "f-test4---")))) (should (unintern "f-test4---")))) +(ert-deftest elisp-dont-shadow-punctuation-only-symbols () + :expected-result :failed ; bug#51089 + (let* ((shorthanded-form '(- 42 (-foo 42))) + (expected-longhand-form '(- 42 (fooey-foo 42))) + (observed (let ((read-symbol-shorthands + '(("-" . "fooey-")))) + (car (read-from-string + (with-temp-buffer + (print shorthanded-form (current-buffer)) + (buffer-string))))))) + (should (equal observed expected-longhand-form)))) + (ert-deftest test-cl-flet-indentation () :expected-result :failed ; FIXME: bug#9622 (should (equal -- 2.39.2