tests/testthat/test-jp_scale_y_c.R

In dzulfiqarfr/jpwrapper: Customize Datawrapper Charts With Design Pricniples Used at The Jakarta Post

test_that("jp_scale_y_c() customizes y-axis components in Datawrapper chart", {
  chart_id <- "6PxkU"

  chart_metadata <- jp_scale_y_c(
    chart_id = chart_id,
    limits = c(0, 200),
    breaks = seq(0, 200, 40),
    position = "left"
  )

  expect_s3_class(chart_metadata, "dw_chart")
})