diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-12-11 01:04:25 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-12-11 01:11:46 -0500 |
| commit | 7d458a443fc680d0be6f386c13bead32162f75cf (patch) | |
| tree | 9d0a59b2d8cf1c6b96efffaa02e86e85e3820f8e /bog-tests.el | |
| parent | 7688cb0c61a757baab5fe830ed12520cb54756ae (diff) | |
| download | bog-7d458a443fc680d0be6f386c13bead32162f75cf.tar.gz | |
Make citekey groups for web search customizable
Diffstat (limited to 'bog-tests.el')
| -rw-r--r-- | bog-tests.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/bog-tests.el b/bog-tests.el index 91bf252..201bc89 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -77,16 +77,12 @@ point at the beginning of the inserted text." (ert-deftest bog-citekey-p-with-other-text () (should-not (bog-citekey-p "name2010word more text"))) -;; `bog-citekey-groups-with-delim' +;; `bog--citekey-groups-with-delim' -(ert-deftest bog-citekey-groups-with-delim () +(ert-deftest bog--citekey-groups-with-delim () (let ((citekey "name2010word")) - (should (equal (bog-citekey-groups-with-delim citekey) - "name 2010 word")) - (should (equal (bog-citekey-groups-with-delim citekey ",") - "name,2010,word")) - (should (equal (bog-citekey-groups-with-delim citekey nil '(1 3)) - "name word")))) + (should (equal (bog--citekey-groups-with-delim citekey ",") + "name,2010,word")))) ;; `bog-citekey-at-point' |