[Emacs-diffs] master 4f391b9: Tweak a recent test

[Tino Calancha]

branch: master
commit 4f391b9d6d8e117336ac758a168ae7c13198fda2
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    Tweak a recent test
    
    This test fails in my local machine because the data files
    are compiled, and the test doesn't expect that.
    * test/src/lread-tests.el (lread-test-bug26837): Match a suffix
    ending with '.elc' when the data files are compiled.
---
 test/src/lread-tests.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index 0427fe6..80bc0c4 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -147,12 +147,13 @@ literals (Bug#20852)."
   (let ((load-path (cons
                     (file-name-as-directory
                      (expand-file-name "data" (getenv "EMACS_TEST_DIRECTORY")))
-                    load-path)))
-    (load "somelib" nil t)
-    (should (string-suffix-p "/somelib.el" (caar load-history)))
-    (load "somelib2" nil t)
-    (should (string-suffix-p "/somelib2.el" (caar load-history)))
-    (load "somelib" nil t)
-    (should (string-suffix-p "/somelib.el" (caar load-history)))))
+                    load-path))
+        (fn (lambda (lib)
+              (load lib nil t)
+              (let ((str (caar load-history)))
+                (should (or (string-suffix-p (concat "/" lib ".el") str)
+                            (string-suffix-p (concat "/" lib ".elc") str)))))))
+    (dolist (lib '("somelib" "somelib2" "somelib"))
+      (funcall fn lib))))
 
 ;;; lread-tests.el ends here