context("test-anim_options")

test_that("merging of animation options works", {
  ao_new <- anim_options(5, 3, text_size = 9, title_size = 13)
  ao_old <- anim_options(ease_default = "cubic-in", text_family = "Times New Roman")
  ao_merged <- anim_options(5, 3, "cubic-in", text_size = 9, title_size = 13, text_family = "Times New Roman")
  expect_equal(merge(ao_new, ao_old), ao_merged)
})

test_that("setting and getting animation options works", {
  set_font_size(5, 10)
  expect_equal(get_anim_opt(), anim_options(text_size = 5, title_size = 10))
  expect_error(get_anim_opt("text_size"))
  expect_equal(get_text_size(), get_anim_opt()$text_size)
  expect_equal(get_title_size(), get_anim_opt()$title_size)

  anim_options_set(anim_options(2, 1))
  expect_equal(get_anim_opt("transition_length"), 2)
  expect_equal(get_anim_opt("state_length"), 1)
  expect_equal(get_anim_opt(), anim_options(2, 1, text_size = 5, title_size = 10))

  anim_options_set(anim_options())
  expect_equal(get_anim_opt("transition_length"), plot_settings$default$transition_length)

  anim_options_set(anim_options(enter = enter_appear(early = TRUE)))
  expect_equal(names(get_anim_opt("enter")), "enter_appear(early = TRUE)")
  expect_s3_class(get_anim_opt("enter")[[1]], "ggproto")
})