17 lines
369 B
Factor
17 lines
369 B
Factor
|
USING: kernel ui.gadgets ui.gadgets.tracks tools.test
|
||
|
|
math.geometry.rect accessors ;
|
||
|
IN: ui.gadgets.tracks.tests
|
||
|
|
|
||
|
|
[ { 100 100 } ] [
|
||
|
|
{ 0 1 } <track>
|
||
|
|
<gadget> { 100 100 } >>dim 1 track-add
|
||
|
|
pref-dim
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 100 110 } ] [
|
||
|
|
{ 0 1 } <track>
|
||
|
|
<gadget> { 10 10 } >>dim f track-add
|
||
|
|
<gadget> { 100 100 } >>dim 1 track-add
|
||
|
|
pref-dim
|
||
|
|
] unit-test
|