tests/testthat/test-sample_n.r

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

context("test-sample_n")

setup({
  a = data.frame(a = 1:100, b = 1:100)
  
  as.disk.frame(a, file.path(tempdir(), "tmp_sample_n.df"), nchunks = 5, overwrite = T)
})

test_that("testing semi_join where right is data.frame", {
  a = disk.frame(file.path(tempdir(), "tmp_sample_n.df"))
  expect_error(a40 <- sample_n(a, 40) %>% collect)
})

teardown({
  fs::dir_delete(file.path(tempdir(), "tmp_sample_n.df"))
})