diff options
Diffstat (limited to 'test/manual/image-size-tests.el')
| -rw-r--r-- | test/manual/image-size-tests.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/test/manual/image-size-tests.el b/test/manual/image-size-tests.el index 509623b8176..ea7af889431 100644 --- a/test/manual/image-size-tests.el +++ b/test/manual/image-size-tests.el @@ -1,21 +1,23 @@ -;;; image-size-tests.el -- tests for image scaling +;;; image-size-tests.el --- tests for image scaling -*- lexical-binding: t; -*- -;; Copyright (C) 2017 Free Software Foundation, Inc. +;; Copyright (C) 2017-2022 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. -;; This program is free software; you can redistribute it and/or modify +;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. -;; This program is distributed in the hope that it will be useful, +;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: ;; To test: Load the file and eval (image-size-tests). ;; A non-erroring result is a success. @@ -45,7 +47,8 @@ (= (cdr size) height)))) (defun image-size-tests () - (unless (imagemagick-types) + (unless (and (fboundp 'imagemagick-types) + (imagemagick-types)) (error "This only makes sense if ImageMagick is installed")) ;; Test the image that's wider than it is tall. ;; Default sizes. |