diff options
Diffstat (limited to 'bog-tests.el')
| -rw-r--r-- | bog-tests.el | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/bog-tests.el b/bog-tests.el index 6a261f4..c1c98a2 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -41,13 +41,40 @@ ;; `bog-citekey-at-point' -(ert-deftest bog-citekey-at-point () +(ert-deftest bog-citekey-at-point-bob () (let ((citekey "name2010word")) (with-temp-buffer (insert citekey) (goto-char (point-min)) (should (equal (bog-citekey-at-point) citekey))))) +(ert-deftest bog-citekey-at-point-newline () + (let ((citekey "name2010word")) + (with-temp-buffer + (insert "\n" citekey) + (should (equal (bog-citekey-at-point) citekey))))) + +(ert-deftest bog-citekey-at-point-parens () + (let ((citekey "name2010word")) + (with-temp-buffer + (insert "\n(" citekey ")") + (backward-char 2) + (should (equal (bog-citekey-at-point) citekey))))) + +(ert-deftest bog-citekey-at-point-spaces () + (let ((citekey "name2010word")) + (with-temp-buffer + (insert "\n " citekey " ") + (backward-char 2) + (should (equal (bog-citekey-at-point) citekey))))) + +(ert-deftest bog-citekey-at-point-with-hyphen () + (let ((citekey "hyphen-name2010word")) + (with-temp-buffer + (insert citekey) + (goto-char (point-min)) + (should (equal (bog-citekey-at-point) citekey))))) + ;; `bog-citekey-from-tree' (ert-deftest bog-citekey-from-heading-title-current-level () |