ui.listener: document that ~/.factor-history persists input history

[factor.git] / extra / site-watcher / site-watcher-tests.factor

diff --git a/extra/site-watcher/site-watcher-tests.factor b/extra/site-watcher/site-watcher-tests.factor
index d51fa026050cbc6fddfc73f37faafcfa324c341a..75600a54e9d828ab05ede10e4b7fff927a85cf76 100644 (file)
--- a/extra/site-watcher/site-watcher-tests.factor
+++ b/extra/site-watcher/site-watcher-tests.factor
@@ -1,19 +1,23 @@
 ! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: db.tuples locals site-watcher site-watcher.db ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: continuations db db.tuples io.directories io.files.temp kernel
+locals sequences site-watcher.db tools.test webapps.utils ;
 IN: site-watcher.tests
 
+"site-watcher.db" temp-file ?delete-file
+
 :: fake-sites ( -- seq )
-    [
+    "site-watcher.db" <temp-sqlite-db> [
         account ensure-table
         site ensure-table
         watching-site ensure-table
 
-        "erg@factorcode.org" insert-account
-        "http://asdfasdfasdfasdfqwerqqq.com" insert-site
-        "http://fark.com" insert-site
+        "erg" "erg@factorcode.org" insert-account
+        "https://asdfasdfasdfasdfqwerqqq.com" insert-site drop
+        "https://fark.com" insert-site drop
 
-        "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
+        "erg@factorcode.org" "https://asdfasdfasdfasdfqwerqqq.com" watch-site
         f <site> select-tuples
-    ] with-sqlite-db ;
+    ] with-db ;
 
+{ f } [ fake-sites empty? ] unit-test