From 976c50c463bf36e89afb550ba136cb1d5c69a1e5 Mon Sep 17 00:00:00 2001
From: Maarten van Kessel <m.vankessel@mi-erasmusmc.nl>
Date: Wed, 4 Oct 2023 15:56:24 +0200
Subject: [PATCH] Removed duplicate tests

---
 tests/testthat/test-fitOutcomeModel.R | 61 ---------------------------
 1 file changed, 61 deletions(-)

diff --git a/tests/testthat/test-fitOutcomeModel.R b/tests/testthat/test-fitOutcomeModel.R
index 9a7e0785..8ade3022 100644
--- a/tests/testthat/test-fitOutcomeModel.R
+++ b/tests/testthat/test-fitOutcomeModel.R
@@ -445,67 +445,6 @@ test_that("interactionCovariateIds", {
   )
 })
 
-test_that("interactionCovariateIds", {
-  # Hard check on 64bit?
-  # Warning on empty?
-  # Allow negatives?
-  femaleCovId <- 8532001
-
-  ## Defaults ----
-  mod <- fitOutcomeModel(
-    population = studyPopMatched,
-    cohortMethodData = sCohortMethodData,
-    interactionCovariateIds = femaleCovId
-  )
-
-  expect_s3_class(mod, "OutcomeModel")
-
-  ## Empty ----
-  mod <- fitOutcomeModel(
-    population = studyPopMatched,
-    cohortMethodData = sCohortMethodData,
-    interactionCovariateIds = c()
-  )
-
-  expect_s3_class(mod, "OutcomeModel")
-
-  ## 64-bit int ----
-  mod <- fitOutcomeModel(
-    population = studyPopMatched,
-    cohortMethodData = sCohortMethodData,
-    interactionCovariateIds = bit64::as.integer64(99999999999)
-  )
-
-  expect_s3_class(mod, "OutcomeModel")
-
-  ## Negative
-  mod <- fitOutcomeModel(
-    population = studyPopMatched,
-    cohortMethodData = sCohortMethodData,
-    interactionCovariateIds = -femaleCovId
-  )
-
-  expect_s3_class(mod, "OutcomeModel")
-
-  ## Negative 64-bit ----
-  mod <- fitOutcomeModel(
-    population = studyPopMatched,
-    cohortMethodData = sCohortMethodData,
-    interactionCovariateIds = -bit64::as.integer64(99999999999)
-  )
-
-  expect_s3_class(mod, "OutcomeModel")
-
-  ## NA ----
-  expect_error(
-    fitOutcomeModel(
-      population = studyPopMatched,
-      cohortMethodData = sCohortMethodData,
-      interactionCovariateIds = NA
-    )
-  )
-})
-
 test_that("excludeCovariateIds", {
   # Hard check on 64bit?
   # Warning on empty?