tests/testthat/test-create.R

In manifesto: Create Project Manifest Files

test_that('`manifest_create()` writes a valid manifest file', {
  path <- manifest_create(project_name = 'demo', project_version = '0.1.0')

  expect_true(file.exists(path))

  manifest <- tomledit::from_toml(tomledit::read_toml(path))
  expect_equal(manifest$project$name, 'demo')
  expect_equal(manifest$project$version, '0.1.0')
  expect_true('dependencies' %in% names(manifest))
})