tests/testthat/test_rank_films.R

In The0therChad/star.rank: Plotting Wrapper for the SWAPI API

library("star.rank")

# Test rank_film function (args = interested)
test_that("" , {
  expect_error(rank_films(interested = "test"))
  expect_error(rank_films(), "'interested' argument must be character string")
  expect_error(rank_films(interested = 10), "'interested' argument must be character string")
  expect_type(rank_films(interested = "characters"), "list")
})