diff --git a/test/smartparens-elisp-test.el b/test/smartparens-elisp-test.el index 2e7b0cda..9e1036e2 100644 --- a/test/smartparens-elisp-test.el +++ b/test/smartparens-elisp-test.el @@ -13,3 +13,15 @@ (ert-deftest sp-test-elisp-invalid-hyperlink/point-after-before-punctuation () (sp-test-with-temp-elisp-buffer "; foo'|." (should-not (sp-lisp-invalid-hyperlink-p nil 'navigate nil)))) + +;; #782 +(ert-deftest sp-test-elisp-invalid-hyperlink/strict-mode-should-delete-over-contraction-after-hyperlink () + "In case there was a hyperlink followed by punctuation and a +contraction after that the parser figured that the hyperlink +actually ends at the contraction because the quote before the +punctuation was considered invalid." + (sp-test-with-temp-elisp-buffer ";; `a-symbol-name'? I'm|" + (smartparens-strict-mode 1) + (sp-backward-delete-char) + (sp-backward-delete-char) + (sp-buffer-equals ";; `a-symbol-name'? I|")))