[elpa] externals/compat 949607d6ee 07/10: Test compat-function

[ELPA Syncer]

branch: externals/compat
commit 949607d6ee629f56f5783eb279560acedf47cd16
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Test compat-function
---
 compat-tests.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/compat-tests.el b/compat-tests.el
index f7b7aef24e..2c9a0b8b95 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -46,6 +46,13 @@
 (defmacro should-equal (a b)
   `(should (equal ,a ,b)))
 
+(ert-deftest compat-function ()
+  (let (list)
+    (should (compat-function plist-put))
+    (should (symbolp (compat-function plist-put)))
+    (setq list (compat-call plist-put list "first" 1 #'string=))
+    (should (eq (compat-call plist-get list "first" #'string=) 1))))
+
 (defun compat-function-put-test ())
 (ert-deftest function-put ()
   (function-put #'compat-function-put-test 'compat-test 42)