tests/testthat/test_format_csv_gz.R

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

context(".csv.gz imports/exports")
require("datasets")

test_that("Export to csv.gz", {
    expect_true(export(iris, "iris.csv.gz") %in% dir())
})

test_that("Import from csv.gz", {
    expect_true(inherits(import("iris.csv.gz"), "data.frame"))
})

unlink("iris.csv.gz")