#44 add table and col names test

OHDSI · May 30, 2023 · b363903 · b363903
1 parent 1b88bc3
commit b363903
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-basic.R b/tests/testthat/test-basic.R
@@ -30,6 +30,17 @@ test_that("Connect", {
   DatabaseConnector::disconnect(connection)
 })
 
+test_that("Table names and column names case", {
+  connection <- DatabaseConnector::connect(getEunomiaConnectionDetails())
+  tableNames <- DatabaseConnector::getTableNames(connection)
+  expect_true(identical(tableNames, tolower(tableNames)))
+
+  for (tableName in tableNames) {
+    colNames <- DatabaseConnector::dbListFields(connection, tableName)
+    expect_true(identical(colNames, tolower(colNames)))
+  }
+})
+
 test_that("Query", {
   connection <- DatabaseConnector::connect(getEunomiaConnectionDetails())
   personCount <- DatabaseConnector::querySql(connection, "SELECT COUNT(*) FROM main.person;")