tests/testthat/test-get-value-990.R

In snfagora/MapAgora: R Package for Collecting U.S. Nonprofit Organization Data

library(testthat)
library(MapAgora)

test_that("MoveOn example check", {
  expect_equal(grepl("http", standardize_url("www.moveon.org")), TRUE)
})

test_that("Whether indexing works", {
  expect_equal(class(get_aws_url(ein = "311810938", year = 2019))[2], "character")
})