tests/testthat/test-mssql.R

In OHDSI/Achilles: Achilles Data Source Characterization

test_that("Achilles MS SQL Execution", {
  if (Sys.getenv("CDM5_SQL_SERVER_USER") != "") {
    details <- createConnectionDetails(
      dbms = "sql server",
      user = Sys.getenv("CDM5_SQL_SERVER_USER"),    
      password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")),
      server = Sys.getenv("CDM5_SQL_SERVER_SERVER")
    )
    
    expect_no_error(
      Achilles::achilles(
        connectionDetails = details, 
        cdmDatabaseSchema = Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA"),
        resultsDatabaseSchema = Sys.getenv("CDM5_SQL_SERVER_OHDSI_SCHEMA"),
        cdmVersion = "5.4",
        createTable = T
      )  
    )
  } else {
    message("Skipping MS SQL testing because environmental variables not set")
  }
})