branch: elpa/autothemer
commit 67224c4a4cde2b6325690beca3f48c2fc3c955e3
Author: jasonm23 <jason...@gmail.com>
Commit: jasonm23 <jason...@gmail.com>
Fix test run
---
autothemer.el | 4 ++--
bin/test | 7 ++++---
2 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/autothemer.el b/autothemer.el
index c89a9f6603..a283e65389 100644
--- a/autothemer.el
+++ b/autothemer.el
@@ -501,14 +501,14 @@ In `(h s v)' `h', `s' and `v' are `0.0..1.0'."
(> a b)))
(defun autothemer-hue-sat-order (a b)
- "Return t if the hue and sat of a > b."
+ "Return t if the hue and sat of A > B."
(let ((a-hue (autothemer-color-hue (autothemer--color-value a)))
(b-hue (autothemer-color-hue (autothemer--color-value b)))
(a-sat (autothemer-color-sat (autothemer--color-value a)))
(b-sat (autothemer-color-sat (autothemer--color-value b)))
(sort-hash-fmt "%016s-%016s"))
(string> (format sort-hash-fmt a-hue a-sat)
- (format sort-hash-fmt b-hue b-sat)))
+ (format sort-hash-fmt b-hue b-sat))))
(defun autothemer-sort-palette (theme-colors &optional fn)
"Produce a list of sorted THEME-COLORS using FN.
diff --git a/bin/test b/bin/test
index c2482479c8..a2ff50bf3b 100755
--- a/bin/test
+++ b/bin/test
@@ -25,13 +25,14 @@ $("$EMACS" --version)
INFO
"$EMACS" --batch \
+ -eval "(setq load-prefer-newer t)" \
-eval "(add-to-list 'load-path \"${dash}\")" \
-eval "(add-to-list 'load-path \".\")" \
-l ert \
-l dash \
- -l ./autothemer.el \
- -l ./tests/autothemer-tests.el \
- --eval "(ert-run-tests-batch-and-exit)"
+ -l autothemer.el \
+ -l tests/autothemer-tests.el \
+ -f ert-run-tests-batch-and-exit
exitcode=$?
echo "
