[nongnu] elpa/pacmacs 63bfb71c85 029/472: Add UT for pacman-aseprite-frame-get-order (#22)

[ELPA Syncer]

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

    Add UT for pacman-aseprite-frame-get-order (#22)
---
 test/pacman-anim-test.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index 3fcb74d7ba..d51fb58490 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -31,3 +31,13 @@
         (expected-frame (list 1 2 4 3)))
     (should (equal expected-frame
                    (pacman-convert-aseprite-frame aseprite-frame)))))
+
+(ert-deftest pacman-aseprite-frame-get-order-test ()
+  (let ((aseprite-frame '(khooy42.ase
+                          (foo . bar)
+                          (frame
+                           (x . 1)
+                           (y . 2)
+                           (h . 3)
+                           (w . 4)))))
+    (should (equal 42 (pacman-aseprite-frame-get-order aseprite-frame)))))