tests/testthat/test-parse-twitter-handle-from-page.r

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

library(testthat)
library(MapAgora)

test_that("MoveOn example check", {
  expect_equal(parse_twitter_handle_from_page("https://www.moveon.org"), "moveon")
})

test_that("Filtering rule for twitter links should be specific enough", {
  expect_equal(parse_twitter_handle_from_page("https://www.chshartford.org/"), "chshartford")
})