Fix site-watcher tests

diff --git a/extra/site-watcher/site-watcher-tests.factor b/extra/site-watcher/site-watcher-tests.factor
index dde5e65e7e7c6d5a5c24b6b0f6f9d06dcc801b50..62233587d9b874f3fc7654a07f3a6630f1a368ae 100644 (file)
--- a/extra/site-watcher/site-watcher-tests.factor
+++ b/extra/site-watcher/site-watcher-tests.factor
@@ -2,11 +2,14 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: db.tuples locals site-watcher site-watcher.db
 site-watcher.private kernel db io.directories io.files.temp
-continuations db.sqlite site-watcher.db.private ;
+continuations site-watcher.db.private db.sqlite
+sequences tools.test ;
 IN: site-watcher.tests
 
+[ "site-watcher.db" temp-file delete-file ] ignore-errors
+
 :: fake-sites ( -- seq )
-    [
+    "site-watcher.db" temp-file <sqlite-db> [
         account ensure-table
         site ensure-table
         watching-site ensure-table
@@ -17,5 +20,6 @@ IN: site-watcher.tests
 
         "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
         f <site> select-tuples
-    ] with-sqlite-db ;
+    ] with-db ;
 
+[ f ] [ fake-sites empty? ] unit-test
\ No newline at end of file