steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets.grid-lines: fix tests.

db4
John Benediktsson 2015-07-18 18:28:00 -07:00
parent 8931517401
commit 72e19fe79a
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
basis/ui/gadgets/grid-lines/grid-lines-tests.factor
View File

@ -2,29 +2,30 @@ IN: ui.gadgets.grid-lines.tests
USING: tools.test ui.gadgets ui.gadgets.grid-lines ui.gadgets.grid-lines.private
ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
: 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
: 100x100 ( -- gadget )
<gadget> { 100 100 } >>dim ;
{
{
{ { 0 0 } { 0 101 } }
{ { 0 0 } { 101 0 } }
{ { 0 100 } { 101 100 } }
{ { 100 0 } { 100 101 } }
{ { 0.0 0.0 } { 0.0 100.0 } }
{ { 0.0 0.0 } { 100.0 0.0 } }
{ { 0.0 100.0 } { 100.0 100.0 } }
{ { 100.0 0.0 } { 100.0 100.0 } }
}
} [
100x100 1array
1array
<grid>
{ 100 100 } >>dim
{ 100.0 100 } >>dim
compute-grid-lines natural-sort
] unit-test
{
{
{ { 5 5 } { 5 116 } }
{ { 5 5 } { 116 5 } }
{ { 5 115 } { 116 115 } }
{ { 115 5 } { 115 116 } }
{ { 5.0 5.0 } { 5.0 115.0 } }
{ { 5.0 5.0 } { 115.0 5.0 } }
{ { 5.0 115.0 } { 115.0 115.0 } }
{ { 115.0 5.0 } { 115.0 115.0 } }
}
} [
100x100 1array
@ -37,28 +38,28 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
{
{
{ { 0 0 } { 0 201 } }
{ { 0 0 } { 201 0 } }
{ { 0 100 } { 201 100 } }
{ { 0 200 } { 201 200 } }
{ { 100 0 } { 100 201 } }
{ { 200 0 } { 200 201 } }
{ { 0.0 0.0 } { 0.0 200.0 } }
{ { 0.0 0.0 } { 200.0 0.0 } }
{ { 0.0 100.0 } { 200.0 100.0 } }
{ { 0.0 200.0 } { 200.0 200.0 } }
{ { 100.0 0.0 } { 100.0 200.0 } }
{ { 200.0 0.0 } { 200.0 200.0 } }
}
} [
100x100 100x100 2array
100x100 100x100 2array
2array
<grid>
{ 200 200 } >>dim
{ 200.0 200 } >>dim
compute-grid-lines natural-sort
] unit-test
{
{
{ { 0 0 } { 0 3 } }
{ { 2 0 } { 2 3 } }
{ { 0 0 } { 3 0 } }
{ { 0 2 } { 3 2 } }
{ { 0.5 0.5 } { 0.5 2.5 } }
{ { 2.5 0.5 } { 2.5 2.5 } }
{ { 0.5 0.5 } { 2.5 0.5 } }
{ { 0.5 2.5 } { 2.5 2.5 } }
}
} [
<gadget> { 1 1 } >>dim