From 4f391b9d6d8e117336ac758a168ae7c13198fda2 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Wed, 10 May 2017 11:53:20 +0900 Subject: [PATCH] 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 0427fe64e4a..80bc0c4a857 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 -- 2.39.2