Error in `private$check_token(token)`: i No token provided.

test_that("Set connection returns appropriate messages", {
test_that("When empty token for GitHub, GitStats pulls default token", {
test_that("When empty token for GitLab, GitStats pulls default token", {
withr::with_envvar(new = c("GITLAB_PAT" = Sys.getenv("GITLAB_PAT_PUBLIC")), {
test_that("Set GitHub host with particular repos vector instead of orgs", {
repos = c("r-world-devs/GitStats", "r-world-devs/shinyCohortBuilder", "openpharma/GithubMetrics", "openpharma/DataFakeR")
test_that("Set GitLab host with particular repos vector instead of orgs", {
test_that("When no organizations or repositories are set information is printed", {
test_that("Error shows, when wrong input is passed when setting connection and host is not passed", {
test_that("Error pops out, when two clients of the same url api are passed as input", {
test_that("Error pops out when `org` does not exist", {
test_that("When wrong orgs and repos are passed they are excluded but host is created", {
test_that("Error pops out when repos are passed without org prefix", {
test_that("Setting verbose for set_*_host() to FALSE works fine", {

"Set connection returns appropriate messages"
"When empty token for GitHub, GitStats pulls default token"
"When empty token for GitLab, GitStats pulls default token"
"Set GitHub host with particular repos vector instead of orgs"
"Set GitLab host with particular repos vector instead of orgs"
"When no organizations or repositories are set information is printed"
"Error shows, when wrong input is passed when setting connection and host is not passed"
"Error pops out, when two clients of the same url api are passed as input"
"Error pops out when `org` does not exist"
"When wrong orgs and repos are passed they are excluded but host is created"
"Error pops out when repos are passed without org prefix"
"Setting verbose for set_*_host() to FALSE works fine"

Error pops out when repos are passed without org prefix