tests/testthat/test-src-ffdf.R

context("src")

DB = tempdir() # "testdb"

test_that("Create",{
  unlink(DB, recursive = T, force = T)
  db <- src_ffdf(DB)
  expect_true(file.exists(DB), "Directory created?")
})

test_that("Create table",{
  unlink(DB, recursive = T, force = T)
  mtc <- tbl_ffdf(mtcars, DB, name="mtc", force=T)
})
edwindj/ffbase2 documentation built on May 15, 2019, 11:05 p.m.