tests/testthat/test-expect_is_directory.R

In robertzk/testthatsomemore: A mocking, stubbing, and file testing framework extending testthat

context('expect_is_directory')

local({
  stub(expect_is_directory, expect_true) <- stopifnot

  test_that('it returns an error on a non-character', {
    expect_error(expect_is_directory(5))
    expect_error(expect_is_directory(NULL))
    expect_error(expect_is_directory(factor(1)))
  })

  test_that('it returns an error on a non-existent directory', {
    expect_error(expect_is_directory('not/a/directory'))
  })

  test_that('it does not error on an actual directory', {
    assert(expect_is_directory(dirname(tempfile())))
  })

})