tests/testthat/test-platforms.R

In ropensci/rbraries: Interface to the 'Libraries.io' API

context("lio_platforms")

test_that("lio_platforms works", {
  skip_on_cran()
  
  vcr::use_cassette("lio_platforms", {
    a <- lio_platforms()
  })
  
  expect_is(a, "list")
  expect_named(a, c('name', 'project_count', 'homepage', 
    'color', 'default_language'))
  expect_true(any(grepl("Julia", a$name)))
})