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