Error in `expect_class_first(y, "xhaz")`: could not find function "expect_class_first"

test_that("as.xhaz puts 'xhaz' first and preserves other classes", {
x <- structure(list(), class = c("mexhaz", "xhaz", "mexhazLT", "foo"))
# Order of the remaining classes preserved after 'xhaz' is moved first

"as.xhaz puts 'xhaz' first and preserves other classes"

as.xhaz puts 'xhaz' first and preserves other classes