[nongnu] elpa/pacmacs 7f706e2159 074/472: Add UTs for plist-map (#54)

[ELPA Syncer]

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

    Add UTs for plist-map (#54)
---
 test/pacman-utils-test.el | 7 +++++++
 test/test-helper.el       | 1 +
 2 files changed, 8 insertions(+)

diff --git a/test/pacman-utils-test.el b/test/pacman-utils-test.el
new file mode 100644
index 0000000000..378045dce3
--- /dev/null
+++ b/test/pacman-utils-test.el
@@ -0,0 +1,7 @@
+(ert-deftest plist-map-test ()
+  (let ((plist (list :foo 1
+                     :bar 2)))
+    (plist-map plist :bar #'1+)
+    (should (equal (list :foo 1
+                         :bar 3)
+                   plist))))
diff --git a/test/test-helper.el b/test/test-helper.el
index 3cf0400ea4..55373381c1 100644
--- a/test/test-helper.el
+++ b/test/test-helper.el
@@ -8,3 +8,4 @@
 (add-to-list 'load-path ".")
 (load "pacman-anim.el")
 (load "pacman-image.el")
+(load "pacman-utils.el")