[nongnu] elpa/pacmacs 6f55a2df10 236/472: Add UT for pacmacs--put-bits-dot function (#131)

[ELPA Syncer]

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

    Add UT for pacmacs--put-bits-dot function (#131)
---
 test/pacmacs-image-test.el | 13 +++++++++++++
 test/test-helper.el        | 14 ++++++++++++++
 2 files changed, 27 insertions(+)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index ae5461e277..cd0d216387 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -51,3 +51,16 @@
                          :height height) => create-image-result :times 1)
      (should (equal create-image-result
                     (pacmacs-create-transparent-block width height))))))
+
+(ert-deftest pacmacs--put-bits-dot-test ()
+  (let ((input-bits (pacmacs--construct-2d-bool-vector
+                     '((nil nil nil)
+                       (nil nil nil)
+                       (nil nil nil))))
+        (expected-bits (pacmacs--construct-2d-bool-vector
+                        '((t   t   nil)
+                          (t   t   nil)
+                          (nil nil nil)))))
+    (pacmacs--put-bits-dot input-bits 0 0 2)
+    (should (equal expected-bits
+                   input-bits))))
diff --git a/test/test-helper.el b/test/test-helper.el
index 0115ca979d..fec7193f82 100644
--- a/test/test-helper.el
+++ b/test/test-helper.el
@@ -2,8 +2,22 @@
                                         ;this
 (require 'el-mock)
 (require 'undercover)
+(require 'dash)
 
 (undercover "*.el")
 
+(defun pacmacs--list-to-bool-vector (xs)
+  (let* ((index 0)
+         (size (length xs))
+         (result (make-bool-vector (length xs) nil)))
+    (dolist (x xs)
+      (aset result index x)
+      (cl-incf index))
+    result))
+
+(defun pacmacs--construct-2d-bool-vector (data)
+  (apply #'vector
+         (-map #'pacmacs--list-to-bool-vector data)))
+
 (add-to-list 'load-path ".")
 (load "pacmacs.el")