tests/testthat/test-is-disk.frame.r

In xiaodaigh/disk.frame: Larger-than-RAM Disk-Based Data Manipulation Framework

context("test-is-disk-frame")

test_that("testing is_disk.frame", {
  fs::dir_create(file.path(tempdir(), "tmp_is_disk_frame"))
  fst::write_fst(data.frame(a= 1, b = 1), file.path(tempdir(), "tmp_is_disk_frame/1.fst"))
  fst::write_fst(data.frame(a= 1, b = 1), file.path(tempdir(), "tmp_is_disk_frame/2.fst"))
  
  df = disk.frame(file.path(tempdir(), "tmp_is_disk_frame"))
  expect_true(is_disk.frame(df))
  
  disk.frame::delete(df)
})