tests/testthat/test-clear.R

In basilisk.utils: Basilisk Installation Utilities

# library(testthat); library(basilisk.utils); source("test-clear.R")

test_that("clearing out only obsolete versions works as expected", {
    tmp <- tempfile()
    dir.create(tmp)

    version <- "0.0.1"
    placeholder <- file.path(tmp, version)
    dir.create(placeholder, showWarnings=FALSE)
    expect_true(file.exists(placeholder))

    version2 <- "0.0.2"
    placeholder2 <- file.path(tmp, version2)
    dir.create(placeholder2, showWarnings=FALSE)
    expect_true(file.exists(placeholder2))

    version3 <- "0.1.0"
    placeholder3 <- file.path(tmp, version3)
    dir.create(placeholder3, showWarnings=FALSE)
    expect_true(file.exists(placeholder3))

    clearObsoleteDir(path=placeholder)
    expect_true(file.exists(placeholder))
    expect_false(file.exists(placeholder2))
    expect_true(file.exists(placeholder3))
})