tests/testthat/test-crtOutFile.R

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

context("Function .crtOutFile")

test_that(".crtOutFile", {
  library(data.table)

  dt_test <- data.table(V1 = rep("hello", 10), idDayType = rep(1:10))

  res <- .crtOutFile(dt_test, reportPath = path)
  # grepl(path, res$outputFile) &
  expect_true(grepl(Sys.Date(), res$outputFile) &
                res$step == 10)

  reportPath_failed <- "here"
  expect_error(.crtOutFile(dt_test, reportPath = reportPath_failed),
               regexp = paste("The directory", reportPath_failed, "does not exist"),
               fixed = T)

})