diff options
Diffstat (limited to 'bog-tests.el')
| -rw-r--r-- | bog-tests.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/bog-tests.el b/bog-tests.el index 0bab888..cdfa02f 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -21,14 +21,13 @@ (require 'ert) (require 'org) -(require 'dash) -(require 'cl) +(require 'cl-lib) (require 'bog) ;; Modified from magit-tests.el. (defmacro bog-tests--with-temp-dir (&rest body) (declare (indent 0) (debug t)) - (let ((dir (gensym))) + (let ((dir (cl-gensym))) `(let ((,dir (file-name-as-directory (make-temp-file "dir" t)))) (unwind-protect (let ((default-directory ,dir)) ,@body) @@ -258,7 +257,7 @@ some text and <point><citekey>" ghi1950jkl * mno2000pqr * mno2000pqr" - (--sort (string-lessp it other) (bog-citekeys-in-buffer)))))) + (sort (bog-citekeys-in-buffer) #'string-lessp))))) (ert-deftest bog-heading-citekeys-in-buffer () (should (equal '("abc1900def" "mno2000pqr") @@ -427,8 +426,8 @@ some text" (concat citekey "-supplement.pdf"))) found-files) (make-directory bog-file-directory) - (--each variants - (write-region "" nil (expand-file-name it bog-file-directory))) + (dolist (var variants) + (write-region "" nil (expand-file-name var bog-file-directory))) (setq files-found (bog-citekey-files citekey)) (should (= (length files-found) 4))))) |