From b08b66f33ea11c9d6218cd26f7a636d972a7b0f2 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 14 Mar 2014 00:36:01 -0400
Subject: ENH: Allow customization of PDF file separator

---
 bog-tests.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'bog-tests.el')

diff --git a/bog-tests.el b/bog-tests.el
index 506cd27..f83c3af 100644
--- a/bog-tests.el
+++ b/bog-tests.el
@@ -1,5 +1,6 @@
 (require 'ert)
 (require 'org)
+(require 'dash)
 (require 'bog)
 
 ;; Modified from magit-tests.el.
@@ -169,6 +170,19 @@
      (should-not (file-exists-p (expand-file-name
                                  (concat "one.pdf") bog-pdf-directory))))))
 
+(ert-deftest bog-pdf-citekeys-multiple-variants ()
+  (bog-tests--with-temp-dir
+   (let* ((bog-pdf-directory (expand-file-name "pdfs"))
+          (citekey "name2010word")
+          (variants (--map (concat citekey it ".pdf")
+                           '("" "_0" "-supplement")))
+          found-files)
+     (make-directory bog-pdf-directory)
+     (--each variants
+       (write-region "" nil (expand-file-name it bog-pdf-directory)))
+     (setq files-found (bog-citekey-pdfs citekey))
+     (should (= (length files-found) 3)))))
+
 
 ;;; BibTeX functions
 
-- 
cgit v1.2.3