tests/testthat/test-import.R

In rte-antares-rpackage/fbTools:

context("Function getFbDomain")

test_that("getFbDomain", {
  library(data.table)
  library(testthat)
  library(parallel)

  DT <- getFbDomain(list.files(system.file("testdata/FB",package = "fbTools"),
                       recursive = TRUE, full.names = TRUE), 2)

  expect_true("data.table"%in%class(DT))
  expect_true(nrow(DT)==19655)
})