[elpa] externals/compat 12b5d492d2 08/10: Improve compat-function test

[ELPA Syncer]

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

    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 ())