tests/testthat/test-github-functions.R

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

# predicates --------------------------------------------------------------
test_that("predicates work", {
    urls <- c("https://github.com/harell/github.observatory", "Tidyverse/dplyr")

    expect_identical(github$is_valid_url(urls), c(TRUE, FALSE))
})


# parsers -----------------------------------------------------------------
test_that("extract functions work", {
    urls <- c("https://github.com/harell/github.observatory", "Tidyverse/dplyr")

    expect_identical(github$extract$slug(urls), c("harell/github.observatory", "Tidyverse/dplyr"))
    expect_identical(github$extract$owner(urls), c("harell", "Tidyverse"))
    expect_identical(github$extract$repo(urls), c("github.observatory", "dplyr"))
})

test_that("extract html_url works", {
    urls <- c("https://github.com/onnx/onnx-r/issues", "https://github.com/onnx/onnx-r")

    expect_identical(github$extract$full_name(urls), rep("onnx/onnx-r", 2))
    expect_identical(github$extract$html_url(urls), rep("https://github.com/onnx/onnx-r", 2))
})


# compose -----------------------------------------------------------------
test_that("compose functions work", {
    urls <- c("https://github.com/harell/github.observatory", "Tidyverse/dplyr")
    owners <- github$extract$owner(urls)
    repos <- github$extract$repo(urls)
    slugs <- github$extract$slug(urls)

    expect_identical(github$compose$slug(owners, repos), slugs)
})