[nongnu] elpa/pacmacs b8fce3e847 028/472: Add UT for pacman-convert-aseprite-frame function (#22)

[ELPA Syncer]

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

    Add UT for pacman-convert-aseprite-frame function (#22)
---
 test/pacman-anim-test.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index 732c2c6e49..3fcb74d7ba 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -19,3 +19,15 @@
      (pacman-anim-object-next-frame anim-object)
      (should (equal '(:animation 42)
                     anim-object)))))
+
+(ert-deftest pacman-convert-aseprite-frame-test ()
+  (let ((aseprite-frame '(khooy
+                          (foo . bar)
+                          (frame
+                           (x . 1)
+                           (y . 2)
+                           (h . 3)
+                           (w . 4))))
+        (expected-frame (list 1 2 4 3)))
+    (should (equal expected-frame
+                   (pacman-convert-aseprite-frame aseprite-frame)))))