42171503d4
Now the development and stable logos will be generated from gimp-data. In other changes, the gi-docgen logo is installed as a symlink using install_symlink() which exists since meson 0.61.0 so I bumped our meson dependency (in practice we were already using this function anyway and Debian bookworm has meson 1.0.1 so it's all good). Finally I don't install a wilber.png anymore, which was only used by script-fu testing, and which was the same as gimp-logo.png (except 256x256 instead of 128x128). Unless mistaken, all script-fu tests loading this image still work with the change. The only one where I needed further change was buffer.scm (which was checking the dimensions). See gimp-data@9aa6e35.
93 lines
2.8 KiB
Scheme
93 lines
2.8 KiB
Scheme
; Test methods of Buffer class of the PDB
|
|
|
|
; aka NamedBuffer i.e. the clipboard saved with a name.
|
|
|
|
; Edit methods that create buffers is tested elsewhere.
|
|
; The names of those methods is hard to understand:
|
|
; because they used "named" to mean "buffer"
|
|
; E.G. gimp-edit-named-copy might be better named:
|
|
; gimp-edit-copy-to-named-buffer
|
|
|
|
|
|
|
|
; Prereq: no buffer exists yet.
|
|
|
|
|
|
|
|
; setup
|
|
; Load test image that already has drawable
|
|
(define testImage (testing:load-test-image "gimp-logo.png"))
|
|
|
|
; the layer is the zeroeth element in the vector which is the second element
|
|
; but cadr returns the second element!!
|
|
; TODO make this a library routine: get-first-layer
|
|
; (1 #(<layerID>))
|
|
(define testDrawable (vector-ref (cadr (gimp-image-get-layers testImage ))
|
|
0))
|
|
|
|
; Create new named buffer
|
|
; There is no gimp-buffer-new method,
|
|
; instead it is a method of the Edit class so-to-speak
|
|
; You can't: #(testDrawable)
|
|
(define testBuffer (car (gimp-edit-named-copy
|
|
1
|
|
(make-vector 1 testDrawable)
|
|
"bufferName")))
|
|
; Since no selection, the buffer is same size as image
|
|
|
|
; Creation was effective: gimp knows the buffer
|
|
; get-list takes a regex, here empty ""
|
|
; get-list returns (("bufferName")) : a list of strings
|
|
; and the first string is "bufferName"
|
|
(assert `(string=? (caar (gimp-buffers-get-list ""))
|
|
"bufferName"))
|
|
|
|
; buffer has same size as image when created with no selection
|
|
; test image is 128x128
|
|
(assert `(= (car (gimp-buffer-get-width "bufferName"))
|
|
128))
|
|
(assert `(= (car (gimp-buffer-get-height "bufferName"))
|
|
128))
|
|
|
|
; new buffer has alpha: the image is RGB but the buffer has bpp 4
|
|
; This is not well documented.
|
|
; FIXME the docs and the method name should say "bpp"
|
|
; or "bytes per pixel" instead of "bytes"
|
|
(assert `(= (car (gimp-buffer-get-bytes "bufferName"))
|
|
4))
|
|
|
|
; image type is RGBA
|
|
; FIXME: the docs erroneously say "ImageBaseType" => "ImageType"
|
|
(assert `(= (car (gimp-buffer-get-image-type "bufferName"))
|
|
RGBA-IMAGE))
|
|
|
|
|
|
|
|
; renaming
|
|
|
|
; Renaming returns the given name if it doesn't clash with existing name.
|
|
(assert `(string=? (car (gimp-buffer-rename "bufferName" "renamedName"))
|
|
"renamedName"))
|
|
|
|
; Effect renaming: gimp knows the renamed name
|
|
(assert `(string=? (caar (gimp-buffers-get-list ""))
|
|
"renamedName"))
|
|
|
|
; Renaming does not add another buffer
|
|
|
|
; TODO list-length 1
|
|
|
|
|
|
; deleting
|
|
|
|
; Delete evaluates but is void
|
|
(assert `(gimp-buffer-delete "renamedName"))
|
|
|
|
; Delete was effective: gimp no longer knows
|
|
; and returns nil i.e. empty list (())
|
|
(assert `(null? (car (gimp-buffers-get-list ""))))
|
|
|
|
|
|
; TODO test two buffers
|
|
|
|
; TODO test renaming when name already in use
|