52 lines
1.4 KiB
R
52 lines
1.4 KiB
R
|
test_that("writeDdl works", {
|
||
|
|
|
||
|
|
outputpath <- tempdir(TRUE)
|
||
|
|
filename <- writeDdl(targetDialect = "postgresql", cdmVersion = "5.4", outputpath = outputpath)
|
||
|
|
|
||
|
|
expect_true(file.exists(file.path(outputpath, filename)))
|
||
|
|
sql <- readr::read_file(file.path(outputpath, filename))
|
||
|
|
|
||
|
|
expect_type(sql, "character")
|
||
|
|
expect_gt(nchar(sql), 10)
|
||
|
|
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("writePrimaryKeys works", {
|
||
|
|
|
||
|
|
outputpath <- tempdir(TRUE)
|
||
|
|
filename <- writePrimaryKeys(targetDialect = "postgresql", cdmVersion = "5.4", outputpath = outputpath)
|
||
|
|
|
||
|
|
expect_true(file.exists(file.path(outputpath, filename)))
|
||
|
|
sql <- readr::read_file(file.path(outputpath, filename))
|
||
|
|
|
||
|
|
expect_type(sql, "character")
|
||
|
|
expect_gt(nchar(sql), 10)
|
||
|
|
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("writeForeignKeys works", {
|
||
|
|
|
||
|
|
outputpath <- tempdir(TRUE)
|
||
|
|
filename <- writeForeignKeys(targetDialect = "postgresql", cdmVersion = "5.4", outputpath = outputpath)
|
||
|
|
|
||
|
|
expect_true(file.exists(file.path(outputpath, filename)))
|
||
|
|
sql <- readr::read_file(file.path(outputpath, filename))
|
||
|
|
|
||
|
|
expect_type(sql, "character")
|
||
|
|
expect_gt(nchar(sql), 10)
|
||
|
|
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("writeIndex works", {
|
||
|
|
|
||
|
|
outputpath <- tempdir(TRUE)
|
||
|
|
filename <- writeIndex(targetDialect = "postgresql", cdmVersion = "5.4", outputpath = outputpath)
|
||
|
|
|
||
|
|
expect_true(file.exists(file.path(outputpath, filename)))
|
||
|
|
sql <- readr::read_file(file.path(outputpath, filename))
|
||
|
|
|
||
|
|
expect_type(sql, "character")
|
||
|
|
expect_gt(nchar(sql), 10)
|
||
|
|
|
||
|
|
})
|