diff options
Diffstat (limited to 'test/lisp/progmodes/elisp-mode-tests.el')
| -rw-r--r-- | test/lisp/progmodes/elisp-mode-tests.el | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el index 3856dcd717a..4d339934f83 100644 --- a/test/lisp/progmodes/elisp-mode-tests.el +++ b/test/lisp/progmodes/elisp-mode-tests.el @@ -1082,6 +1082,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-indentation () (ert-test-erts-file (ert-resource-file "elisp-indents.erts")) (ert-test-erts-file (ert-resource-file "flet.erts") @@ -1089,5 +1101,17 @@ evaluation of BODY." (emacs-lisp-mode) (indent-region (point-min) (point-max))))) +(ert-deftest test-cl-flet-indentation () + :expected-result :failed ; FIXME: bug#9622 + (should (equal + (with-temp-buffer + (emacs-lisp-mode) + (insert "(cl-flet ((bla (x)\n(* x x)))\n(bla 42))") + (indent-region (point-min) (point-max)) + (buffer-string)) + "(cl-flet ((bla (x) + (* x x))) + (bla 42))"))) + (provide 'elisp-mode-tests) ;;; elisp-mode-tests.el ends here |