tests/testthat/test-methodInsertTable.R

In omopgenerics: Methods and Classes for the OMOP Common Data Model

test_that("multiplication works", {
  cdm <- emptyCdmReference(cdmName = "test")
  expect_true(!"my_table" %in% names(cdm))
  expect_no_error(cdm <- insertTable(
    cdm = cdm, name = "my_table", table = dplyr::tibble(a = 1)
  ))
  expect_true("my_table" %in% names(cdm))
  expect_true(inherits(cdm$my_table, "cdm_table"))

  x <- dplyr::tibble(a = 1)
  class(x) <- "my_sql_table"
  expect_error(cdm <- insertTable(cdm = cdm, name = "my_table", table = x))

})