tests/testthat/test-io-csv.R

In duckdblabs/duckplyr: A 'DuckDB'-Backed Version of 'dplyr'

test_that("Roundtrip to CSV works", {
  local_options(lifecycle_verbosity = "quiet")

  df <- tibble(a = 1:3, b = letters[4:6])

  path_csv <- withr::local_tempfile(fileext = ".csv")

  write.csv(df, path_csv, row.names = FALSE)
  out <- df_from_csv(path_csv)

  expect_equal(out, df)
})