diff --git a/tests/testthat/helper-fixtures.R b/tests/testthat/helper-fixtures.R index 2c6d59e..53de5a0 100644 --- a/tests/testthat/helper-fixtures.R +++ b/tests/testthat/helper-fixtures.R @@ -393,52 +393,34 @@ test_fixtures$gitlab_search_response <- list( ) ) +github_search_item <- list( + "name" = "test1.R", + "path" = "examples/test1.R", + "sha" = "0d42b9d23ddfc0bca1", + "url" = "test_url", + "git_url" = "test_git_url", + "html_url" = "test_html_url", + "repository" = list( + "id" = 627452680, + "url" = "https://api.github.com/repos/r-world-devs/GitStats", + "html_url" = "https://github.com/r-world-devs/GitStats" + ), + "score" = 1 +) + test_fixtures$github_search_response <- list( - "total_count" = 3, + "total_count" = 250, "incomplete_results" = FALSE, "items" = list( - list( - "name" = "test1.R", - "path" = "examples/test1.R", - "sha" = "0d42b9d23ddfc0bca1", - "url" = "test_url", - "git_url" = "test_git_url", - "html_url" = "test_html_url", - "repository" = list( - "id" = 627452680, - "url" = "https://api.github.com/repos/r-world-devs/GitStats", - "html_url" = "https://github.com/r-world-devs/GitStats" - ), - "score" = 1 - ), - list( - "name" = "test2.R", - "path" = "tests/test2.R", - "sha" = "01238xb", - "url" = "test_url", - "git_url" = "test_git_url", - "html_url" = "test_html_url", - "repository" = list( - "id" = 604718884, - "url" = "https://api.github.com/repos/r-world-devs/GitStats", - "html_url" = "https://github.com/r-world-devs/GitStats" - ), - "score" = 1 - ), - list( - "name" = "test3.R", - "path" = "R/test3.R", - "sha" = "20e19af2dda26d04f6", - "url" = "test_url", - "git_url" = "test_git_url", - "html_url" = "test_html_url", - "repository" = list( - "id" = 495151911, - "url" = "https://api.github.com/repos/r-world-devs/GitStats", - "html_url" = "https://github.com/r-world-devs/GitStats" - ), - "score" = 1 - ) + rep(github_search_item, 250) + ) +) + +test_fixtures$github_search_response_large <- list( + "total_count" = 1001, + "incomplete_results" = FALSE, + "items" = list( + rep(github_search_item, 1001) ) ) diff --git a/tests/testthat/test-01-get_repos-GitHub.R b/tests/testthat/test-01-get_repos-GitHub.R index 4dc39f8..50437b1 100644 --- a/tests/testthat/test-01-get_repos-GitHub.R +++ b/tests/testthat/test-01-get_repos-GitHub.R @@ -44,7 +44,7 @@ test_that("`get_repos_from_org()` prepares formatted list", { # REST Engine search repos by code -test_that("`search_response()` performs search with limit under 100", { +test_that("`search_response()` performs search with limit under 1000", { total_n <- test_fixtures$github_search_response[["total_count"]] mockery::stub( test_rest_github_priv$search_response, @@ -53,8 +53,22 @@ test_that("`search_response()` performs search with limit under 100", { ) gh_search_repos_response <- test_rest_github_priv$search_response( search_endpoint = test_mocker$use("search_endpoint"), - total_n = total_n, - byte_max = 384000 + total_n = total_n + ) + expect_gh_search_response(gh_search_repos_response) + test_mocker$cache(gh_search_repos_response) +}) + +test_that("`search_response()` performs search with limit over 1000", { + total_n <- test_fixtures$github_search_response_large[["total_count"]] + mockery::stub( + test_rest_github_priv$search_response, + "self$response", + test_fixtures$github_search_response_large + ) + gh_search_repos_response <- test_rest_github_priv$search_response( + search_endpoint = test_mocker$use("search_endpoint"), + total_n = total_n ) expect_gh_search_response(gh_search_repos_response) test_mocker$cache(gh_search_repos_response)