tests/testthat/test-copy_installation.R

context("Copying installation files")

test_that("copy_installation should copy files into 4 locations.", {
  temp_dir <- tempdir()
  if (!dir.exists(temp_dir)) dir.create(temp_dir)
  expect_equal(sum(copy_installation(temp_dir)), 4)
})

Try the RInno package in your browser

Any scripts or data that you put into this service are public.

RInno documentation built on May 1, 2019, 10:52 p.m.