branch: elpa/pacmacs
commit 6f55a2df10b753624637a12905b07485d9a9a399
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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")
