[elpa] externals/hyperbole 3df6aa4d08 2/2: Check either string match or expand file name match in helper (#144)

[ELPA Syncer]

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

    Check either string match or expand file name match in helper (#144)
---
 ChangeLog               | 4 ++++
 test/hy-test-helpers.el | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1f067aede4..bec60b680e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2022-01-02  Mats Lidell  <matsl@gnu.org>
 
+* 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.
+
 * test/hui-tests.el (hui-ebut-create-link-to-info-index-using-completion):
     New test case.
 
diff --git a/test/hy-test-helpers.el b/test/hy-test-helpers.el
index 045709526a..528c3320e6 100644
--- a/test/hy-test-helpers.el
+++ b/test/hy-test-helpers.el
@@ -36,7 +36,7 @@
   (let ((was-called nil))
     (cl-letf (((symbol-function 'hpath:find)
                (lambda (filename)
-                (setq was-called (should (string= str filename))))))
+                (setq was-called (should (or (string= str filename) (string= 
str (expand-file-name filename))))))))
       (action-key)
       (should was-called))))
 
@@ -45,7 +45,7 @@
   (let ((was-called nil))
     (cl-letf (((symbol-function 'hpath:find)
                (lambda (filename)
-                 (setq was-called (should (string= str filename))))))
+                 (setq was-called (should (or (string= str filename) (string= 
str (expand-file-name filename))))))))
       (funcall function)
       (should was-called))))