procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add image sizing tests for an image that's narrow

Browse source
This commit is contained in:
Lars Ingebrigtsen 2017-04-24 07:56:31 +02:00
parent fe304efa51
commit e589018b48
2 changed files with 45 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
test/data/image/blank-100x200.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 423 B

62
test/manual/image-size-tests.el
View file

@ -22,15 +22,21 @@
;;; Code:
(defmacro im-should (width height &rest props)
`(unless (im-compare (im-image ,@props) ,width ,height)
(error "%s didn't succeed" ',props)))
(defmacro im-should (image width height &rest props)
`(let ((im (im-image ,image ,@props)))
(unless (im-compare im ,width ,height)
(error "%s didn't succeed; size is %s"
',props (image-size im t)))))
(defun im-image (&rest props)
(defun im-image (type &rest props)
(let ((image-scaling-factor 1))
(apply
#'create-image
(expand-file-name "test/data/image/blank-200x100.png" source-directory)
(expand-file-name
(if (eq type :w)
"test/data/image/blank-200x100.png"
"test/data/image/blank-100x200.png")
source-directory)
'imagemagick nil props)))
(defun im-compare (image width height)
@ -41,24 +47,46 @@
(defun image-size-tests ()
(unless (imagemagick-types)
(error "This only makes sense if ImageMagick is installed"))
;; Test the image that's wider than it is tall.
;; Default sizes.
(im-should 200 100)
(im-should :w 200 100)
;; Changing one dimension changes the other.
(im-should 100 50 :width 100)
(im-should 100 50 :height 50)
(im-should :w 100 50 :width 100)
(im-should :w 100 50 :height 50)
;; The same with :max-width etc.
(im-should 100 50 :max-width 100)
(im-should 100 50 :max-height 50)
(im-should :w 100 50 :max-width 100)
(im-should :w 100 50 :max-height 50)
;; :width wins over :max-width etc
(im-should 300 150 :width 300 :max-width 100)
(im-should 400 200 :height 200 :max-height 100)
(im-should :w 300 150 :width 300 :max-width 100)
(im-should :w 400 200 :height 200 :max-height 100)
;; Specifying both width and height is fine.
(im-should 300 50 :width 300 :height 50)
(im-should :w 300 50 :width 300 :height 50)
;; A too-large :max-width (etc) has no effect.
(im-should 200 100 :max-width 300)
(im-should 200 100 :max-height 300)
(im-should :w 200 100 :max-width 300)
(im-should :w 200 100 :max-height 300)
;; Both max-width/height.
(im-should 100 50 :max-width 100 :max-height 75)
(im-should 50 25 :max-width 100 :max-height 25))
(im-should :w 100 50 :max-width 100 :max-height 75)
(im-should :w 50 25 :max-width 100 :max-height 25)
;; Test the image that's taller than it is wide.
(im-should :h 100 200)
;; Changing one dimension changes the other.
(im-should :h 50 100 :width 50)
(im-should :h 50 100 :height 100)
;; The same with :max-width etc.
(im-should :h 50 100 :max-width 50)
(im-should :h 50 100 :max-height 100)
;; :width wins over :max-width etc
(im-should :h 300 600 :width 300 :max-width 100)
(im-should :h 150 300 :height 300 :max-height 100)
;; Specifying both width and height is fine.
(im-should :h 300 50 :width 300 :height 50)
;; A too-large :max-width (etc) has no effect.
(im-should :h 100 200 :max-width 300)
(im-should :h 100 200 :max-height 300)
;; Both max-width/height.
(im-should :h 50 100 :max-width 75 :max-height 100)
(im-should :h 25 50 :max-width 25 :max-height 100)
)
;;; image-size-tests.el ends here