tests/testthat/test-compress.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

text <- c("hello", "world")
file <- file.path(tempdir2(), "test.txt")
writeLines(text = text, con = file)

exts <- eval(formals(compress)[["ext"]])
test_that(toString(exts), {
    for (ext in exts) {
        ## Compress the file.
        zfile <- compress(
            file = file,
            ext = ext,
            remove = TRUE,
            overwrite = TRUE
        )
        expect_true(file.exists(zfile))
        expect_false(file.exists(file))
        ## Decompress the compressed file.
        file <- decompress(file = zfile, remove = TRUE, overwrite = TRUE)
        expect_true(file.exists(file))
        expect_false(file.exists(zfile))
        expect_identical(
            object = readLines(con = file),
            expected = text
        )
    }
})

unlink2(file)