888adc5b96
Add tests of context stack ops. Add test of paint methods. Test convert to all precisions. Test paint dynamics. Test PDB as database. Test PDBProcedure methods. Test display methods. Test drawable operations.
43 lines
1,005 B
Scheme
43 lines
1,005 B
Scheme
; test stack methods of Context
|
|
|
|
; push and pop
|
|
|
|
; We arbitrarily use context:antialias to distinguish context instances.
|
|
; Antialias is a setting for the selection tool.
|
|
; Antialias is usually true.
|
|
; !!! This test depends on it being true initially.
|
|
|
|
; The two context instances are:
|
|
; - original, pushed
|
|
; - new one, after a push
|
|
|
|
|
|
|
|
|
|
; test the sequence push, pop i.e. the normal sequence
|
|
|
|
; Test initial condition is context:antialias true
|
|
(assert-PDB-true `(gimp-context-get-antialias))
|
|
|
|
; push succeeds
|
|
(assert `(gimp-context-push))
|
|
|
|
; Set antialias false in new context
|
|
; FUTURE pass #f
|
|
(assert `(gimp-context-set-antialias 0))
|
|
(assert-PDB-false `(gimp-context-get-antialias))
|
|
|
|
; pop succeeds
|
|
(assert `(gimp-context-pop))
|
|
|
|
; pop effective: original context i.e. antialias true
|
|
(assert-PDB-true `(gimp-context-get-antialias))
|
|
|
|
|
|
|
|
; test abnormal sequence: pop without a prior push.
|
|
; Yields an error
|
|
(assert-error `(gimp-context-pop)
|
|
"Procedure execution of gimp-context-pop failed")
|
|
|
|
|