; tests of methods re masks on layers

; masks are a separate class in Pika PikaLayerMask
; but the methods are named strangely,
; e.g. there is no pika-layer-mask-get-layer


;        setup
;
(define testImage (car (pika-image-new 21 22 RGB)))

(define
  testLayer (car (pika-layer-new
                    testImage
                    21
                    22
                    RGB-IMAGE
                    "LayerNew"
                    50.0
                    LAYER-MODE-NORMAL)))
; assert layer is not inserted in image

; assert layerMask not on the layer yet!!!
(define
  testLayerMask (car (pika-layer-create-mask
                    testLayer
                    ADD-MASK-WHITE)))


; mask is not on layer until added.
; Getting the mask for the layer yields -1.
(assert `(= (car (pika-layer-mask ,testLayer))
            -1))

; add layerMask created on a layer to that layer succeeds
(assert `(pika-layer-add-mask
            ,testLayer
            ,testLayerMask))

; add layerMask to layer was effective:
; Getting the mask for the layer yields layerMask ID
(assert `(= (car (pika-layer-mask ,testLayer))
            ,testLayerMask))

; and vice versa
(assert `(= (car (pika-layer-from-mask ,testLayerMask))
            ,testLayer))



;           creating and adding second mask

; creating a second mask from layer succeeds
(define
  testLayerMask2
    (car (pika-layer-create-mask
                  testLayer
                  ADD-MASK-WHITE)))


; adding a second layerMask fails
(assert-error `(pika-layer-add-mask
                 ,testLayer
                 ,testLayerMask2)
              (string-append
                "Procedure execution of pika-layer-add-mask failed: "
                "Unable to add a layer mask since the layer already has one."))



;            mask removal

; remove-mask fails if the layer is not on image
(assert-error `(pika-layer-remove-mask
                ,testLayer
                MASK-APPLY)   ; removal mode
              "Procedure execution of pika-layer-remove-mask failed on invalid input arguments: ")
              ;  "Item 'LayerNew' (12) cannot be used because it has not been added to an image"))

; adding layer to image succeeds
(assert `(pika-image-insert-layer
            ,testImage
            ,testLayer
            0  ; parent
            0  ))  ; position within parent

; remove-mask succeeds
; when layer is in image
(assert `(pika-layer-remove-mask
            ,testLayer
            MASK-APPLY))  ; removal mode

; and is effective
; layer no longer has a mask
(assert `(= (car (pika-layer-mask ,testLayer))
            -1))

; and now we can add the second mask
(assert `(pika-layer-add-mask
                 ,testLayer
                 ,testLayerMask2))


; fails when mask different size from layer?

; fails create layerMask when ADD-CHANNEL-MASK and no active channel

; create layerMask ADD-ALPHA-MASK works even when no alpha channel

; TODO many variations of create