tests/testthat/test_is.directory.R

context("is.directory")

test_that("is.directory works", {
    expect_that(is.directory("."), is_true())
    expect_that(is.directory(tempfile()), equals(NA))
    expect_that(is.directory(file.path(R.home("doc"), "COPYING")), is_false())
})
cbaumbach/miscFun documentation built on May 13, 2019, 1:48 p.m.