; test Layer methods of PDB


;        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)))




; new layer is not in the image until inserted
(assert `(= (car (pika-image-get-layers ,testImage))
            0))



;        attributes of new layer

;        defaulted attributes

; apply-mask default false
(assert `(=
            (car (pika-layer-get-apply-mask ,testLayer))
            0))

; blend-space default LAYER-COLOR-SPACE-AUTO
(assert `(=
            (car (pika-layer-get-blend-space ,testLayer))
            LAYER-COLOR-SPACE-AUTO))

; composite-mode default LAYER-COMPOSITE-AUTO
(assert `(=
            (car (pika-layer-get-composite-mode ,testLayer))
            LAYER-COMPOSITE-AUTO))

; composite-space default LAYER-COLOR-SPACE-AUTO
(assert `(=
            (car (pika-layer-get-composite-space ,testLayer))
            LAYER-COLOR-SPACE-AUTO))

; edit-mask default false
(assert `(=
            (car (pika-layer-get-edit-mask ,testLayer))
            0))

; lock-alpha default false
; deprecated? pika-layer-get-preserve-trans
(assert `(=
            (car (pika-layer-get-lock-alpha ,testLayer))
            0))

; mask not exist, ID -1
; deprecated? pika-layer-mask
(assert `(=
            (car (pika-layer-get-mask ,testLayer))
            -1))

; mode default LAYER-MODE-NORMAL
(assert `(=
            (car (pika-layer-get-mode ,testLayer))
            LAYER-MODE-NORMAL))

; show-mask default false
(assert `(=
            (car (pika-layer-get-show-mask ,testLayer))
            0))

; visible default true
; FIXME doc says default false
(assert `(=
            (car (pika-layer-get-visible ,testLayer))
            1))

; is-floating-sel default false
(assert `(=
            (car (pika-layer-is-floating-sel ,testLayer))
            0))

; !!! No get-offsets




;         attributes are as given when created

; name is as given
(assert `(string=? (car (pika-layer-get-name ,testLayer))
                  "LayerNew"))

; opacity is as given
(assert `(=
            (car (pika-layer-get-opacity ,testLayer))
            50.0))


;          generated attributes

; tattoo
; tattoo is generated unique within image?
(assert `(=
            (car (pika-layer-get-tattoo ,testLayer))
            2))