tests/testthat/test_f_keep.R

In jokagyeman/foofactors: This package provides functions that helps in manipulation of facors and factor levels

context("Printing levels as they appear")

test_that("Levels are in order ",{
  teams <- factor(c("ManU", "Chel", "Ars"))
  expect_identical(levels(f_keep(teams)), c("ManU", "Chel", "Ars"))
})


test_that("Levels are in order ",{
x <- factor(c("He", "Came", "To", "Sch"))
expect_identical(levels(f_keep(x)), c("He", "Came", "To", "Sch"))
})

test_that("Does it work for character object ",{
  x <- c("He", "Came", "To", "Sch")
  expect_error(f_keep(x))
})