extra/site-watcher/site-watcher-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: continuations db db.tuples io.directories io.files.temp kernel
   4 locals sequences site-watcher.db tools.test webapps.utils ;
   5 IN: site-watcher.tests
   6
   7 "site-watcher.db" temp-file ?delete-file
   8
   9 :: fake-sites ( -- seq )
  10     "site-watcher.db" <temp-sqlite-db> [
  11         account ensure-table
  12         site ensure-table
  13         watching-site ensure-table
  14
  15         "erg" "erg@factorcode.org" insert-account
  16         "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
  17         "http://fark.com" insert-site drop
  18
  19         "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
  20         f <site> select-tuples
  21     ] with-db ;
  22
  23 { f } [ fake-sites empty? ] unit-test