tests/testthat/test-add-annotation.R

In khondula/rodm2: Use an ODM2 Database in R

test_that("describe annotation works", {
  db <- rodm2::create_sqlite(connect = TRUE)
  myannotationtext = "test site group"
  suppressMessages(db_describe_annotation(db = db,
                                          annotationtext = myannotationtext,
                                          annotationtypecv = "Site group"))
  query_result <- RSQLite::dbGetQuery(db,
                                      "SELECT ann.annotationtext
                                      FROM annotations ann
                                      WHERE ann.annotationtext = :x",
                                      params=list(x = myannotationtext))
  DBI::dbDisconnect(db)

  expect_true(myannotationtext %in% query_result[["AnnotationText"]])
})