[nongnu] elpa/pacmacs 75e26090e5 393/472: Add UT for clear-wall-tiles-cache

[ELPA Syncer]

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

    Add UT for clear-wall-tiles-cache
---
 test/pacmacs-image-test.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index c05230ce1f..e5aea1c6e6 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -109,3 +109,9 @@
 
    (should (equal '(hex hex hex hex hex)
                   (pacmacs--color-hex-gradient 'khooy 'khooy 5)))))
+
+(ert-deftest pacmacs--clear-wall-tiles-cache-test ()
+  (let ((pacmacs--wall-tiles-cache 42))
+    (with-mock
+     (mock (clrhash 42) :times 1)
+     (pacmacs--clear-wall-tiles-cache))))