1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: db.tuples locals site-watcher site-watcher.db
4 site-watcher.private kernel db io.directories io.files.temp
5 continuations site-watcher.db.private db.sqlite
9 [ "site-watcher.db" temp-file delete-file ] ignore-errors
11 :: fake-sites ( -- seq )
12 "site-watcher.db" temp-file <sqlite-db> [
15 watching-site ensure-table
17 "erg" "erg@factorcode.org" insert-account
18 "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
19 "http://fark.com" insert-site drop
21 "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
22 f <site> select-tuples
25 [ f ] [ fake-sites empty? ] unit-test