inst/tinytest/test_checkDESCRIPTION.R

In Bioconductor/BiocCheck: Bioconductor-specific package checks

source("helpers.R")

library(devtools)
library(tinytest)

.bioctest <- read_test_package("testpkg1")
dcf <- .bioctest$DESCRIPTION
BiocCheck:::checkFndPerson(dcf)
checkCounter(
    "No 'fnd' role", "note"
)


temp_dir <- tempfile()
.bioctest <- create_test_package(
    test_dir = temp_dir,
    extraActions = function(pkgdir) {
        badfile <- file.path(pkgdir, "DESCRIPTION")
        writeLines(c(
            "Package: foo",
            "Version: 0.99.0",
            "Authors@R: person('Foo', 'Bar', email = 'foo.bar@email.com')",
            "License: GPL-2",
            "Depends: R (>= 4.0.0)"
        ), badfile)
    }
)
dcf <- .bioctest$DESCRIPTION
expect_identical(
    BiocCheck:::.PersonsFromDCF(dcf),
    person('Foo', 'Bar', email = 'foo.bar@email.com')
)
BiocCheck:::checkFndPerson(dcf)
checkCounter(
    "No 'fnd' role", "note"
)

.bioctest <- create_test_package(
    test_dir = temp_dir,
    extraActions = function(pkgdir) {
        badfile <- file.path(pkgdir, "DESCRIPTION")
        writeLines(c(
            "Package: foo",
            "Version: 0.99.0",
            paste0(
                "Authors@R: person(",
                "'Foo', 'Bar', email = 'foo.bar@email.com', ",
                "role = c('aut', 'cre', 'fnd'))"
            ),
            "License: GPL-2",
            "Depends: R (>= 4.0.0)"
        ), badfile)
    }
)
dcf <- .bioctest$DESCRIPTION
BiocCheck:::checkFndPerson(dcf)
expect_true(
    stillZero()
)

unlink(temp_dir, recursive = TRUE)