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. 26, 2024, 4:26 p.m.