[elpa] externals/hyperbole 76f40b5: Add func to run all tests and make some test more robust (#63)

[ELPA Syncer]

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

    Add func to run all tests and make some test more robust (#63)
    
    * Add func to run all tests and make some test more robust
    
    * Use expand-file-name
---
 Changes                | 9 +++++++++
 hypb-ert.el            | 6 ++++++
 test/demo-tests.el     | 1 +
 test/hbut-tests.el     | 8 ++++----
 test/hibtypes-tests.el | 4 ++--
 5 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index 6231d30..4e8514e 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,12 @@
+2021-04-11  Mats Lidell  <matsl@gnu.org>
+
+* test/hibtypes-tests.el (ibtypes::ctags-vgrind-test)
+    (ibtypes::etags-test): Make tests independent of default directory.
+
+* test/demo-tests.el (demo-manifest-test): Make test more robust.
+
+* hypb-ert.el (hypb-run-all-tests): Run all hyperbole tests.
+
 2021-04-07  Mats Lidell  <matsl@gnu.org>
 
 * test/hypb-tests.el: Rename test file
diff --git a/hypb-ert.el b/hypb-ert.el
index 45a37a2..0d30cb1 100644
--- a/hypb-ert.el
+++ b/hypb-ert.el
@@ -42,5 +42,11 @@
 (defal hypb-ert-sym 'hypb-run-ert-test-symbol)
 (defal hypb-ert-sel 'hypb-run-ert-test-selector)
 
+(defun hypb-run-all-tests ()
+  "Run every ert test."
+  (interactive)
+  (mapc 'load-file (directory-files (expand-file-name "test" hyperb:dir) t 
"\\.el$"))
+  (ert t))
+
 (provide 'hypb-ert)
 ;;; hypb-ert.el ends here
diff --git a/test/demo-tests.el b/test/demo-tests.el
index d552de3..22c83be 100644
--- a/test/demo-tests.el
+++ b/test/demo-tests.el
@@ -255,6 +255,7 @@
   (unwind-protect
       (progn
         (find-file (expand-file-name "MANIFEST" hyperb:dir))
+        (beginning-of-buffer)
         (forward-line 1)
         (should (looking-at "COPYING"))
         (action-key)
diff --git a/test/hbut-tests.el b/test/hbut-tests.el
index 41cb6aa..7445dbd 100644
--- a/test/hbut-tests.el
+++ b/test/hbut-tests.el
@@ -30,7 +30,7 @@
         (insert "<defal-path DEMO>")
         (goto-char 4)
         (action-key)
-        (should (string= (concat hyperb:dir "DEMO") buffer-file-name))))
+        (should (string= (expand-file-name "DEMO" hyperb:dir) 
buffer-file-name))))
     (progn
       (kill-buffer "DEMO")
       (ibtype:delete 'ibtypes::defal-path)))
@@ -111,7 +111,7 @@ the button text"
         (insert "<<<DEMO>>>")
         (goto-char 4)
         (action-key)
-        (should (string= (concat hyperb:dir "DEMO") buffer-file-name)))
+        (should (string= (expand-file-name "DEMO" hyperb:dir) 
buffer-file-name)))
     (progn
       (kill-buffer "DEMO")
       (ibtype:delete 'ibtypes::defil-path-it))))
@@ -154,7 +154,7 @@ the button text"
   (with-temp-buffer
     (insert "<[emacs]>: \"${hyperb:dir}/DEMO\"")
     (goto-char 4)
-    (hy-test-helpers:action-key-should-call-hpath:find (concat hyperb:dir 
"DEMO"))))
+    (hy-test-helpers:action-key-should-call-hpath:find (expand-file-name 
"DEMO" hyperb:dir))))
 
 (ert-deftest hbut-ib-link-to-file-with-label-variants ()
   (cl-loop for ch in '(?: ?- ?=) do
@@ -162,7 +162,7 @@ the button text"
                     (with-temp-buffer
                       (insert "<[demo]>" (make-string n ch) " 
\"${hyperb:dir}/DEMO\"")
                       (goto-char 4)
-                      (hy-test-helpers:action-key-should-call-hpath:find 
(concat hyperb:dir "DEMO"))))))
+                      (hy-test-helpers:action-key-should-call-hpath:find 
(expand-file-name "DEMO" hyperb:dir))))))
 
 (ert-deftest hbut-ib-url-with-label ()
   "Should find link but fails with (user-error \"No link found\")"
diff --git a/test/hibtypes-tests.el b/test/hibtypes-tests.el
index 4be61b5..498b611 100644
--- a/test/hibtypes-tests.el
+++ b/test/hibtypes-tests.el
@@ -121,7 +121,7 @@
         (insert "hy-test-helpers:consume-input-events hy-test-helpers.el 21\n")
         (goto-char (point-min))
         (forward-char 4)
-        (let ((default-directory (concat default-directory "test")))
+        (let ((default-directory (expand-file-name "test" hyperb:dir)))
           (ibtypes::ctags)
           (set-buffer "hy-test-helpers.el")
           (should (looking-at "(defun hy-test-helpers:consume-input-events"))))
@@ -138,7 +138,7 @@
         (goto-char (point-min))
         (forward-line 2)
         (forward-char 10)
-        (let ((default-directory (concat default-directory "test")))
+        (let ((default-directory (expand-file-name "test" hyperb:dir)))
           (ibtypes::etags)
           (set-buffer "hy-test-helpers.el")
           (should (looking-at "(defun hy-test-helpers:consume-input-events"))))