You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
348 B
14 lines
348 B
context("basic functionality")
|
|
test_that("the API works", {
|
|
|
|
test_urls <- c("http://t.co/D4C7aWYIiA",
|
|
"1.usa.gov/1J6GNoW",
|
|
"ift.tt/1L2Llfr",
|
|
"bit.ly/1GPr5w5",
|
|
"http://l.dds.ec/1da152x",
|
|
"http://l.rud.is/seven")
|
|
|
|
expect_that(expand_urls(test_urls), is_a("data.frame"))
|
|
expect_that(known_services(), is_a("data.frame"))
|
|
|
|
})
|
|
|