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 ;
   5 IN: site-watcher.tests
   6
   7 :: fake-sites ( -- seq )
   8     [
   9         account ensure-table
  10         site ensure-table
  11         watching-site ensure-table
  12
  13         "erg@factorcode.org" insert-account
  14         "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
  15         "http://fark.com" insert-site drop
  16
  17         "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
  18         f <site> select-tuples
  19     ] with-sqlite-db ;
  20