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/r-acidbase documentation built on Jan. 12, 2024, 3:56 a.m.