test_that("APOTCPlot works", {
	data("combined_pbmc")
	expect_doppelganger(
		"default_apotcplot",
		APOTCPlot(
			RunAPOTC(combined_pbmc,  verbose = FALSE),
			run_id = "umap;CTstrict;_;_"
		)
	)
})

test_that("add_default_theme works", {
	plt <- ggplot2::ggplot(data.frame("x" = c(1, 2), "y" = c(3, 4))) +
		ggplot2::geom_point(apotc_aes_string(x = "x", y = "y"))
	expect_doppelganger("add_default_theme_plot", add_default_theme(plt, "pca"))
})

# TODO more tests