tests/testthat/test-Agent.R

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

test_that("Agent constructor works", {
    expect_s3_class(ecos <<- Ecosystem$new(local_path = local_path, remote_path = remote_path), "R6")
    expect_s3_class(agent <<- Agent$new(ecos = ecos), "R6")
})

test_that("recommend_repos_to_user works", {
    user_id <- 7226303 # harell
    expect_s3_class(agent$recommend_repos_to_user(user_id = user_id, n = 2, method = "random"), "data.frame")
})

test_that("recommend_users_to_user works", {
    expect_s3_class(agent$recommend_users_to_user(user_id = user_id, n = 2, method = "random"), "data.frame")
})

test_that("query_repos_graph works", {
    repo_id <- 318095552 # R6P
    expect_s3_class(
        agent$query_repos_graph(repo_id = repo_id, degrees = 2, method = "depends"),
        "data.frame"
    )

    repo_id <- 19521307 # R6
    expect_s3_class(
        agent$query_repos_graph(repo_id = repo_id, degrees = 2, method = "reverse depends"),
        "data.frame"
    )
})

test_that("query_users_graph works", {
    user_id <- 7226303 # harell

    expect_s3_class(
        agent$query_users_graph(user_id = user_id, degrees = 1, method = "followers"),
        "data.frame"
    )

    expect_s3_class(
        agent$query_users_graph(user_id = user_id, degrees = 1, method = "following"),
        "data.frame"
    )
})

test_that("query_package_stats works", {
    package <- "dplyr"

    expect_non_empty_data.frame(agent$query_package_stats(package = package, statistic = "monthly downloads"))
})