; Test methods of Channel class of the PDB


(script-fu-use-v3)


; setup
; new, empty image
(define testImage (gimp-image-new 21 22 RGB))


; new image has no custom channels
(assert `(= (vector-length (gimp-image-get-channels ,testImage))
            0))

; setup (not in an assert and not quoted)
; vectors-new succeeds
(define testChannel (gimp-channel-new
            testImage      ; image
            "Test Channel" ; name
            23 24          ; width, height
            50.0           ; opacity
            "red" ))      ; compositing color





(test! "new channel is not in image until inserted")
; get-channels yields (0 #())
(assert `(= (vector-length (gimp-image-get-channels ,testImage))
            0))

; channel ID is valid
(assert `(gimp-item-id-is-channel ,testChannel))


(test! "new channel attributes")

; color attribute is as given during creation
(assert `(equal?
            (gimp-channel-get-color ,testChannel)
            '(255 0 0 255)))  ; red
; gimp-channel-get-name is deprecated
(assert `(string=?
            (gimp-item-get-name ,testChannel)
            "Test Channel"))




(test! "insert-channel")

; insert succeeds
(assert `(gimp-image-insert-channel
            ,testImage
            ,testChannel
            0            ; parent, moot since channel groups not supported
            0))          ; position in stack

; insert was effective: testImage now has one channel
(assert `(= (vector-length (gimp-image-get-channels ,testImage))
            1))

; insert was effective: image now knows by name
; capture the ID of channel we just newed
(assert `(=
           (gimp-image-get-channel-by-name
                ,testImage
                "Test Channel")
           ,testChannel))


(test! "remove-channel")

; Note the difference between remove and delete:
; Docs say that delete is only useful for a channel not added to the image.

; remove does not throw
(assert `(gimp-image-remove-channel ,testImage ,testChannel))

; Effective: image now has zero channels
(assert `(= (vector-length (gimp-image-get-channels ,testImage))
            0))

; After remove, channel ID is NOT valid
(assert `(not (gimp-item-id-is-channel ,testChannel)))

; Delete throws error when channel already removed
; gimp-channel-delete is deprecated
(assert-error `(gimp-item-delete ,testChannel)
               "Invalid value for argument 0")
; FORMERLY     "runtime: invalid item ID"  )


(test! "item-delete on channel")

; Can delete a new channel not yet added to image

(define testChannel2 (gimp-channel-new
            testImage      ; image
            "Test Channel" ; name
            23 24          ; width, height
            50.0           ; opacity
            "red" ))      ; compositing color

; Does not throw
(assert `(gimp-item-delete ,testChannel2))

; Effective: ID is not valid
(assert `(not (gimp-item-id-is-channel ,testChannel)))


(script-fu-use-v2)