remove impala tests

OHDSI · Jan 17, 2024 · 145e97f · 145e97f
1 parent 543b4b1
commit 145e97f
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 59 deletions.
diff --git a/tests/testImpala.R b/tests/testImpala.R
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -115,20 +115,6 @@ if (dbms == "oracle") {
   options(sqlRenderTempEmulationSchema = oracleOhdsiDatabaseSchema)
 }
 
-# impala
-if (dbms == "impala") {
-  # NOTE: Driver for IMPALA requires manual installation
-  impalaConnectionDetails <- createConnectionDetails(
-    dbms = "impala",
-    user = Sys.getenv("CDM5_IMPALA_USER"),
-    password = URLdecode(Sys.getenv("CDM5_IMPALA_PASSWORD")),
-    server = Sys.getenv("CDM5_IMPALA_SERVER"),
-    pathToDriver = Sys.getenv("CDM5_IMPALA_PATH_TO_DRIVER")
-  )
-  impalaCdmDatabaseSchema <- Sys.getenv("CDM5_IMPALA_CDM_SCHEMA")
-  impalaOhdsiDatabaseSchema <- Sys.getenv("CDM5_IMPALA_OHDSI_SCHEMA")
-}
-
 # redshift
 if (dbms == "redshift") {
   DatabaseConnector::downloadJdbcDrivers("redshift")

diff --git a/tests/testthat/test-query-no-fail.R b/tests/testthat/test-query-no-fail.R
@@ -156,14 +156,6 @@ test_that("Run all analysis at per-person level on Oracle", {
   expect_true(is(covariateData, "CovariateData"))
 })
 
-test_that("Run all analysis at per-person level on Impala", {
-  skip_if_not(dbms == "impala")
-  impalaConnection <- createUnitTestData(impalaConnectionDetails, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
-  on.exit(dropUnitTestData(impalaConnection, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable))
-  covariateData <- runExtractionPerPerson(impalaConnection, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable)
-  expect_true(is(covariateData, "CovariateData"))
-})
-
 test_that("Run all analysis at per-person level on Redshift", {
   skip_if_not(dbms == "redshift")
   redshiftConnection <- createUnitTestData(redshiftConnectionDetails, redshiftCdmDatabaseSchema, redshiftOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
@@ -335,14 +327,6 @@ test_that("Run all analysis at aggregated level on Oracle", {
   expect_true(is(covariateData, "CovariateData"))
 })
 
-test_that("Run all analysis at aggregated level on Impala", {
-  skip_if_not(dbms == "impala")
-  impalaConnection <- createUnitTestData(impalaConnectionDetails, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
-  on.exit(dropUnitTestData(impalaConnection, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable))
-  covariateData <- runExtractionAggregated(impalaConnection, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable)
-  expect_true(is(covariateData, "CovariateData"))
-})
-
 test_that("Run all analysis at aggregated level on Redshift", {
   skip_if_not(dbms == "redshift")
   redshiftConnection <- createUnitTestData(redshiftConnectionDetails, redshiftCdmDatabaseSchema, redshiftOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
@@ -443,14 +427,6 @@ test_that("Run all temporalanalysis at per-person level on Oracle", {
   expect_true(is(covariateData, "CovariateData"))
 })
 
-test_that("Run all temporalanalysis at per-person level on Impala", {
-  skip_if_not(dbms == "impala")
-  impalaConnection <- createUnitTestData(impalaConnectionDetails, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
-  on.exit(dropUnitTestData(impalaConnection, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable))
-  covariateData <- runExtractionTemporalPerPerson(impalaConnection, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable)
-  expect_true(is(covariateData, "CovariateData"))
-})
-
 test_that("Run all temporalanalysis at per-person level on Redshift", {
   skip_if_not(dbms == "redshift")
   redshiftConnection <- createUnitTestData(redshiftConnectionDetails, redshiftCdmDatabaseSchema, redshiftOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
@@ -552,14 +528,6 @@ test_that("Run all temporalanalysis at aggregated level on Oracle", {
   expect_true(is(covariateData, "CovariateData"))
 })
 
-test_that("Run all temporalanalysis at aggregated level on Impala", {
-  skip_if_not(dbms == "impala")
-  impalaConnection <- createUnitTestData(impalaConnectionDetails, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
-  on.exit(dropUnitTestData(impalaConnection, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable))
-  covariateData <- runExtractionTemporalAggregated(impalaConnection, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable)
-  expect_true(is(covariateData, "CovariateData"))
-})
-
 test_that("Run all temporalanalysis at aggregated level on Redshift", {
   skip_if_not(dbms == "redshift")
   redshiftConnection <- createUnitTestData(redshiftConnectionDetails, redshiftCdmDatabaseSchema, redshiftOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)

diff --git a/tests/testthat/test-spot-checks.R b/tests/testthat/test-spot-checks.R
@@ -201,13 +201,6 @@ test_that("Run spot-checks at per-person level on Oracle", {
   runSpotChecks(oracleConnection, oracleCdmDatabaseSchema, oracleOhdsiDatabaseSchema, cohortTable)
 })
 
-test_that("Run spot-checks at per-person level on Impala", {
-  skip_if_not(dbms == "impala")
-  impalaConnection <- createUnitTestData(impalaConnectionDetails, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)
-  on.exit(dropUnitTestData(impalaConnection, impalaOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable))
-  runSpotChecks(impalaConnection, impalaCdmDatabaseSchema, impalaOhdsiDatabaseSchema, cohortTable)
-})
-
 test_that("Run spot-checks at per-person level on Redshift", {
   skip_if_not(dbms == "redshift")
   redshiftConnection <- createUnitTestData(redshiftConnectionDetails, redshiftCdmDatabaseSchema, redshiftOhdsiDatabaseSchema, cohortTable, cohortAttributeTable, attributeDefinitionTable)