Initial checkin of Pika from heckimp

plug-ins/script-fu/test/tests/PDB/channel/channel-new.scm

@@ -0,0 +1,57 @@
+; Test methods of Channel class of the PDB
+
+
+
+; setup
+; new, empty image
+(define testImage (car (pika-image-new 21 22 RGB)))
+
+
+; new image has no custom channels
+(assert `(= (car (pika-image-get-channels ,testImage))
+            0))
+
+; setup (not in an assert and not quoted)
+; vectors-new succeeds
+(define testChannel (car (pika-channel-new
+            testImage    ; image
+            23 24          ; width, height
+            "Test Channel" ; name
+            50.0           ; opacity
+            "red" )))      ; compositing color
+
+; new channel is not in image until inserted
+; get-channels yields (0 #())
+(assert `(= (car (pika-image-get-channels ,testImage))
+            0))
+
+; channel ID is valid
+(assert `(= (car (pika-item-id-is-channel ,testChannel))
+            1))  ; #t
+
+
+;               attributes
+
+; get-color
+; FIXME: this passes but should test return red ???
+(assert `(equal?
+            (car (pika-channel-get-color ,testChannel))
+            '(0 0 0)))
+
+
+
+
+;               insert
+
+; insert succeeds
+(assert `(pika-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 `(= (car (pika-image-get-channels ,testImage))
+            1))
+