branch: externals/compat
commit 949607d6ee629f56f5783eb279560acedf47cd16
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
