ui.*: new tests

char-rename
Björn Lindqvist 2016-08-23 07:32:17 +02:00
parent dcae1baad5
commit a5c0ba98d0
2 changed files with 19 additions and 2 deletions

View File

@ -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

View File

@ -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