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

add test for quadtree >alist

db4
Joe Groff 2009-02-02 13:19:08 -06:00
parent d32d436154
commit cffb634001
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/quadtrees/quadtrees-tests.factor
View File

@ -176,7 +176,16 @@ IN: quadtrees.tests
assoc-size assoc-size
] unit-test ] unit-test
[ 8 ] [ [ {
{ { -0.75 -0.75 } "b" }
{ { -0.75 0.75 } "d" }
{ { -0.25 -0.25 } "a" }
{ { -0.25 0.25 } "c" }
{ { 0.25 -0.25 } "e" }
{ { 0.25 0.25 } "g" }
{ { 0.75 -0.75 } "f" }
{ { 0.75 0.75 } "h" }
} ] [
unit-bounds <quadtree> unit-bounds <quadtree>
"a" { -0.25 -0.25 } value>>key "a" { -0.25 -0.25 } value>>key
"b" { -0.75 -0.75 } value>>key "b" { -0.75 -0.75 } value>>key
@ -187,7 +196,7 @@ IN: quadtrees.tests
"g" { 0.25 0.25 } value>>key "g" { 0.25 0.25 } value>>key
"h" { 0.75 0.75 } value>>key "h" { 0.75 0.75 } value>>key
assoc-size >alist natural-sort
] unit-test ] unit-test