tests/testthat/test_perm.R

In hnasif/movies: Pair of lookup functions given an incorrect permutation or spelling

context("Permutation")

test_that("permutation lookup", {
  expect_true(perm_lookup(movies, "title", "man the she's"), movies$title[6947])
})


context("Spelling")

test_that("spelling error", {
  expect_true(spell_lookup(movies, "title", "she's the man"), movies$title[6947])
})