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 (= 84 (funcall (intern-soft "f-test4---"))))
|
||||||
(should (unintern "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 ()
|
(ert-deftest test-cl-flet-indentation ()
|
||||||
:expected-result :failed ; FIXME: bug#9622
|
:expected-result :failed ; FIXME: bug#9622
|
||||||
(should (equal
|
(should (equal
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue