[nongnu] elpa/pacmacs 169cd54064 269/472: Add UT for pacmacs--bit-list-to-integer

[ELPA Syncer]

branch: elpa/pacmacs
commit 169cd54064cea0d0dc865b0b891ebe51b6e72a28
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Add UT for pacmacs--bit-list-to-integer
---
 test/pacmacs-image-test.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index 9fd7ccc745..1fa7bba3d8 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -48,3 +48,14 @@
     (pacmacs--put-horizontal-bar input-bits 0 3 2)
     (should (equal (pacmacs--bits-to-lists expected-bits)
                    (pacmacs--bits-to-lists input-bits)))))
+
+(ert-deftest pacmacs--bit-list-to-integer-test ()
+  (let ((data '((nil         . 0)
+                ((t)         . 1)
+                ((t nil)     . 2)
+                ((t t)       . 3)
+                ((t nil nil) . 4))))
+    (-each data
+      (-lambda ((bit-list . number))
+        (should (= number (pacmacs--bit-list-to-integer
+                           bit-list)))))))