inst/runit_tests/test_tools.R

if (interactive()) pkgload::load_all(".")

test_add_commit <- function() {
    path <- tempfile()
    dir.create(path)
    gert::git_init(path = path)
    writeLines("hello, world!", file.path(path, "f"))
    expectation <- structure(list(file = "f", status = "new", staged = FALSE),
                             row.names = c(NA, -1L),
                             class = c("tbl_df", "tbl", "data.frame"))
    result <- gert::git_status(repo = path)
    RUnit::checkIdentical(expectation, result)
    RUnit::checkException(git_add_commit(path = path))
    git_add_commit(path = path, untracked = TRUE)
    expectation <- structure(list(file = character(0), status = character(0),
                                  staged = logical(0)), row.names = integer(0),
                             class = c("tbl_df", "tbl", "data.frame"))
    result <- gert::git_status(repo = path)
    RUnit::checkIdentical(expectation, result)
}

notest_cyclocomp <- function() {
    # somehow fails on install...
    path <- file.path(tempdir(), "prutp")
    on.exit(unlink(path, recursive = TRUE))
    packager::create(path)
    result <- packager::check_cyclomatic_complexity(path)
    # news too new
    news_file <- file.path(path, "NEWS.md")
    writeLines(c("# prutp 0.1.1", new), news_file)
    RUnit::checkTrue(packager::check_news(path))


    RUnit::checkTrue(result)
    pccc <- packager::check_cyclomatic_complexity
    RUnit::checkException(pccc(path, max_complexity = 0))
}

test_news <- function() {
    path <- file.path(tempdir(), "prutp")
    if (interactive()) {
        tempdir <- tempfile()
        dir.create(tempdir)
        wd <- setwd(tempdir)
        pkgload::load_all("~/packager")
    }
    unlink(path, recursive = TRUE)
    on.exit(unlink(path, recursive = TRUE))
    packager::create(path, fakemake = FALSE)
    if (interactive()) traceback()
    result <- packager::check_news(path)
    RUnit::checkTrue(result)

    # usethis auto-updates NEWS
    packager::use_dev_version(path)
    RUnit::checkTrue(packager::check_news(path))

    # Bump version
    desc::desc_bump_version(path, which = "minor")


    # add machting version, keep devel version
    news_file <- file.path(path, "NEWS.md")
    old <- readLines(news_file)
    new <- "# prutp 0.2.0"
    writeLines(c(new, old), news_file)
    RUnit::checkException(packager::check_news(path))

    # remove devel version
    writeLines(new, news_file)
    RUnit::checkTrue(packager::check_news(path))

    # actual version not covered in NEWS.md
    writeLines(c("# prutp 0.2.1"), news_file)
    RUnit::checkException(packager::check_news(path))
    if (interactive()) {
        unlink(path, recursive = TRUE)
        setwd(wd)
    }
}

test_githuburl <- function() {
    path <- file.path(tempdir(), "prutp")
    on.exit(unlink(path, recursive = TRUE))
    unlink(path, recursive = TRUE)
    packager:::package_skeleton(path)
    user <- "foobar"


    #% gh_username defaults NULL, curl not working
    if (Sys.info()[["nodename"]] ==  "fvafrdebianCU") {
        # curl not working
        expectation <- FALSE
        result <- add_github_url_to_desc(path = path)
        RUnit::checkIdentical(expectation, result)
    }

    #% No git remote set
    expectation <- FALSE
    result <- add_github_url_to_desc(path = path, default_gh_user = NA)
    RUnit::checkIdentical(expectation, result)

    #% remote set
    if (Sys.info()[["nodename"]] %in% c("h5", "h6")) {
        # whoami is better than remote url
        url <- "https://github.com/fvafrCU/prutp"
    } else {
        url <- paste("https://github.com", user, "prutp", sep = "/")
    }

    unlink(path, recursive = TRUE)
    packager:::package_skeleton(path)
    gert::git_init(path = path)
    gert::git_remote_add(repo = path, name = "github",
                         url = url)
    result <- add_github_url_to_desc(path = path, default_gh_user = NA)
    RUnit::checkTrue(result)
    RUnit::checkIdentical(url, desc::desc_get_urls(path))

    #% user given
    if (Sys.info()[["nodename"]] %in% c("h5", "h6")) {
        # doubled entry from above
        expectation <- c("https://github.com/fvafrCU/prutp",
                         paste("https://github.com", user, "prutp", sep = "/"))
    } else {
        expectation <- paste("https://github.com", user, "prutp", sep = "/")
    }

    add_github_url_to_desc(path = path, default_gh_user = user)
    result <- desc::desc_get_urls(file = path)
    RUnit::checkIdentical(expectation, result)
}

Try the packager package in your browser

Any scripts or data that you put into this service are public.

packager documentation built on Aug. 16, 2023, 5:08 p.m.