test_that("adjust_color works", {
  p <-
    study %>%
    tidyplot(x = treatment, y = score, color = treatment) %>%
    add_mean_bar(alpha = 0.4) %>%
    add_sem_errorbar() %>%
    add_data_points_beeswarm()

  new_colors <-
    c("A" = "#B0B1B3",
      "B" = "#F18823",
      "C" = "#E23130",
      "D" = "#1D5D83")

  new_names <-
    c("A" = "Regime A",
      "B" = "Regime B",
      "C" = "Regime C",
      "D" = "Regime D")

  p %>% adjust_colors(new_colors) %>%
    vdiffr::expect_doppelganger("adjust_colors", .)
  p %>% reorder_x_axis_labels("C") %>% adjust_colors(new_colors) %>%
    vdiffr::expect_doppelganger("adjust_colors after reorder", .)
  p %>% adjust_colors(new_colors) %>% reorder_x_axis_labels("C") %>%
    vdiffr::expect_doppelganger("adjust_colors before reorder", .)
  p %>% adjust_colors(new_colors) %>% rename_x_axis_labels(new_names) %>%
    vdiffr::expect_doppelganger("adjust_colors before rename", .)
})

test_that("adjust axes works", {
  p <-
    study %>%
    tidyplot(x = treatment, y = score, color = treatment) %>%
    add_mean_bar(alpha = 0.4) %>%
    add_sem_errorbar() %>%
    add_data_points_beeswarm()

  demo_xy <-
    animals %>%
    tidyplot(x = weight, y = size, color = number_of_legs) %>%
    add_data_points()

  demo_xy %>%
    adjust_y_axis(limits = c(-20, 60)) %>%
    vdiffr::expect_doppelganger("adjust axes limits 1", .)

  demo_xy %>%
    adjust_y_axis(limits = c(0, 600)) %>%
    adjust_x_axis(limits = c(0, 4000)) %>%
    vdiffr::expect_doppelganger("adjust axes limits 2", .)

  energy_week %>%
    tidyplot(date, power, color = energy_type) %>%
    add_mean_line() %>%
    adjust_y_axis(limits = c(1000, 5000)) %>%
    vdiffr::expect_doppelganger("adjust axes limits 3", .)

  p %>% adjust_x_axis("My X axis title") %>%
    vdiffr::expect_doppelganger("adjust axes title x", .)

  p %>% adjust_y_axis("My Y axis title") %>%
    vdiffr::expect_doppelganger("adjust axes title y", .)
})

test_that("adjust legend works", {
  p <-
    study %>%
    tidyplot(x = treatment, y = score, color = treatment) %>%
    add_mean_bar(alpha = 0.4) %>%
    add_sem_errorbar() %>%
    add_data_points_beeswarm()

  p %>% adjust_legend_title("My legend title") %>%
    vdiffr::expect_doppelganger("adjust legend title", .)
  p %>% adjust_legend_title("My legend title") %>%
    adjust_legend_position("top") %>%
    vdiffr::expect_doppelganger("adjust legend title and position", .)
})

test_that("plotmath expressions work", {
  p <-
    study %>%
    tidyplot(x = treatment, y = score, color = treatment) %>%
    add_mean_bar(alpha = 0.4) %>%
    add_sem_errorbar() %>%
    add_data_points_beeswarm()

  p %>% add_title(title = "$E==m*c^{2}~H[2]*O$") %>%
    vdiffr::expect_doppelganger("plotmath expression title", .)
  p %>% add_caption(caption = "$E==m*c^{2}~H[2]*O$") %>%
    vdiffr::expect_doppelganger("plotmath expression caption", .)
  p %>% adjust_legend_title("$E==m*c^{2}~H[2]*O$") %>%
    vdiffr::expect_doppelganger("plotmath expression legend title", .)
  p %>% adjust_x_axis_title("$Domino~E==m*c^{2}$") %>%
    vdiffr::expect_doppelganger("plotmath expression x axis title", .)
  p %>% adjust_y_axis_title("$Domino~E==m*c^{2}$") %>%
    vdiffr::expect_doppelganger("plotmath expression y axis title", .)

  new_labels <-
    c("A" = "$TNF*alpha$",
      "B" = "$IFN*gamma$",
      "C" = "plain text",
      "D" = "$H[2]*O$")

  p %>% rename_x_axis_labels(new_labels) %>%
    vdiffr::expect_doppelganger("plotmath expression x axis labels", .)
})

test_that("adjust plot area size work", {
  study %>%
    tidyplot(x = dose, y = score, color = group) %>%
    add_boxplot() %>%
    adjust_size(width = 70) %>%
    vdiffr::expect_doppelganger("plot area size width", .)

  study %>%
    tidyplot(x = dose, y = score, color = group) %>%
    add_boxplot() %>%
    adjust_size(width = 25, height = 25) %>%
    vdiffr::expect_doppelganger("plot area size width and height", .)

  study %>%
    tidyplot(x = dose, y = score, color = group) %>%
    add_boxplot() %>%
    adjust_size(width = NA, height = NA) %>%
    vdiffr::expect_doppelganger("plot area size NA", .)
})