testthat::test_that("#55", {
  data("tt", package = "rsimsum")

  s <- simsum(data = tt, estvarname = "diff", se = "se", true = -1, x = TRUE)
  testthat::expect_s3_class(object = autoplot(s, type = "zip"), class = c("gg", "ggplot"))
  testthat::expect_s3_class(object = autoplot(s, type = "zip", zip_ci_colours = "blue"), class = c("gg", "ggplot"))
  testthat::expect_s3_class(object = autoplot(s, type = "zip", zip_ci_colours = c("green", "red")), class = c("gg", "ggplot"))
  testthat::expect_s3_class(object = autoplot(s, type = "zip", zip_ci_colours = c("green", "red", "blue")), class = c("gg", "ggplot"))
  testthat::expect_error(object = autoplot(s, type = "zip", zip_ci_colours = c("green", "red", "blue", "yellow")))
  testthat::expect_error(object = autoplot(s, type = "zip", zip_ci_colours = 1))
  testthat::expect_error(object = autoplot(s, type = "zip", zip_ci_colours = TRUE))
})