basis/db/pools/pools-tests.factor

   1 IN: db.pools.tests
   2 USING: db.pools tools.test continuations io.files io.files.temp
   3 io.directories namespaces accessors kernel math destructors ;
   4
   5 \ <db-pool> must-infer
   6
   7 { 1 0 } [ [ ] with-db-pool ] must-infer-as
   8
   9 { 1 0 } [ [ ] with-pooled-db ] must-infer-as
  10
  11 ! Test behavior after image save/load
  12 USE: db.sqlite
  13
  14 [ "pool-test.db" temp-file delete-file ] ignore-errors
  15
  16 [ ] [ "pool-test.db" temp-file <sqlite-db> <db-pool> "pool" set ] unit-test
  17
  18 [ ] [ "pool" get expired>> t >>expired drop ] unit-test
  19
  20 [ ] [ 1000 [ "pool" get [ ] with-pooled-db ] times ] unit-test
  21
  22 [ ] [ "pool" get dispose ] unit-test