diff options
| author | Jim Porter | 2024-06-23 11:40:30 -0700 |
|---|---|---|
| committer | Jim Porter | 2024-06-23 11:40:30 -0700 |
| commit | 6619aec6bca6d682be9a995f417e65bb0849d593 (patch) | |
| tree | adb6b8125b499e0cc05d56535612bbb93c5ca412 /test | |
| parent | 5d19bfda3219c9d2d2a94656d842a9019b274b51 (diff) | |
| download | emacs-6619aec6bca6d682be9a995f417e65bb0849d593.tar.gz emacs-6619aec6bca6d682be9a995f417e65bb0849d593.zip | |
; Don't run new 'shr-test/zoom-image' when built without image support
* test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip when
'image-types' is unbound.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/shr-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el index b6552674b27..f9fdb5eb5d3 100644 --- a/test/lisp/net/shr-tests.el +++ b/test/lisp/net/shr-tests.el | |||
| @@ -134,6 +134,7 @@ settings, then once more for each (OPTION . VALUE) pair.") | |||
| 134 | 134 | ||
| 135 | (ert-deftest shr-test/zoom-image () | 135 | (ert-deftest shr-test/zoom-image () |
| 136 | "Test that `shr-zoom-image' properly replaces the original image." | 136 | "Test that `shr-zoom-image' properly replaces the original image." |
| 137 | (skip-unless (bound-and-true-p image-types)) | ||
| 137 | (let ((image (expand-file-name "data/image/blank-100x200.png" | 138 | (let ((image (expand-file-name "data/image/blank-100x200.png" |
| 138 | (getenv "EMACS_TEST_DIRECTORY")))) | 139 | (getenv "EMACS_TEST_DIRECTORY")))) |
| 139 | (dolist (alt '(nil "" "nothing to see here")) | 140 | (dolist (alt '(nil "" "nothing to see here")) |