diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 0000000..eaa35d8
--- /dev/null
+++ b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(CommonDataModel)
+
+test_check("CommonDataModel")
diff --git a/tests/testthat/test-createDdl.R b/tests/testthat/test-createDdl.R
new file mode 100644
index 0000000..19dd82f
--- /dev/null
+++ b/tests/testthat/test-createDdl.R
@@ -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"))
+})
+
+