tests/testthat/test_user_friends.R

In tangaot/twitterapiR: An R Wrapper for the Twitter API

key <- "Tds7CCMzPsJbRZH7aikpKiObN"
secret <- "lPH7pIQIS1pVinxh48xvXWgqzGa9gre4Utb9tIZ2W1U0nSCgrz"
setted <- set_bearer(key, secret)

test_that("Incorrect inputs", {
    # invalid screen_name
    expect_error(user_friends(screen_name="BarackObamaa", number =10))
    # invalid number
    expect_error(user_friends(screen_name="BarackObama", number = 2000))
})

test_that("output is a DataFrame",{
    output <- user_friends(screen_name="BarackObama", number =10)
    expect_true(is.data.frame(output))
})