tests/testthat/test-insertlocale.R

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

context("test-insertlocale")


con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")

ghosts::insertLocale(con)

a <- DBI::dbGetQuery(con, 
                     "SELECT *
                  FROM locale"
                     
)

test_that("multiplication works", {
  expect_equal(DBI::dbListTables(con), "locale")
  expect_equal(DBI::dbListFields(con, "locale"), "locale")
  expect_gt(nchar(a), 10)
  })