Commit 4f391b9d authored by Tino Calancha's avatar Tino Calancha
Browse files

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.
parent 8452db04
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment