tests/testthat/test-export-parquet.R

In FakeDataR: Privacy-Preserving Synthetic Data for 'LLM' Workflows

testthat::skip_if_not_installed("arrow")

test_that("export parquet works when arrow is installed", {
  skip_if_not_installed("arrow")
  x <- generate_fake_data(ToothGrowth, n = 5, seed = 42)
  fp <- tempfile(fileext = ".parquet")
  export_fake(x, fp)
  expect_true(file.exists(fp))
})