tests/testthat/test-read.R

test_that("DCF reader works", {
  desc <- description$new(test_path("D1"))

  expect_equal(desc$get("Package"), c(Package = "desc"))
  expect_equal(desc$get("Version"), c(Version = "1.0.0"))
  expect_equal(desc$get("Author"), c(Author = "G\u00e1bor Cs\u00e1rdi"))
  expect_equal(desc$get("Imports"), c(Imports = "\n    R6"))
})

test_that("DCF reader keeps whitespace", {
  desc <- description$new(test_path("D1"))

  expect_equal(desc$get("Suggests"), c(Suggests = "\n    testthat"))
  expect_equal(desc$get("Description"), c(
    Description = paste0(
      "Tools to read, write, create, and manipulate DESCRIPTION\n",
      "    files. It is intented for packages that create or manipulate other\n",
      "    packages."
    )
  ))

})

test_that("duplicate fields, #43", {
  expect_error(
    description$new(test_path("D5")),
    "Duplicate DESCRIPTION fields.*Remotes"
  )
})

test_that("empty lines error", {
  expect_error(
    description$new(test_path("D12")),
    "Empty lines found in DESCRIPTION file"
  )
})

test_that("Empty DESCRIPTION", {
  expect_error(description$new(text = ""), NA)
  expect_error(description$new(text = character()), NA)
})
r-lib/desc documentation built on June 2, 2022, 11:49 p.m.