OMOP/tests/testthat/test-createDdl.R

30 lines
810 B
R
Raw Normal View History

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"))
})