tests/testthat/test-check-unique-fn-names.R

In pkgcheck: Package Checks for 'rOpenSci'

skip_on_cran ()

test_that ("check unique functions names", {

    checks <- make_check_data ()

    ci_out <- output_pkgchk_unique_fn_names (checks)
    expect_type (ci_out, "list")
    expect_length (ci_out, 4L)
    expect_named (ci_out, c ("check_pass", "summary", "print", "check_type"))

    expect_true (ci_out$check_pass)
    expect_length (ci_out$summary, 1L)
    expect_false (nzchar (ci_out$summary))
    expect_length (ci_out$print, 1L)
    expect_false (nzchar (ci_out$print))
    expect_equal (ci_out$check_type, "none_watch")

    dat <- data.frame (
        package = c ("one", "two"),
        version = 1:2,
        fn_name = c ("yes", "no")
    )
    checks$checks$unique_fn_names <- dat
    ci_out <- output_pkgchk_unique_fn_names (checks)
    expect_false (ci_out$check_pass)
    expect_equal (
        ci_out$summary,
        "Function names are duplicated in other packages"
    )
    expect_identical (sort (names (ci_out$print$obj)), sort (dat$fn_name))
})

# Extracting fn names database from local cache fails on GitHub windows and mac runners:
skip_on_os ("windows")
skip_on_os ("mac")

test_that ("check fn_names_on_cran fn", {

    withr::local_envvar (
        list (
            "PKGCHECK_CACHE_DIR" = file.path (tempdir (), "pkgcheck")
        )
    )

    fn_names <- c ("min", "max")
    res <- fn_names_on_cran (fn_names)
    expect_s3_class (res, "data.frame")
    expect_equal (ncol (res), 3L)
    expect_identical (names (res), c ("package", "version", "fn_name"))
    # expect_true (nrow (res) > length (fn_names))
    # expect_true (all (fn_names %in% res$fn_name))
    expect_equal (nrow (res), 0L)
})