From ce74785920d6234072eb2ebef63bd140a25534c2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 11 Dec 2014 23:45:51 -0500 Subject: Add function to get citekeys in buffer --- bog-tests.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'bog-tests.el') diff --git a/bog-tests.el b/bog-tests.el index 201bc89..c454da7 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -250,6 +250,25 @@ some text and " ** second" (should-not (bog-citekey-from-surroundings)))) +(ert-deftest bog-citekeys-in-buffer () + (should (equal '("abc1900def" "ghi1950jkl" "mno2000pqr") + (bog-tests--with-temp-text + " +* abc1900def +ghi1950jkl +* mno2000pqr +* mno2000pqr" + (--sort (string-lessp it other) (bog-citekeys-in-buffer)))))) + +(ert-deftest bog-heading-citekeys-in-buffer () + (should (equal '("abc1900def" "mno2000pqr") + (bog-tests--with-temp-text + " +* abc1900def +ghi1950jkl +* mno2000pqr" + (bog-heading-citekeys-in-buffer))))) + ;; bog-{next,previous}-non-heading-citekey (ert-deftest bog-next-non-heading-citekey-default-arg () -- cgit v1.2.3