summaryrefslogtreecommitdiff
path: root/bog-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'bog-tests.el')
-rw-r--r--bog-tests.el11
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)))))