emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole 7c461c8038: Fix completion test case (#145)


From: ELPA Syncer
Subject: [elpa] externals/hyperbole 7c461c8038: Fix completion test case (#145)
Date: Sun, 2 Jan 2022 17:57:33 -0500 (EST)

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

    Fix completion test case (#145)
    
    Use a completion that exists.
---
 ChangeLog         | 3 +++
 test/hui-tests.el | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bec60b680e..15c25e47df 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2022-01-02  Mats Lidell  <matsl@gnu.org>
 
+* test/hui-tests.el (hui-ebut-create-link-to-info-index-using-completion):
+    Link to emacs info index.
+
 * test/hy-test-helpers.el (hy-test-helpers:action-key-should-call-hpath:find)
     (hy-test-helpers:hypb-function-should-call-hpath:find): Do a string
     match and expand-file-name match.
diff --git a/test/hui-tests.el b/test/hui-tests.el
index 11e9eef69d..d3fe147b56 100644
--- a/test/hui-tests.el
+++ b/test/hui-tests.el
@@ -143,11 +143,11 @@ Modifying the button but keeping the label creates a 
dubbel label."
     (unwind-protect
         (progn
           (find-file file)
-          (should (hact 'kbd-key "C-h h e c hypb-intro-button RET RET 
link-to-Info-index-item RET (hyperbole)Introduct TAB RET"))
+          (should (hact 'kbd-key "C-h h e c emacs-package-button RET RET 
link-to-Info-index-item RET (emacs)packag TAB RET"))
           (hy-test-helpers:consume-input-events)
           (should (eq (hattr:get (hbut:at-p) 'actype) 
'actypes::link-to-Info-index-item))
-          (should (equal (hattr:get (hbut:at-p) 'args) 
'("(hyperbole)Introduction")))
-          (should (equal (hattr:get (hbut:at-p) 'lbl-key) 
"hypb-intro-button")))
+          (should (equal (hattr:get (hbut:at-p) 'args) '("(emacs)Package")))
+          (should (equal (hattr:get (hbut:at-p) 'lbl-key) 
"emacs-package-button")))
       (progn
         (kill-buffer "*info*")
         (delete-file file)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]