tests/testthat/test-get_issues.R

In IssueTrackeR: List Things to Do

testthat::test_that("get_issues works", {
    skip_if_no_github()

    issues <- get_issues(
        source = "online",
        state = "all",
        owner = "rjdverse",
        repo = "rjd3toolkit"
    )
    testthat::expect_type(issues, "list")
    testthat::expect_s3_class(issues, "IssuesTB")
})

testthat::test_that("get_issues generates error", {
    skip_if_no_github()

    testthat::expect_error(
        object = get_issues(
            source = "online",
            state = "all",
            owner = "rjdverse",
            repo = "rjd3toolkito"
        )
    )
    testthat::expect_error(
        object = get_issues(
            source = "en-ligne",
            state = "all",
            owner = "rjdverse",
            repo = "rjd3toolkit"
        )
    )
    testthat::expect_error(
        object = get_issues(
            source = "local",
            state = "closed",
            owner = "rjdverse",
            repo = "rjd3toolkit"
        )
    )
    testthat::expect_error(
        object = get_issues(
            source = "local",
            state = "open",
            owner = "rjdverse",
            repo = "rjd3toolkit"
        )
    )
    testthat::expect_error(
        object = get_issues(
            source = "online",
            state = "pas fraîche",
            owner = "rjdverse",
            repo = "rjd3toolkit"
        )
    )
})