[elpa] externals/hyperbole e015c36 3/3: Add test for defal %s format style (#56)

[Stefan Monnier]

branch: externals/hyperbole
commit e015c36f82a9c7b6c554f9599d55f78d0647c1f8
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Add test for defal %s format style (#56)
---
 Changes            |  4 ++++
 test/hbut-tests.el | 11 +++++++++++
 2 files changed, 15 insertions(+)

diff --git a/Changes b/Changes
index 7e15e1e..f01e591 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+2021-03-21  Mats Lidell  <matsl@gnu.org>
+
+* test/hbut-tests.el (hbut-defal-url-%s): Add test for %s format-style.
+
 2021-03-21  Bob Weiner  <rsw@gnu.org>
 
 * hbut.el (defal): Added support for use of %s format-style grouping 1 arg
diff --git a/test/hbut-tests.el b/test/hbut-tests.el
index 4730fc5..41cb6aa 100644
--- a/test/hbut-tests.el
+++ b/test/hbut-tests.el
@@ -50,6 +50,17 @@
           (action-key)))
     (ibtype:delete 'ibtypes::defal-url)))
 
+(ert-deftest hbut-defal-url-%s ()
+  "defal supports %s in LINK-EXPR."
+  (defal defal-url "https://github.com/rswgnu/hyperbole/pull/%s";)
+  (unwind-protect
+      (with-temp-buffer
+        (insert "<defal-url 34>")
+        (goto-char 4)
+        (let ((browse-url-browser-function 'hbut-defal-url))
+          (action-key)))
+    (ibtype:delete 'ibtypes::defal-url)))
+
 (ert-deftest hbut-defal-key-sequence ()
   (skip-unless (not noninteractive))
   (defal defal-key "{C-h v \\1 RET}")