test_that("Plot method works", {
  dat <- lavaan::HolzingerSwineford1939
  mod <- "
    visual  =~ x1 + x2 + x3
    textual =~ x4 + x5 + x6
  "
  fit <- acfa(mod, dat, verbose = FALSE, nsamp = 3, test = "none")
  expect_no_error(plt <- plot(fit))
  expect_no_error(plt <- plot(fit, truth = coef(fit)))
  expect_equal(length(plt@layers), length(coef(fit)))
})