plot_ci$layers has length 11, not length 16.

fits <- get_fits(data, list("lnorm", "llogis"), FALSE)
fits_cens <- get_fits(data_cens, list("lnorm"), TRUE)
test_that("Confidence intervals are added to plots", {
ci_plot_utils <- my_CIcdfplot(bts[[1]], FALSE, CI.level = 0.95)
ci_plot_utils_cens <- my_CIcdfplot(bts_cens[[1]], FALSE, CI.level = 0.95)
# check truthfulness of documentation's note
plot_cens <- base_cdf(fits_cens, "unit", TRUE)
plot_cens_ci <- add_CI_plot(plot_cens, bts_cens, TRUE)
# base information of the plot is the same (partial)

"Confidence intervals are added to plots"

plot_cens_ci$layers has length 7, not length 11.

Error in `order(p$layers$geom_point$data$group)`: argument 1 is not a vector

test_that("Uncensored data can be coloured by group", {
fits <- get_fits(data, list("lnorm"), FALSE)
test_that("Censored data can have name labels displayed", {
p <- cens_lines_plot(data, "unit", TRUE)

"Uncensored data can be coloured by group"
"Censored data can have name labels displayed"

Uncensored data can be coloured by group