From dd1587c74582b08267de6d8c2278809e31265088 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Thu, 19 Feb 2009 18:52:45 -0600
Subject: [PATCH] Fixing SQLite unit tests

---
 basis/db/sqlite/sqlite-tests.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/db/sqlite/sqlite-tests.factor b/basis/db/sqlite/sqlite-tests.factor
index 677ec17a6e..fd730f07ae 100644
--- a/basis/db/sqlite/sqlite-tests.factor
+++ b/basis/db/sqlite/sqlite-tests.factor
@@ -117,7 +117,7 @@ hi "HELLO" {
         1 <foo> insert-tuple
         f <foo> select-tuple
         1 1 <hi> insert-tuple
-        f <hi> select-tuple
+        f f <hi> select-tuple
         hi drop-table
         foo drop-table
     ] with-db
@@ -160,6 +160,7 @@ watch "WATCH" {
         show new insert-tuple
         show new select-tuple
         "littledan" f user boa select-tuple
+        swap [ username>> ] [ id>> ] bi*
         watch boa insert-tuple
         watch new select-tuple
         user>> f user boa select-tuple