tests/testthat/test-description.R

In manifesto: Create Project Manifest Files

test_that('`parse_description()` returns a list with named fields', {
  desc <- parse_description(testthat::test_path('files', 'desc-minimal'))

  expect_type(desc, 'list')
  expect_true(all(c('Package', 'Version', 'Authors@R') %in% names(desc)))
  expect_equal(desc$Package, 'testpkg')
})

test_that('`parse_authors_field()` parses Authors@R correctly', {
  field <- 'person("Jane", "Doe", email = "jane@example.com", role = c("aut", "cre"))'
  parsed <- parse_authors_field(field)

  expect_type(parsed, 'list')
  expect_equal(parsed[[1]]$name, 'Jane Doe')
  expect_equal(parsed[[1]]$email, 'jane@example.com')
  expect_equal(parsed[[1]]$roles, c('aut', 'cre'))
})

test_that('`parse_authors_field()` handles multiple authors', {
  field <- 'c(person("Jane", "Doe", email = "jane@example.com", role = "aut"), person("John", "Smith", role = "ctb"))'
  parsed <- parse_authors_field(field)

  expect_length(parsed, 2)
  expect_equal(parsed[[2]]$name, 'John Smith')
})

test_that('`parse_authors_field()` handles missing email', {
  field <- 'person("Jane", "Doe", role = "aut")'
  parsed <- parse_authors_field(field)

  expect_null(parsed[[1]]$email)
})

test_that('`parse_authors_field()` handles malformed input', {
  field <- 'person(Jane, Doe, email = jane@example.com, role = aut)'
  parsed <- parse_authors_field(field)

  expect_length(parsed, 0)
})

test_that('`parse_dependencies()` parses versioned fields', {
  field <- 'dplyr (>= 1.0.0), glue'
  parsed <- parse_dependencies(field)

  expect_equal(parsed$dplyr, '>= 1.0.0')
  expect_equal(parsed$glue, '*')
})

test_that('`parse_r_version()` extracts R version constraint', {
  field <- 'R (>= 4.2.0), methods'
  version <- parse_r_version(field)

  expect_equal(version, '>= 4.2.0')
})

test_that('`manifest_from_description()` generates a valid TOML file', {
  desc_path <- testthat::test_path('files', 'desc-minimal')
  path <- manifest_from_description(desc_path)

  expect_true(file.exists(path))

  manifest <- tomledit::from_toml(tomledit::read_toml(path))
  expect_equal(manifest$project$name, 'testpkg')
  expect_true('dependencies' %in% names(manifest))
  expect_true('suggests-dependencies' %in% names(manifest))
  expect_true('environment' %in% names(manifest))
})

test_that('`manifest_to_description()` converts manifest to valid DESCRIPTION', {
  manifest_path <- testthat::test_path('files', 'roundtrip-example.toml')
  desc_path <- tempfile()

  result <- manifest_to_description(manifest_path, out = desc_path)

  expect_true(file.exists(result))

  desc <- read.dcf(desc_path)[1, ]

  expect_equal(unname(desc['Package']), 'myproject')
  expect_equal(unname(desc['Version']), '0.1.2')

  # Check placeholder fields are present
  expect_equal(unname(desc['Title']), 'TODO Title')
  expect_equal(unname(desc['Description']), 'TODO Description')
  expect_equal(unname(desc['License']), 'TODO License')
  expect_equal(unname(desc['Encoding']), 'UTF-8')

  # Check authors block is structured and not missing
  expect_true(grepl('person\\(', desc['Authors@R']))

  # Check R version
  expect_equal(unname(desc['Depends']), 'R (>= 4.1.0)')

  # Check Imports
  expect_true(grepl('dplyr \\(>= 1.0.0\\)', desc['Imports']))
  expect_true(grepl('glue', desc['Imports']))

  # Check Suggests
  expect_true(grepl('testthat \\(>= 3.0.0\\)', desc['Suggests']))
})