[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole e015c36 3/3: Add test for defal %s format sty
From: |
Stefan Monnier |
Subject: |
[elpa] externals/hyperbole e015c36 3/3: Add test for defal %s format style (#56) |
Date: |
Mon, 22 Mar 2021 18:01:40 -0400 (EDT) |
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}")