tests/testthat/test-pour.R

context("pour")


test_that("functions return as expected", {
  x <- .pkg_author("firstname", "lastname", "emailaddress", c("aut", "cre"),
                  comment = c(ORCID = "0000-1111-2222-3333"))
  expect_is(x, "list")
  expect_identical(names(x), "Authors@R")
})
leonawicz/pkgpeanuts documentation built on June 7, 2019, 2:56 a.m.