From cffb6340019c2301802d28cbe49ba3516b3dee67 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 2 Feb 2009 13:19:08 -0600
Subject: [PATCH] add test for quadtree >alist

---
 extra/quadtrees/quadtrees-tests.factor | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/extra/quadtrees/quadtrees-tests.factor b/extra/quadtrees/quadtrees-tests.factor
index e1b885ccc0..715adc0729 100644
--- a/extra/quadtrees/quadtrees-tests.factor
+++ b/extra/quadtrees/quadtrees-tests.factor
@@ -176,7 +176,16 @@ IN: quadtrees.tests
         assoc-size
 ] 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>
         "a" { -0.25 -0.25 } value>>key
         "b" { -0.75 -0.75 } value>>key
@@ -187,7 +196,7 @@ IN: quadtrees.tests
         "g" {  0.25  0.25 } value>>key
         "h" {  0.75  0.75 } value>>key
 
-        assoc-size
+        >alist natural-sort
 ] unit-test