tests/testthat/test-unlink2.R

test_that("unlink2", {
    object <- tempdir2()
    expect_true(dir.exists(object))
    out <- unlink2(object)
    expect_false(dir.exists(object))
    expect_identical(out, 0L)
})
acidgenomics/AcidBase documentation built on Jan. 28, 2024, 2:59 a.m.