tests/testthat/test-004-license_has_username.R

In benmarwick/rrtools: Creates a Reproducible Research Compendium

context("license")

#### run function default (analysis/) ####

wd <- getwd()
setwd(package_path)
suppressMessages(
usethis::use_mit_license(copyright_holder = rrtools:::get_git_config("user.name", global = TRUE))
)
setwd(wd)

#### check results ####

test_that("license file has a username", {

  license_file_text <-
  readLines(file.path(package_path, "LICENSE.md"))

  # number of characters in line 3 if there is no name
  num_char <- 18

  # so if there is a name, we will have more than 18 chr there

  expect_gt(nchar(license_file_text[3]),
               num_char)


})