Error in `semTools::compRelSEM(object, simplify = -1L, ...)`: object 'REL' not found

test_that("Sampling variances of estimates", {
test_that("Sampling variances of user-defined parameters", {
test_that("SEs of user-defined parameters", {
tmp1 <- lavTestLRT(fit_cfa3, fit_cfa2, fit_cfa)
expect_equal(vec_lavTestScore(fit_cfa, add = c("visual =~ x9\ntextual =~ x3"))[1],
lavTestScore(fit_cfa, add = c("visual =~ x9\ntextual =~ x3"))$test[1, "X2"],
expect_equal(vec_lavTestScore(fit_cfa, add = c("visual =~ x9"))[1],
lavTestScore(fit_cfa, add = c("visual =~ x9"))$test[1, "X2"],
expect_equal(length(vec_lavTestScore(fit_cfa, add = c("visual =~ x9\ntextual =~ x3"), univariate = FALSE)),
expect_equal(vec_lavTestWald(fit_sem_mg, "a1 == a2\nb1 == b2", prefix = "Con1"),
unlist(lavTestWald(fit_sem_mg, "a1 == a2\nb1 == b2")[1:3]),
expect_false(any(grepl("Con1", names(vec_lavTestWald(fit_sem_mg, "a1 == a2\nb1 == b2")))))
if (utils::packageDescription("semTools", fields = "Version") < "0.5-8") {
sort(unlist(compRelSEM(fit_cfa_mg, return.total = TRUE, return.df = FALSE))),
compRelSEM(fit_cfa, return.total = TRUE, simplify = -1L),
sort(unlist(compRelSEM(fit_cfa_mg, return.total = TRUE, simplify = -1L))),
# expect_error(vec_compRelSEM(fit_cfa, return.df = TRUE)) # invalid from 0.5-8

'
visual  =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed   =~ x7 + x8 + x9
'
'
visual  =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed   =~ x7 + x8 + x9 + x2
'
'
visual  =~ x1 + x2 + x3 + x6
textual =~ x4 + x5 + x6
speed   =~ x7 + x8 + x9 + x2
'
'
visual  =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed   =~ x7 + x8 + x9
speed ~ a*textual
visual ~ b*speed
ab := a * b
'
'
visual  =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed   =~ x7 + x8 + x9
speed ~ c(a1, a2)*textual
visual ~ c(b1, b2)*speed
ab1 := a1 * b1
ab2 := a2 * b2
'
"Sampling variances of user-defined parameters"