OMOP/tests/testthat/test-createDdl.R

test_that("createDdl works", {
  for (cdmVersion in listSupportedVersions()) {
    sql <- createDdl(cdmVersion)
    expect_type(sql, "character")
    expect_gt(nchar(sql), 10)
  }
  expect_error(createDdl(5.4))
  expect_error(createDdl("blah"))
})

test_that("createPrimaryKeys works", {
  for (cdmVersion in listSupportedVersions()) {
    sql <- createPrimaryKeys(cdmVersion)
    expect_type(sql, "character")
    expect_gt(nchar(sql), 10)
  }
  expect_error(createPrimaryKeys(5.4))
  expect_error(createPrimaryKeys("blah"))
})

test_that("createForeignKeys works", {
  for (cdmVersion in listSupportedVersions()) {
    sql <- createForeignKeys(cdmVersion)
    expect_type(sql, "character")
    expect_gt(nchar(sql), 10)
  }
  expect_error(createForeignKeys(5.4))
  expect_error(createForeignKeys("blah"))
})