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 a19c954c25a4f9338b9d1b1ad8a0450304f8d49c..75600a54e9d828ab05ede10e4b7fff927a85cf76 100644 (file)
--- a/extra/site-watcher/site-watcher-tests.factor
+++ b/extra/site-watcher/site-watcher-tests.factor
@@ -1,27 +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
-site-watcher.private kernel ;
+! 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-path ( -- path ) "site-watcher.db" temp-file ; inline
-
-[ site-watcher-path delete-file ] ignore-errors
-
-: with-sqlite-db ( quot -- )
-    site-watcher-path <sqlite-db> swap with-db ; inline
+"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 drop
-        "http://fark.com" insert-site drop
+        "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