branch: externals/compat
commit 12b5d492d2909f37d3e03400ac40412cfa4af30d
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve compat-function test
---
compat-tests.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 2c9a0b8b95..f2f8636c6d 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -47,10 +47,10 @@
`(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=))
+ (let ((sym (compat-function plist-put)) list)
+ (should sym)
+ (should (symbolp sym))
+ (setq list (funcall sym list "first" 1 #'string=))
(should (eq (compat-call plist-get list "first" #'string=) 1))))
(defun compat-function-put-test ())
