ui.*: new tests
parent
dcae1baad5
commit
a5c0ba98d0
|
@ -1,6 +1,12 @@
|
|||
IN: ui.gadgets.borders.tests
|
||||
USING: tools.test accessors namespaces kernel ui.gadgets
|
||||
ui.gadgets.borders ui.gadgets.borders.private math.rectangles ;
|
||||
USING: accessors kernel math.rectangles namespaces tools.test
|
||||
ui.gadgets ui.gadgets.borders ui.gadgets.borders.private
|
||||
ui.gadgets.editors ;
|
||||
|
||||
! border-pref-dim
|
||||
{ { 20 20 } } [
|
||||
<multiline-editor> { 5 5 } <border> { 10 10 } border-pref-dim
|
||||
] unit-test
|
||||
|
||||
{ { 110 210 } } [ <gadget> { 100 200 } >>dim { 5 5 } <border> pref-dim ] unit-test
|
||||
|
||||
|
|
|
@ -0,0 +1,11 @@
|
|||
USING: accessors colors.constants namespaces tools.test
|
||||
ui.gadgets.labels ui.pens.gradient ui.render ui.render.private ;
|
||||
IN: ui.render.tests
|
||||
|
||||
: test-pen ( -- pen )
|
||||
{ COLOR: white COLOR: black } <gradient> ;
|
||||
|
||||
{ } [
|
||||
"hello" <label> test-pen >>interior
|
||||
draw-standard-background
|
||||
] unit-test
|
Loading…
Reference in New Issue