[elpa] externals/compat 282f2dc6a7 41/84: Call install-fn in compat--generate-testable

[ELPA Syncer]

branch: externals/compat
commit 282f2dc6a7ebc1a58bde5da45d3f8d8a7751ce43
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Call install-fn in compat--generate-testable
---
 compat-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 7ef404e17b..9e1fefab71 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -37,7 +37,7 @@
 (require 'compat-macs)
 
 (defvar compat-current-version)
-(defun compat--generate-testable (name def-fn _install-fn _check-fn attr _type)
+(defun compat--generate-testable (name def-fn install-fn _check-fn attr _type)
   "Generate a more verbose compatibility definition, fit for testing.
 See `compat-generate-function' for details on the arguments NAME,
 DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
@@ -53,7 +53,8 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
        (put ',realname 'compat-max-version
             ,(plist-get attr :max-version))
        ,(and feature `(require ,feature))
-       ,(funcall def-fn realname version))))
+       ,(funcall def-fn realname version)
+       ,(funcall install-fn realname version))))
 
 ;; For testing: (setq compat--generate-function #'compat--generate-testable)