From e26648002911fd6e2a2ee7bf24ea47d23b2752fa Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 28 Apr 2008 20:01:32 -0500
Subject: [PATCH] beginning to refactor

---
 extra/db/queries/queries.factor     |  2 ++
 extra/db/tuples/tuples-tests.factor | 11 +++++++++++
 2 files changed, 13 insertions(+)

diff --git a/extra/db/queries/queries.factor b/extra/db/queries/queries.factor
index 9ee44ffeed..cbbd8fd9a0 100644
--- a/extra/db/queries/queries.factor
+++ b/extra/db/queries/queries.factor
@@ -6,6 +6,8 @@ math.bitfields.lib namespaces.lib db db.tuples db.types
 math.intervals ;
 IN: db.queries
 
+TUPLE: query tuple order group having ;
+
 GENERIC: where ( specs obj -- )
 
 : maybe-make-retryable ( statement -- statement )
diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor
index 2b73b5c4fe..8e6b9bfbe4 100755
--- a/extra/db/tuples/tuples-tests.factor
+++ b/extra/db/tuples/tuples-tests.factor
@@ -322,6 +322,17 @@ TUPLE: exam id name score ;
         }
     ] [
         T{ exam f T{ interval f { -1.0/0.0 t } { 1/0. f } } } select-tuples
+    ] unit-test
+    
+    [
+        {
+            T{ exam f 1 "Kyle" 100 }
+            T{ exam f 2 "Stan" 80 }
+            T{ exam f 3 "Kenny" 60 }
+            T{ exam f 4 "Cartman" 41 }
+        }
+    ] [
+        T{ exam } select-tuples
     ] unit-test ;
 
 TUPLE: bignum-test id m n o ;