tests/testthat/test-QueryQueue.R

In harell/github.explorer: Discover and Explore the Relationships Between R Packages and R Users

test_that("QueryQueue works", {
    expect_s3_class(ecos <<- Ecosystem$new(local_path = local_path, remote_path = remote_path), "R6")
    expect_s3_class(queue <- QueryQueue$new(ecos = ecos), "R6")

    expect_type(queue$REPO, "environment")
    expect_type(queue$USER, "environment")

    expect_gte(QueryQueue$new(ecos)$REPO$size(), 0)
    expect_gte(QueryQueue$new(ecos)$USER$size(), 0)
})