steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix site-watcher tests

db4
Slava Pestov 2009-03-23 22:33:05 -05:00
parent 688452fa3d
commit 7a4a7474e8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/site-watcher/site-watcher-tests.factor
View File

@ -2,11 +2,14 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: db.tuples locals site-watcher site-watcher.db USING: db.tuples locals site-watcher site-watcher.db
site-watcher.private kernel db io.directories io.files.temp 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 IN: site-watcher.tests
[ "site-watcher.db" temp-file delete-file ] ignore-errors
:: fake-sites ( -- seq ) :: fake-sites ( -- seq )
[ "site-watcher.db" temp-file <sqlite-db> [
account ensure-table account ensure-table
site ensure-table site ensure-table
watching-site ensure-table watching-site ensure-table
@ -17,5 +20,6 @@ IN: site-watcher.tests
"erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
f <site> select-tuples f <site> select-tuples
] with-sqlite-db ; ] with-db ;
[ f ] [ fake-sites empty? ] unit-test