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: db.tuples locals site-watcher site-watcher.db
   4 site-watcher.private kernel db io.directories io.files.temp
   5 continuations db.sqlite
   6 sequences tools.test ;
   7 IN: site-watcher.tests
   8
   9 [ "site-watcher.db" temp-file delete-file ] ignore-errors
  10
  11 :: fake-sites ( -- seq )
  12     "site-watcher.db" temp-file <sqlite-db> [
  13         account ensure-table
  14         site ensure-table
  15         watching-site ensure-table
  16
  17         "erg" "erg@factorcode.org" insert-account
  18         "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
  19         "http://fark.com" insert-site drop
  20
  21         "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
  22         f <site> select-tuples
  23     ] with-db ;
  24
  25 { f } [ fake-sites empty? ] unit-test