tests/testthat/test-ctrlVertices.R

context("Function ctrlVertices")

test_that(".ctrlVertices", {
  PTDF <- fread(system.file("testdata/PTDF6h.csv",package = "flowBasedClustering"))
  PTDF <- .ctrlVertices(PTDF)
  expect_true(class(PTDF$Date) == "character")
  expect_true(PTDF$Date[1] == "2015-11-01")
  
  expect_error(.ctrlVertices(data.frame()))
  
})
rte-antares-rpackage/flowBasedClustering documentation built on Nov. 21, 2020, 11:21 a.m.