[elpa] externals/compat fa70e72f92: compat-29: Add test for keymap-global-set

[ELPA Syncer]

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

    compat-29: Add test for keymap-global-set
---
 compat-29.el    |  2 +-
 compat-tests.el | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/compat-29.el b/compat-29.el
index 54ada6d5e5..9d18f3aa81 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -624,7 +624,7 @@ parent keymap to be used."
   (keymap--check key)
   (compat--define-key keymap (key-parse key) nil remove))
 
-(compat-defun keymap-global-set (key command) ;; <UNTESTED>
+(compat-defun keymap-global-set (key command) ;; <OK>
   "Give KEY a global binding as COMMAND.
 COMMAND is the command definition to use; usually it is
 a symbol naming an interactively-callable function.
diff --git a/compat-tests.el b/compat-tests.el
index 0a316500c3..e6f1aa8b94 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -561,6 +561,21 @@
       (use-local-map orig))
     (should-not (keymap-local-lookup "s-c"))))
 
+(ert-deftest keymap-global-set ()
+  (let ((orig (current-global-map)))
+    (unwind-protect
+        (progn
+          (use-global-map (make-sparse-keymap))
+          (should-not (keymap-global-lookup "s-c"))
+          (should-not (keymap-global-lookup "x"))
+          (keymap-global-set "s-c" 'test)
+          (keymap-global-set "<t>" 'default)
+          (should-equal (keymap-global-lookup "s-c") 'test)
+          (should-equal (keymap-global-lookup "x" t) 'default)
+          (should-not (keymap-global-lookup "x")))
+      (use-global-map orig))
+    (should-not (keymap-global-lookup "s-c"))))
+
 (ert-deftest keymap-global-lookup ()
   (should-equal (keymap-global-lookup "C-x b") #'switch-to-buffer)
   (should-equal (keymap-global-lookup "C-x C-f") #'find-file)