basis/db/db-tests.factor

   1 USING: tools.test db kernel ;\r
   2 IN: db.tests\r
   3 \r
   4 { 1 0 } [ [ drop ] query-each ] must-infer-as\r
   5 { 1 1 } [ [ ] query-map ] must-infer-as\r
   6 { 2 0 } [ [ ] with-db ] must-infer-as\r