fix test, something is still broken

2008-10-02 16:37:04 -05:00 · 2008-10-02 16:37:04 -05:00 · 39eacca297
parent aeb5d60d3a
commit 39eacca297
1 changed files with 4 additions and 2 deletions
--- 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