tests/testthat/test_biocBuildReport.R

In seandavi/BiocPkgTools: Collection of simple tools for learning about Bioconductor Packages

context("biocBuildReport")

# test release build report
test_that("columns are consistent in report output", {
    columnames <- c("pkg", "author", "version", "git_last_commit",
        "git_last_commit_date", "node", "stage", "PackageStatus")

    bioc3.12_build <- biocBuildReport("3.12")
    expect_true(all(columnames %in% colnames(bioc3.12_build)))
    expect_true(inherits(bioc3.12_build[["git_last_commit_date"]], "POSIXct"))
    expect_true(tibble::is_tibble(bioc3.12_build))

    bioc3.13_build <- biocBuildReport("3.13")
    expect_true(all(columnames %in% colnames(bioc3.13_build)))
    expect_true(inherits(bioc3.13_build[["git_last_commit_date"]], "POSIXct"))
    expect_true(tibble::is_tibble(bioc3.13_build))

    bioc3.14_build <- biocBuildReport("3.14")
    expect_true(all(columnames %in% colnames(bioc3.14_build)))
    expect_true(inherits(bioc3.14_build[["git_last_commit_date"]], "POSIXct"))
    expect_true(tibble::is_tibble(bioc3.14_build))
})