[nongnu] elpa/pacmacs 84598f8f20 328/472: UT for pacmacs--load-next-level

[ELPA Syncer]

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

    UT for pacmacs--load-next-level
---
 test/pacmacs-test.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index c0ce55d0ec..5c0858880b 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -81,3 +81,11 @@
                       (:terrified-timer 1001 :current-animation 3)
                       (:terrified-timer 899 :current-animation 4))
                     pacmacs--terrified-ghosts)))))
+
+(ert-deftest pacmacs--load-next-level-test ()
+  (let ((pacmacs-current-level 2)
+        (pacmacs-levels [1 2 3]))
+    (with-mock
+     (mock (pacmacs--load-current-level) => nil)
+     (pacmacs--load-next-level)
+     (should (= 0 pacmacs-current-level)))))