diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-02-05 01:46:51 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-02-05 01:51:02 -0500 |
| commit | a718ddfee1ec76e8d5aa1088206f148ffc53172b (patch) | |
| tree | 35827dd7ac03a9f83136506a710717e0fdf450f4 /bog-tests.el | |
| parent | 43b8c64543e9db2c4f663c1071c616438b76636e (diff) | |
| download | bog-a718ddfee1ec76e8d5aa1088206f148ffc53172b.tar.gz | |
Rename bog-citekey-heading
New name, `bog-citekey-from-heading-title', provides a clearer
indication of what it is doing.
Diffstat (limited to 'bog-tests.el')
| -rw-r--r-- | bog-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/bog-tests.el b/bog-tests.el index 5b0cd79..524bdd2 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -44,27 +44,27 @@ (goto-char (point-min)) (should (equal (bog-citekey-at-point) citekey))))) -;; `bog-citekey-heading' +;; `bog-citekey-from-heading-title' -(ert-deftest bog-citekey-heading-current-level () +(ert-deftest bog-citekey-from-heading-title-current-level () (let ((citekey "name2010word")) (with-temp-buffer (insert (format "\n* top level\n\n** %s\n\nsome text\n" citekey)) (org-mode) (show-all) - (should (equal (bog-citekey-heading) citekey))))) + (should (equal (bog-citekey-from-heading-title) citekey))))) -(ert-deftest bog-citekey-heading-in-parent () +(ert-deftest bog-citekey-from-heading-title-in-parent () (let ((citekey "name2010word")) (with-temp-buffer (insert (format "\n* top level\n\n** %s\n\n*** subheading\n\nsome text\n" citekey)) (org-mode) (show-all) - (should (equal (bog-citekey-heading) citekey))))) + (should (equal (bog-citekey-from-heading-title) citekey))))) -(ert-deftest bog-citekey-heading-on-heading () +(ert-deftest bog-citekey-from-heading-title-on-heading () (let ((citekey "name2010word")) (with-temp-buffer (insert (format "\n* top level\n\n** %s\n\nsome text\n" @@ -72,7 +72,7 @@ (org-mode) (show-all) (re-search-backward bog-citekey-format) - (should (equal (bog-citekey-heading) citekey))))) + (should (equal (bog-citekey-from-heading-title) citekey))))) (ert-deftest bog-citekey-action-in-normal-text () (let ((citekey "name2010word")) |