basis/db/sqlite/lib/lib-tests.factor

   1 ! Copyright (C) 2024 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: db db.sqlite db.sqlite.ffi db.sqlite.lib io.files.unique
   4 io.pathnames kernel namespaces strings tools.test ;
   5 IN: db.sqlite.lib.tests
   6
   7 { t } [ sqlite3_libversion string? ] unit-test
   8
   9 { "test.db" } [
  10     [
  11         "test.db" current-directory get prepend-path <sqlite-db>
  12         [ current-sqlite-filename file-name ] with-db
  13     ] with-unique-directory drop
  14 ] unit-test