43 lines
982 B
Scheme
43 lines
982 B
Scheme
; test getters and setters of PikaContext
|
|
; (sic its not an object or class)
|
|
|
|
|
|
|
|
; set-line-dash-pattern
|
|
|
|
; tests binding of FloatArray
|
|
|
|
; Default is no pattern
|
|
; Even if user has stroked already and chosen a stroke>line>pattern
|
|
(assert `(= (car (pika-context-get-line-dash-pattern))
|
|
0))
|
|
|
|
; setter succeeds
|
|
(assert `(pika-context-set-line-dash-pattern 2 #(5.0 11.0)))
|
|
|
|
; setter effective
|
|
(assert `(= (car (pika-context-get-line-dash-pattern))
|
|
2))
|
|
(assert `(equal? (cadr (pika-context-get-line-dash-pattern))
|
|
#(5.0 11.0)))
|
|
|
|
|
|
; get-line-dash-offset
|
|
|
|
;tests binding of float i.e. gdouble
|
|
|
|
; defaults to 0.0 until set
|
|
; FIXME why doesn't it persist in settings?
|
|
(assert `(= (car (pika-context-get-line-dash-offset))
|
|
0.0))
|
|
|
|
; setter succeeds
|
|
(assert `(pika-context-set-line-dash-offset 3.3 ))
|
|
; setter effective
|
|
(assert `(= (car (pika-context-get-line-dash-offset))
|
|
3.3))
|
|
|
|
|
|
|
|
|
