mz-health/OMOP
mz-health
/
OMOP
mirror of https://github.com/OHDSI/CommonDataModel.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add tests for create functions.

This commit is contained in:
Adam Black 2021-08-18 17:20:59 -04:00
parent 02260fb855
commit f92a21cd64
2 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/testthat.R Normal file
View File

@ -0,0 +1,4 @@
library(testthat)
library(CommonDataModel)
test_check("CommonDataModel")

38
tests/testthat/test-createDdl.R Normal file
View File

@ -0,0 +1,38 @@
test_that("createDdl works", {
# for(cdmVersion in listSupportedVersions()) { # 5.3 ddl csv control file is currently messed up.
cdmVersion <- "5.4"
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()) {
cdmVersion <- "5.4"
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()) {
cdmVersion <- "5.4"
sql <- createForeignKeys(cdmVersion)
expect_type(sql, "character")
expect_gt(nchar(sql), 10)
# }
expect_error(createForeignKeys(5.4))
expect_error(createForeignKeys("blah"))
})