diff options
| author | Mattias Engdegård | 2025-09-11 22:21:57 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2025-09-12 10:41:43 +0200 |
| commit | 464216ca737a3b98175b02244251878508e1ca15 (patch) | |
| tree | c347a16ee92bd5935a34ba9ed15d328f75d8181e /test/src/lread-tests.el | |
| parent | 0bf5898f20571897dc540d10cdc6f4c3a517a82c (diff) | |
| download | emacs-464216ca737a3b98175b02244251878508e1ca15.tar.gz emacs-464216ca737a3b98175b02244251878508e1ca15.zip | |
; even less test log spam from load
Diffstat (limited to 'test/src/lread-tests.el')
| -rw-r--r-- | test/src/lread-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 4dc8938b973..d1320a665a5 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -388,14 +388,14 @@ literals (Bug#20852)." | |||
| 388 | ;; but eagerly with `force-load-doc-strings' set. | 388 | ;; but eagerly with `force-load-doc-strings' set. |
| 389 | (let ((file (expand-file-name "lazydoc.el" (ert-resource-directory)))) | 389 | (let ((file (expand-file-name "lazydoc.el" (ert-resource-directory)))) |
| 390 | (fmakunbound 'lazydoc-fun) | 390 | (fmakunbound 'lazydoc-fun) |
| 391 | (load file) | 391 | (load file nil t) |
| 392 | (let ((f (symbol-function 'lazydoc-fun))) | 392 | (let ((f (symbol-function 'lazydoc-fun))) |
| 393 | (should (byte-code-function-p f)) | 393 | (should (byte-code-function-p f)) |
| 394 | (should (equal (aref f 4) (cons file 87)))) | 394 | (should (equal (aref f 4) (cons file 87)))) |
| 395 | 395 | ||
| 396 | (fmakunbound 'lazydoc-fun) | 396 | (fmakunbound 'lazydoc-fun) |
| 397 | (let ((load-force-doc-strings t)) | 397 | (let ((load-force-doc-strings t)) |
| 398 | (load file) | 398 | (load file nil t) |
| 399 | (let ((f (symbol-function 'lazydoc-fun))) | 399 | (let ((f (symbol-function 'lazydoc-fun))) |
| 400 | (should (byte-code-function-p f)) | 400 | (should (byte-code-function-p f)) |
| 401 | (should (equal (aref f 4) "My little\ndoc string\nhere")))))) | 401 | (should (equal (aref f 4) "My little\ndoc string\nhere")))))) |