testthat::test_that("get_issues works", {
    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", {
    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"
    ))
})