From f3db8fdc4a4a88502c2d2527da9d491eb2670e07 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Fri, 13 Feb 2009 16:07:17 -0600
Subject: [PATCH] Another failing unit test for db.sqlite

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

diff --git a/basis/db/sqlite/sqlite-tests.factor b/basis/db/sqlite/sqlite-tests.factor
index 529de9774b..5ad4b0c889 100644
--- a/basis/db/sqlite/sqlite-tests.factor
+++ b/basis/db/sqlite/sqlite-tests.factor
@@ -163,3 +163,5 @@ watch "WATCH" {
         user>> f user boa select-tuple
     ] with-db
 ] unit-test
+
+[ \ swap ensure-table ] must-fail