[nongnu] elpa/pacmacs 5780c37396 044/472: Add UT for pacman-make-anim function

[ELPA Syncer]

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

    Add UT for pacman-make-anim function
---
 test/pacman-anim-test.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index 74e32eade1..2f594bdb04 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -1,6 +1,11 @@
 (require 'cl)                           ;el-mock doesn't work without
                                         ;this
 
+(ert-deftest pacman-make-anim-test ()
+  (should (equal (list :frames (list 1 2 3 4 5)
+                       :current-frame 0)
+                 (pacman-make-anim (number-sequence 1 5)))))
+
 (ert-deftest pacman-anim-get-frame-test ()
   (let ((anim (list :frames (number-sequence 1 5)
                     :current-frame 2)))