From 7d458a443fc680d0be6f386c13bead32162f75cf Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 11 Dec 2014 01:04:25 -0500 Subject: Make citekey groups for web search customizable --- bog-tests.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'bog-tests.el') 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' -- cgit v1.2.3