From d09567e31eb83a378d7902a9b70b2a34030379ee Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Thu, 12 Feb 2009 21:59:59 -0600
Subject: [PATCH] Failing test case for db.sqlite

---
 basis/db/sqlite/sqlite-tests.factor | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/basis/db/sqlite/sqlite-tests.factor b/basis/db/sqlite/sqlite-tests.factor
index 657415c048..e05d992014 100644
--- a/basis/db/sqlite/sqlite-tests.factor
+++ b/basis/db/sqlite/sqlite-tests.factor
@@ -101,20 +101,29 @@ TUPLE: foo slot ;
 C: <foo> foo
 foo "BAR" { { "slot" "SOMETHING" INTEGER +not-null+ } } define-persistent
 
-TUPLE: hi bye ;
+TUPLE: hi bye try ;
 C: <hi> hi
-hi "HELLO"
-{ { "bye" "BUHBYE" INTEGER { +foreign-id+ foo "SOMETHING" } } } define-persistent
+hi "HELLO" {
+    { "bye" "BUHBYE" INTEGER { +foreign-id+ foo "SOMETHING" } }
+    { "try" "RETHROW" INTEGER { +foreign-id+ foo "SOMETHING" } }
+} define-persistent
 
-[ T{ foo { slot 1 } } T{ hi { bye 1 } } ] [
+[ T{ foo { slot 1 } } T{ hi { bye 1 } { try 1 } } ] [
     test.db [
         foo create-table
         hi create-table
         1 <foo> insert-tuple
         f <foo> select-tuple
-        1 <hi> insert-tuple
+        1 1 <hi> insert-tuple
         f <hi> select-tuple
         hi drop-table
         foo drop-table
     ] with-db
 ] unit-test
+
+[ ] [
+    test.db [
+        hi create-table
+        hi drop-table
+    ] with-db
+] unit-test