From 39eacca297cd0c96320b10d5fc70522c9186d403 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 2 Oct 2008 16:37:04 -0500
Subject: [PATCH] fix test, something is still broken

---
 basis/http/http-tests.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index 608ba0c88f..b3930878ff 100644
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -182,9 +182,11 @@ http.server.dispatchers db.tuples ;
         [ stop-this-server "Goodbye" "text/html" <content> ] >>display
     "quit" add-responder ;
 
-: test-db "test.db" temp-file <sqlite-db> ;
+: test-db-file "test.db" temp-file ;
 
-[ test-db drop delete-file ] ignore-errors
+: test-db test-db-file <sqlite-db> ;
+
+[ test-db-file delete-file ] ignore-errors
 
 test-db [
     init-furnace-tables