describe("r-universe API (integration)", {
  it("queries the ggsegverse r-universe", {
    skip_if_not_installed("vcr")

    vcr::use_cassette("r_universe_full", {
      result <- ggseg_atlas_repos()
    })

    expect_s3_class(result, "tbl_df")
    expect_true(nrow(result) > 0)
    expect_true("Package" %in% names(result))
  })

  it("returns no rows for nonsense pattern", {
    skip_if_not_installed("vcr")

    vcr::use_cassette("r_universe_no_match", {
      result <- ggseg_atlas_repos("zzzznotapackagezzz")
    })

    expect_equal(nrow(result), 0)
  })
})