From 7a4a7474e86ca80a5cb1eea60b527f0296e9b28c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 23 Mar 2009 22:33:05 -0500 Subject: [PATCH] Fix site-watcher tests --- extra/site-watcher/site-watcher-tests.factor | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/extra/site-watcher/site-watcher-tests.factor b/extra/site-watcher/site-watcher-tests.factor index dde5e65e7e..62233587d9 100644 --- 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 [ 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 select-tuples - ] with-sqlite-db ; + ] with-db ; +[ f ] [ fake-sites empty? ] unit-test \ No newline at end of file