tests/testthat/test_utils.R

In hemoshear/assayr2: Tools for analyzing assay data

### fct_sync() -----------------------------------------------------
context("Test fct_sync()")

mt1 <- mtcars %>% mutate(cyl = factor(cyl, levels = c(6,8,4)),
                         am = factor(am, levels = c(1,0)))
mtcars <- fct_sync(mtcars, mt1)

test_that("levels are synced", {
  expect_equal(levels(mtcars$am), levels(mt1$am))
  expect_equal(levels(mtcars$cyl), levels(mt1$cyl))
})

rm(mt1, mtcars)