[nongnu] elpa/pacmacs d0dc2eff12 027/472: Ad UT for pacman-anim-object-next-frame function (#22)

[ELPA Syncer]

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

    Ad UT for pacman-anim-object-next-frame function (#22)
---
 test/pacman-anim-test.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index 56a1a35d0a..732c2c6e49 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -11,3 +11,11 @@
 
     (pacman-anim-next-frame anim)
     (should (equal 0 (plist-get anim :current-frame)))))
+
+(ert-deftest pacman-anim-object-next-frame-test ()
+  (with-mock
+   (stub pacman-anim-next-frame => 42)
+   (let ((anim-object '(:animation 41)))
+     (pacman-anim-object-next-frame anim-object)
+     (should (equal '(:animation 42)
+                    anim-object)))))