Fix some tests in --without-all builds

* test/lisp/image-tests.el (image-type/from-filename):
* test/src/image-tests.el (image-tests-init-image-library):
* test/src/thread-tests.el (threads-test-bug33073): Fix tests in
--without-all builds.

diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 79b0014f60a9ddc31fbce62f6636ea7fab97fb34..47d321d5b530a2f91202cc601aa2121ef6561af8 100644 (file)
--- a/test/lisp/image-tests.el
+++ b/test/lisp/image-tests.el
@@ -82,7 +82,8 @@
 (ert-deftest image-type/from-filename ()
   ;; On emba, `image-types' and `image-load-path' do not exist.
   (skip-unless (and (bound-and-true-p image-types)
-                    (bound-and-true-p image-load-path)))
+                    (bound-and-true-p image-load-path)
+                    (image-type-available-p 'jpeg)))
   (should (eq (image-type "foo.jpg") 'jpeg)))
 
 (defun image-tests--type-from-file-header (type)

diff --git a/test/src/image-tests.el b/test/src/image-tests.el
index 2b236086b6f82453958cb712b77fa17396b52d84..e54d0df71f1279e73c6694d8962f5b856ae2c916 100644 (file)
--- a/test/src/image-tests.el
+++ b/test/src/image-tests.el
@@ -239,7 +239,6 @@
 (ert-deftest image-tests-init-image-library ()
   (skip-unless (fboundp 'init-image-library))
   (should (init-image-library 'pbm)) ; built-in
-  (should (init-image-library 'xpm)) ; built-in
   (should-not (init-image-library 'invalid-image-type)))
 
 ;;; image-tests.el ends here

diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 52eace7e9d254cd1a04cc9f91b977c566670103a..f1a8baedaddc4886476e5e742fda0a6b1acc9341 100644 (file)
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -389,6 +389,7 @@
     (should (equal (thread-last-error) '(error "Die, die, die!")))))
 
 (ert-deftest threads-test-bug33073 ()
+  (skip-unless (fboundp 'make-thread))
   (let ((th (make-thread 'ignore)))
     (should-not (equal th main-thread))))