diff options
Diffstat (limited to 'test/lisp/progmodes/pascal-tests.el')
| -rw-r--r-- | test/lisp/progmodes/pascal-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/progmodes/pascal-tests.el b/test/lisp/progmodes/pascal-tests.el index 10d6e0433d0..ed4c6fb03e0 100644 --- a/test/lisp/progmodes/pascal-tests.el +++ b/test/lisp/progmodes/pascal-tests.el @@ -52,4 +52,12 @@ (should (equal completions nil)) (should (equal point-before point-after)))))) +(ert-deftest pascal-beg-of-defun () + (with-temp-buffer + (pascal-mode) + (insert "program test; procedure p(") + (forward-char -1) + (pascal-beg-of-defun) + (should (equal (point) 15)))) + (provide 'pascal-tests) |