tests/testthat/test-getMaxImportExport.R

context("Function getMaxImportExport")

test_that("getMaxImportExport", {
  
  domainesFB <- readRDS(system.file("testdata/antaresInput/domainesFB.RDS", package = "fbAntares"))
  dtImportExport <- getMaxImportExport(domainesFB)
  expect_true("data.table" %in% class(dtImportExport))
  expect_true(ncol(dtImportExport) == 26)
})
rte-antares-rpackage/fbAntares documentation built on June 1, 2022, 6:20 p.m.