tests/testthat/testSearchr.R

context("Searchr")

test_that("Checking if the output is the same", {

  col <- c("movie_title", "director_name", "genres", "actor_1_name", "content_rating")
  expect_equal(colnames(MovieFinder("Avatar")), col)

})
Ollie-gnodde/moviefinder documentation built on May 19, 2019, 8:21 a.m.