test_that("changepointGA works", {
  skip()
  x <- segment(CET, method = "cga")
  expect_s3_class(x, "tidycpt")
  expect_s3_class(x$segmenter, "cga")
  expect_s3_class(as.ts(x), "ts")
  expect_s3_class(augment(x), "grouped_ts")
  expect_s3_class(tidy(x), "tbl_df")
  expect_s3_class(glance(x), "tbl_df")
  expect_type(changepoints(x), "integer")
  expect_true(is_segmenter(x$segmenter))
  expect_true(is_model(x$model))
})