68 lines
1.3 KiB
Factor
68 lines
1.3 KiB
Factor
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 ;
|
|
|
|
[
|
|
{
|
|
{ { 0 0 } { 0 101 } }
|
|
{ { 0 0 } { 101 0 } }
|
|
{ { 0 100 } { 101 100 } }
|
|
{ { 100 0 } { 100 101 } }
|
|
}
|
|
] [
|
|
100x100 1array
|
|
1array
|
|
<grid>
|
|
{ 100 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 } }
|
|
}
|
|
] [
|
|
100x100 1array
|
|
1array
|
|
<grid>
|
|
{ 10 10 } >>gap
|
|
dup prefer
|
|
compute-grid-lines natural-sort
|
|
] unit-test
|
|
|
|
[
|
|
{
|
|
{ { 0 0 } { 0 201 } }
|
|
{ { 0 0 } { 201 0 } }
|
|
{ { 0 100 } { 201 100 } }
|
|
{ { 0 200 } { 201 200 } }
|
|
{ { 100 0 } { 100 201 } }
|
|
{ { 200 0 } { 200 201 } }
|
|
}
|
|
] [
|
|
100x100 100x100 2array
|
|
100x100 100x100 2array
|
|
2array
|
|
<grid>
|
|
{ 200 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 } }
|
|
}
|
|
] [
|
|
<gadget> { 1 1 } >>dim
|
|
1array 1array <grid> { 1 1 } >>gap
|
|
dup prefer
|
|
compute-grid-lines
|
|
] unit-test |