newData      <- data.frame(a = c(1,2,3))
originalData <- data.frame(a = c('a', 'b', 'c'))

test_that("make sure levelsPrepF is working correctly", {

  expect_error(levelsPrepF(newData, newData, originalData), regexp="You supplied numeric values for a character/factor variable!")

})