testthat::test_that(
  "examples/data-well_log.R", {
    testthat::skip_if_not_installed("ggplot2")

    source("examples/data-well_log.R")
    testthat::expect_equal(
      result@cp_set,
      c(
        12, 314, 434, 566, 704, 776, 1021, 1057, 1198, 1347, 1406,
        1502, 1665, 1842, 2023, 2202, 2384, 2445, 2507, 2567, 2749,
        2921, 3099, 3125, 3251, 3464, 3499, 3622, 3709, 3820, 3976
      )
    )
  }
)