chore: release metadata -- author of record, URLs, schema ceiling, 0.3.0
Authors@R was an org with no human, so citation() and the r-universe
maintainer page had nothing to render and ORCID could not collate this
with merTools. The given-name vector c("Jared", "E.") matches merTools
exactly; person("Jared", "E. Knowles") would render the same but put the
middle initial in the family-name slot.
MaxCorpusSchema claimed 5 while .validate_schema() accepts 4-7 and the
published corpus is 7 -- metadata contradicting code by two versions.
0.3.0 rather than 0.2.0: remote reads go from broken to working and the
default URL from placeholder to live, which is user-visible behaviour.
This commit is contained in:
@@ -87,3 +87,24 @@ test_that("an explicitly-set sentinel URL still aborts", {
|
||||
class = "uscogdata_url_not_configured"
|
||||
)
|
||||
})
|
||||
|
||||
test_that("DESCRIPTION carries release metadata", {
|
||||
skip_if_no_source_tree("DESCRIPTION")
|
||||
d <- read.dcf(source_tree_path("DESCRIPTION"))
|
||||
fields <- colnames(d)
|
||||
|
||||
expect_true(all(c("URL", "BugReports") %in% fields))
|
||||
expect_match(d[1, "Authors@R"], "Knowles", fixed = TRUE)
|
||||
expect_match(d[1, "Authors@R"], "0000-0003-0005-9478", fixed = TRUE)
|
||||
expect_match(d[1, "Authors@R"], "Civilytics Consulting LLC", fixed = TRUE)
|
||||
|
||||
# The gate in .validate_schema() accepts up to 7 and the published corpus
|
||||
# IS 7; DESCRIPTION must not claim otherwise.
|
||||
expect_equal(as.integer(d[1, "MaxCorpusSchema"]), 7L)
|
||||
|
||||
# Authors@R must actually parse -- a malformed person() call is only
|
||||
# caught at citation()/build time otherwise.
|
||||
people <- eval(parse(text = d[1, "Authors@R"]))
|
||||
expect_s3_class(people, "person")
|
||||
expect_true("cre" %in% unlist(lapply(people, function(p) p$role)))
|
||||
})
|
||||
|
||||
Reference in New Issue
Block a user