tests/testthat/test_template_directories.R

In EDIorg/EMLassemblyline: A tool kit for building EML metadata workflows

context('Create directories')
library(EMLassemblyline)

# Directories exist -----------------------------------------------------------

testthat::test_that('Directories exist', {
  
  # Existing directories result in error
  
  expect_error(
    suppressMessages(
      template_directories(
        path = system.file(
          '/examples',
          package = 'EMLassemblyline'
        ),
        dir.name = 'templates'
      ) 
    )
  )
  
})

# Directories don't exist -----------------------------------------------------

testthat::test_that("Directories don't exist", {

  # Normal use results in directory structure

  suppressMessages(
    template_directories(
      path = tempdir(),
      dir.name = 'edi_101'
    ) 
  )
  
  expect_true(
    dir.exists(
      paste0(
        tempdir(),
        '/edi_101'
      )
    )
  )

})