tests/testthat/test-props.R

In animejs: R Bindings to the 'Anime.js' Animation Library

# anime_keyframes() -------------------------------------------------------

test_that("anime_keyframes() returns an anime_keyframes object", {
  kf <- anime_keyframes(0, 1, 0.5)
  expect_s3_class(kf, "anime_keyframes")
})

test_that("anime_keyframes() stores bare numeric values as list elements", {
  kf <- anime_keyframes(0, 1, 0.5)
  expect_equal(kf[[1]], 0)
  expect_equal(kf[[2]], 1)
  expect_equal(kf[[3]], 0.5)
})

test_that("anime_keyframes() stores list-based keyframes as list elements", {
  kf <- anime_keyframes(
    list(to = 0),
    list(to = 1, ease = "outQuad", duration = 400)
  )
  expect_s3_class(kf, "anime_keyframes")
  expect_equal(kf[[1]]$to, 0)
  expect_equal(kf[[2]]$to, 1)
})

test_that("anime_keyframes() preserves optional ease and duration per keyframe", {
  kf <- anime_keyframes(
    list(to = 0),
    list(to = 1, ease = "outQuad", duration = 400),
    list(to = 0.5, ease = "linear", duration = 200)
  )
  expect_equal(kf[[2]]$ease, "outQuad")
  expect_equal(kf[[2]]$duration, 400)
  expect_equal(kf[[3]]$ease, "linear")
  expect_equal(kf[[3]]$duration, 200)
})

test_that("anime_keyframes() accepts anime_easing objects per keyframe", {
  kf <- anime_keyframes(
    list(to = 0),
    list(to = 1, ease = anime_easing("Cubic"))
  )
  expect_s3_class(kf[[2]]$ease, "anime_easing")
})

test_that("anime_keyframes() rejects malformed keyframes", {
  expect_snapshot(error = TRUE, anime_keyframes(list(from = 0)))
  expect_snapshot(error = TRUE, anime_keyframes(0, c(1, 2)))
  expect_snapshot(error = TRUE, anime_keyframes(list(to = 1, ease = 42)))
})

test_that("to_js_props() passes list-based keyframes through with correct keys", {
  kf <- anime_keyframes(
    list(to = 0),
    list(to = 1, ease = "outQuad", duration = 400)
  )
  result <- to_js_props(list(opacity = kf))
  expect_equal(result$opacity[[1]], list(to = 0))
  expect_equal(result$opacity[[2]]$to, 1)
  expect_equal(result$opacity[[2]]$ease, "outQuad")
  expect_equal(result$opacity[[2]]$duration, 400)
})

test_that("to_js_props() handles mixed bare and list keyframes", {
  kf <- anime_keyframes(
    0,
    list(to = 1, ease = "outQuad")
  )
  result <- to_js_props(list(opacity = kf))
  expect_equal(result$opacity[[1]], list(to = 0))
  expect_equal(result$opacity[[2]]$ease, "outQuad")
})

# anime_from_to() ---------------------------------------------------------

test_that("anime_from_to() returns an anime_from_to object", {
  ft <- anime_from_to(0, 1)
  expect_s3_class(ft, "anime_from_to")
})

test_that("anime_from_to() stores from, to, and unit", {
  ft <- anime_from_to(0, 100, unit = "px")
  expect_equal(ft$from, 0)
  expect_equal(ft$to, 100)
  expect_equal(ft$unit, "px")
})

test_that("anime_from_to() defaults unit to empty string and ease to NULL", {
  ft <- anime_from_to(0, 1)
  expect_equal(ft$unit, "")
  expect_null(ft$ease)
})

test_that("anime_from_to() validates ease", {
  expect_snapshot(error = TRUE, anime_from_to(0, 1, ease = 42))
})

test_that("to_js_props() converts anime_from_to to a from/to list", {
  ft <- anime_from_to(0, 1)
  result <- to_js_props(list(opacity = ft))
  expect_equal(result$opacity$from, 0)
  expect_equal(result$opacity$to, 1)
})

test_that("to_js_props() embeds unit into value strings for anime_from_to", {
  ft <- anime_from_to(0, 100, unit = "px")
  result <- to_js_props(list(x = ft))
  expect_equal(result$x$from, "0px")
  expect_equal(result$x$to, "100px")
})

test_that("to_js_props() keeps numeric values numeric when unit is empty or NULL", {
  expect_identical(
    to_js_props(list(x = anime_from_to(0, 100)))$x,
    list(from = 0, to = 100)
  )
  expect_identical(
    to_js_props(list(x = anime_from_to(0, 100, unit = NULL)))$x,
    list(from = 0, to = 100)
  )
})