Add new failing test for bug#51089
* test/lisp/progmodes/elisp-mode-tests.el (elisp-dont-shadow-punctuation-only-symbols): Add new failing test.
This commit is contained in:
parent
1d1e96377c
commit
c2513c5d0d
1 changed files with 12 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue