tests/testthat/test_format_csvy.R

In leeper/rio: A Swiss-Army Knife for Data I/O

context("CSVY imports/exports")
require("datasets")

tmp <- tempfile(fileext = ".csvy")

test_that("Export to CSVY", {
    suppressWarnings(expect_true(file.exists(export(iris, tmp))))
})

test_that("Import from CSVY", {
    suppressWarnings(d <- import(tmp))
    expect_true(inherits(d, "data.frame"))
})

unlink(tmp)