PIKApp/plug-ins/script-fu/test/tests/PDB/selection/selection-from.scm

107 lines
3.1 KiB
Scheme
Raw Normal View History

2023-09-26 00:35:21 +02:00
; test PDB methods that change selection from existing selection
; setup
; Reusing image 10
(define testImage 10)
; Test a selection-changing function
; starting from selection None.
;
; The testFunction takes a "step" arg
; and does not change the selection bounds.
; {none <func> is-empty} yields true
; {none <func>} is not an error
(define (test-selection-change-from-none testFunction testImage)
; Starting state: selection none
(assert `(pika-selection-none ,testImage))
; test the testFunction
(assert `(,testFunction
,testImage
4 )) ; radius or step
; expect selection is still empty
(assert `(= (car (pika-selection-is-empty ,testImage))
1))
; expect since there is no selection, the bounds are the entire image
(assert `(equal? (cdr (pika-selection-bounds ,testImage))
'(0 0 21 22)))
)
(define (test-selection-change-from-all testFunction testImage isIdempotent)
; Starting state: selection all
(assert `(pika-selection-all ,testImage))
; test the testFunction
(assert `(,testFunction
,testImage
4 )) ; radius or step
(if isIdempotent
(begin
; expect selection is still not empty
(assert `(= (car (pika-selection-is-empty ,testImage))
0))
; expect selection bounds are still entire image
(assert `(equal? (cdr (pika-selection-bounds ,testImage))
'(0 0 21 22)))))
)
; test selection methods that change by a pixel amount
(test-selection-change-from-none pika-selection-feather testImage)
(test-selection-change-from-none pika-selection-grow testImage)
(test-selection-change-from-none pika-selection-shrink testImage)
(test-selection-change-from-none pika-selection-border testImage)
; feather and grow from all are idempotent
(test-selection-change-from-all pika-selection-feather testImage #t)
(test-selection-change-from-all pika-selection-grow testImage #t)
(test-selection-change-from-all pika-selection-shrink testImage #f)
; shrink from all changes bounds
(assert `(equal? (cdr (pika-selection-bounds ,testImage))
'(4 4 17 18)))
(test-selection-change-from-all pika-selection-border testImage #f)
; border from all empties the selection
(assert `(= (car (pika-selection-is-empty ,testImage))
1))
; Effectiveness
; When starting from a typical selection (not empty, not all)
; TODO feather effective?
; Might feather change bounds?
; grow is effective
; bounds are larger
; TODO
(assert `(equal? (cdr (pika-selection-bounds ,testImage))
'(0 0 21 22)))
; TODO test flood effective: holes were filled
; Can't do it without knowing how many pixels are selected?
; Knowing bounds is not adequate.
; Simple tests of success
(assert `(pika-selection-flood ,testImage))
(assert `(pika-selection-invert ,testImage))
(assert `(pika-selection-sharpen ,testImage))
(assert `(pika-selection-translate
,testImage
4 4))
; TODO invert none is all and vice versa
; TODO translate effective
; TODO translate by large offset is empty selection
; TODO sharpen is effective at removing antialiasing
; save creates a new channel