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 site-watcher.db.private ;
   6 IN: site-watcher.tests
   7
   8 : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
   9
  10 [ site-watcher-path delete-file ] ignore-errors
  11
  12 : with-sqlite-db ( quot -- )
  13     site-watcher-path <sqlite-db> swap with-db ; inline
  14
  15 :: fake-sites ( -- seq )
  16     [
  17         account ensure-table
  18         site ensure-table
  19         watching-site ensure-table
  20
  21         "erg@factorcode.org" insert-account
  22         "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
  23         "http://fark.com" insert-site drop
  24
  25         "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
  26         f <site> select-tuples
  27     ] with-sqlite-db ;
  28