tests/testthat/test-crtlHubDrop.R

In rte-antares-rpackage/fbClust: A Tool Of Ptdf Manipulation In Order To Cluster And Visualize Domains

context("Function .ctrlHubDrop")

test_that(".ctrlHubDrop", {
  library(data.table)
  
  PLAN <- getPreprocPlan(
    pathPtdfMatrixFactor = system.file(
      "testdata/plan_new_version_factor_AT.rds", package = "fbClust"),
    pathPtdfMatrixConstraint = system.file(
      "testdata/plan_new_version_constraint_AT.rds", package = "fbClust"))
  hubDrop <- list(NL = c("BE", "DE", "FR", "AT"))
  
  .ctrlHubDrop(hubDrop = hubDrop, PLAN = PLAN)
  
  expect_error(.ctrlHubDrop(list(NL = c("BE", "DE", "FR")), PLAN), fixed = T,
               regexp = "hubDrop does not contain all the ptdf in PLAN")
  
  expect_warning(.ctrlHubDrop(list(NL = c("BE", "DE", "FR", "AT", "UK")), PLAN), fixed = T,
               regexp = "ptdfUK is (are) not in ptdf name")
  
})