tests/testthat/test-data.table.R

In adamryczkowski/depwalker: Dependency Tracking System for R Scripts

context("Data.table specific tests")
#source('tests/testthat/testfunctions.R')
source('testfunctions.R')

test_that("definition of task, which outputs data.table (6)", {
  m<-testf6(tmpdir);
  m2<-depwalker:::load.metadata(file.path(tmpdir, "task6"));
  expect_true(depwalker:::are.two.metadatas.equal(m,m2))
})

test_that("Execution of task, which outputs data.table (6)", expect_true({
  testf6(tmpdir);
  m<-depwalker:::load.metadata(file.path(tmpdir, "task6"));
  if (exists('DT',envir=.GlobalEnv))
    rm('DT',envir=.GlobalEnv)
  !is.null(depwalker:::load.object(metadata=m, metadata.path=file.path(tmpdir, "task6"),flag.save.in.background = FALSE))
}))